JosimarZ

Olá pessoal! Esses dias, utilizando o componente XPManifest, percebi que o mesmo é apenas uma fachada para chamar a UNIT XPMan, que por sua vez utiliza o arquivo de recurso WindowsXP.RES, que customiza toda a interface do programa. Então eu decidi chamar diretamente esse arquivo no meu fonte com {$R WindowsXP.RES} Minha pergunta: existe alguma ferramenta ou maneira para eu criar meus próprios arquivos de recurso a fim de customizar a interface do meu programa ?? Seria mais ou menos o que o CSS é para o HTML. Compreendem ?? Ficarei no aguardo... Obrigado!

Olá JacsonL! Infelizmente ainda não consegui resolver este problema, mas descobri algo que pode ser útil. Se você dar uma passeada na Unit XMLDoc vai encontrar o procedimento: procedure TXMLNodeList.Insert(Index: Integer; const Node: IXMLNode); Este procedimento é usado para inserir linhas no documento XML e no seu corpo percebe-se o uso do atributo IndentStr, que é aquela propriedade onde definidos qual será o caractere de tabulação que desejamos utilizar. Para usar esse função bastaria fazer: MeuXML.DocumentElement.ChildNodes.Insert(Index, XMlNode); Ainda não tive oportunidade para utilizar essa função. Mas assim que possível vou testá-la. Ficarei aguardando sua resposta também. Mas o que eu realmente quero fazer é utilizar o método SaveToFile e conseguir efetuar a edentação. Saudações!

Olá Jhonas! Consegui resolver meu problema! Depois de muito fuçar na internet comecei a juntar método daqui e dali e ver os resultados e descobri. Eis a solução para escrever a seguinte Tag com CDATA num XML: Saída desejada: <Aplicativo><![CDATA[Super Nerd Compiler]]></Aplicativo> Código Delphi: XMLDocument.DocumentElement.AddChild('Aplicativo').DOMNode.appendChild(XMLDocument.DOMDocument.createCDATASection('Super Nerd Compiler')); Obrigado!

O meu problema não é com XML, mas sim com o TXMLDocument. Para ler conteúdo com CDATA é mole, o problema é escrever um arquivo XML com TXMLDocument cujo tags possuem CDATA. Obrigado.

Boa tarde amigos! Estou com dificuldades no uso do TXMLDocument. Eu preciso salvar um arquivo XML usando o CDATA, ou seja, a tag teria de ficar da seguinte maneira (exemplo): <Nome><![CDATA[Super Nerd Compiler]]></Nome> Tentei fazer o seguinte: XMLDocument.DocumentElement.ChildNodes.Add(XMLDocument.CreateNode('Nome', ntCData)); XMLDocument.DocumentElement.ChildNodes.Nodes[0].NodeValue := 'Super Nerd Compiler'; Isso acaba produzindo o seguinte no XML: <![CDATA[Super Nerd Compiler]]> , omitindo a tag que deveria envolver o valor informado. O que fazer para resolver esse pepino ?

Bom dia! Estou criando novas funcionalidades para uma aplicação onde a variável global Application teve seu evento OnException associado a um procedimento. Na minha nova funcionalidade eu criei as minhas próprias classes de exceção e utilizo raise para dispará-las: raise MinhaExcecao.Create('Cuidado!'); Mas não consigo capturar as exceções utilizando blocos try..except quando eu bem entender, pois a aplicação dá prioridade ao tratador de exceções da variável Application. Existe alguma maneira de driblar isso ?? Obrigado!

Olá aalessandre! Talvez eu esteja equivocado, mas acredito que seja possível capturar todos os eventos de uma aplicação no evento OnMessage da variável global Application. O método OnMessage deve ser associado a um procedimento com o seguinte cabeçalho: procedure AppMessageHandle(var Msg: TMsg; var Handled: Boolean); Sempre que um evento ocorrer na sua aplicação este método será invocado! Falou!

Olá Jhonas! Infelizmente esse artigo não utiliza a classe TXMLDocument. Vou tentar explicar o que estou fazendo na minha aplicação: Eu tenho vários dados. Eu salvo esses dados em uma estrutura XML utilizando a classe TXMLDocument. Após salvar todos os dados necessários eu utilizo o método SaveToFile da classe TXMLDocument. O arquivo XML é salvo perfeitamente, mas sem a identação. Fica numa disposto em uma única linha. Logicamente eu consigo ler os dados novamente. A questão é mais de organização do que funcionamento. Já andei vasculhando na internet e a documentação da classe TXMLDocument é bastante escassa. De qualquer forma ficarei atento as postagens. Obrigado!

Olá Jhonas! Este tópico é fechado! Infelizmente não consigo vê-lo. De qualquer forma obrigado!

Olá Igor! Ainda não compreendi plenamente o que você deseja, mas imagino que você tem uma grade (DBGrid) com os registros e quando clica num registro as informações são carregadas nos TEdit's. Quando você troca de registro na grade deseja que os dados dos TEdit's sejam salvos. Estou certo ? Se for uma Grid ela está ligada a um banco de dados? Dê mais detalhes e tentarei ajudar. Valeu!

Olá Predes! Veja essas duas linhas: Sql.Add('Select * from Leitura'); Sql.Add('where status= :status and data between :pdata and :pdata2'); Não existe espaços entre as strings, o que resultaria nisto: 'Select * from Leiturawhere status= :status and data between :pdata and :pdata2' , resultando um erro no seu SQL. Quanto a citação: Note que você usou a palavra OU, isto me leva a crer que você deveria utilizar o operador lógico OR no seu SQL ao invés do AND. O LIKE é usado para comparação de valores strings com uso do coringa %. Com o LIKE você poderia fazer assim: Sql.Add('where status LIKE "%:status%" and data between :pdata and :pdata2'); Espero ter ajudado! Falou!

Olá Igor Leonne! Você pode impedir que o usuário altere o conteúdo de um TEdit definindo a propriedade Enabled para False ou a propriedade ReadOnly para True. Para facilitar você pode iterar em todos os componentes do seu formulário utlizando as propriedades ComponentCount e Components. Espero ter ajudado. Falou!

Olá Sonyer! Não compreendi inteiramente a sua questão, mas acredito que a função StringReplace da unit SysUtils possa resolver sua questão. Eis o cabeçalho da função: function StringReplace ( const SourceString, OldPattern, NewPattern : string; Flags : TReplaceFlags ) : string; Para mais detalhes visite o link: Delphi Basics : StringReplace command Falou!

Boa tarde colegas! Tenho uma dúvida sobre como indentar meus códigos XML gerados com o TXMLDocument. Já fiz alterações das propriedades NodeIndentStr e Options do objeto TXMLDocument mas não funcionou. Eis o código do construtor da classe. (A classe extende TXMLDocument): constructor TMeuXML.Create(AOwner: TComponent); begin inherited Create(AOwner); Self.Options := Self.Options + [doNodeAutoIndent]; // Indentar sim // Aqui nesta propriendade já tentei outros valores com #9 (código de tabulação), mas sem sucesso Self.NodeIndentStr := ' '; // Caractere para indentação do XML end; Para salvar o documento eu uso: Self.SaveToFile(sFilePath); Porém, na hora de abrir o XML o cabeçalho aparece na primeira linha, e o Node Root ba segunda linha indentado corretamente. O restante do XML fica tudo na mesma linha sequencialmente. O que está acontecendo ?

Boa tarde amigos! Eu tenho uma aplicação que implementa um TService, e este serviço utiliza carrega pacotes BPL. A aplicação têm funcionado muito bem nos testes que efetuei no Windows XP. Quando fui testar no Windows 2003 Server, o serviço demorou a inicializar e emitiu o erro 1053: "O serviço não respondeu à requisição de início ou controle em tempo hábil." Acredito que seja algum problema no momento de tentar carregar os pacote, mas não consegui capturar o erro. Procurei alguma coisa na rede a respeito do erro 1053 mas não encontrei algo que pudesse me ajudar. Alguém faz idéia do que pode estar acontecendo ?? Valeu!