kleberns

Desculpa a demora ! Obrigado vou verificar abs att. Nogueira

Sem resposta ainda

Cice, Entendeu agora ?! att. Nogueira

Pessoal, Eu uso o Delphi 6 PRO e preciso implementar o SOAP com o x.509, alguém tem uma ideia de como posso fazer isso ? att. Nogueira

não ! Por exemplo... Deu um pau no meu programa, ai eu quero saber o PROGRAMA/FUNCAO e a Linha q deu o pau. já vi que tem programas como o Exception Magic q faz isso, mas por que é tal dificil eu saber tais informacoes ? att. Nogueira

Sera q alguém pode me ajudar ?

Pessoal ! Utilizo o componente do francoi piette para comunicar com alguns servidores de web via HTTP, so que um pessoal quer implementar uma seguranca, um tal de SOAP. Perceberam que eu não entendo d nada de SOAP. alguém pode me ajudar a como comecar a utilizar este tal de SOAP ? Atenciosamente, att. Nogueira

Pessoal ! Existe algum servico onde eu posso procurar gratuitamente os dados do CEP e o nome da pessoal pelo CPF ?? att. Nogueira att. Nogueira

Legal ! Estou gostando das "solucoes" sobre este tópico. Infelizmente eu sou leigo neste assunto de ponteiros e manipulacao de objeto, mas se eu tiver algo eu vou ajudar com certeza. Por enquanto obrigado pelas respostas. att. Nogueira

Como assim usar classe ??? você pode me dar um exemplo e uma breve explicacao da sua ideia ? att. Nogueira

Legal ! Como assim usar classe ??? você pode me dar um exemplo e uma breve explicacao da sua ideia ? att. Nogueira

Bele ! type TDadosTrn = record Funcao : string; XMLDataHoraGeracao, XMLCD, XMLMSG, XMLNumero, XMLCDLoja, XMLDataHoraTransacao: string; end tu tenho esta estrutura de dados com seus campos, certo ?! Gostaria de acessar os campos desta estrutura não como ttDT.XMLDataHoraGeracao e sim ttDT.[uma variavel q contem o nome do campo], entendeu ? Pois o nome do campo e seu conteudo, vira em um arquivo TXT, então quando tiver uma inclusao de um novo campo, eu so vou no type TDadosTRN e jogo o campo la, por exemplo, XMLNOVOCAMPO e a rotina pra frente se vira para jogar o q veio no TXT. Exemplo: (arquivo.txt) = XMLNOVOCAMPO=CONTEUDO DESTE CAMPO -> (rotina padronizada de leitura do arquivo) ttDT.XMLNovoCampo=CONTEUDO DESTE CAMPO. att. Nogueira

Pessoal ! type TDadosTrn = record Funcao : string; XMLDataHoraGeracao, XMLCD, XMLMSG, XMLNumero, XMLCDLoja, XMLDataHoraTransacao: string; end; var ttDT: TDadosTrn; sCampo, sConteudo: string; Existe uma maneira de fazer a seguinte instrucao ? sCampo := 'XML' + CampoXML(sConteudo, ....); ttDT.scampo := sConteudo; Isto é somente um exemplo. OBS: vocês concordam q eu teria q fazer um case ???? não tem uma forma igual a q eu comentei acima ? att. Nogueira

valeu, mesmo assim muito obrigado ! att. Nogueira

Obrigado pelas informacoes, foram muito uteis. você tem material contendo estas informacoes q você me passou ? Ou melhor sobre Thread ? Se sim, você pode me passar ? att. Nogueira

Bele ! você comentou sobre TThread principal, o q é isto ? PS: Ta vendo que eu sou "meio" leigo nisso, ne ?1 att. Nogueira

Ultima Questao ! Um programa que fica verificando um diretorio, por exemplo, como você faria sua thread ? att. Nogueira

Ola ! Putz, então estou fora do conceito de TThread, pois eu imagina que tinha q ficar no while normalmente e o windows se virava para controlar este PROCESSO, tanto de CPU como de MEMORIA. Pergunta: Normalmente TThread, não funciona assim ? Um While sempre verificando algo ? Obrigado, att. Nogueira

Olá Pessoal ! Tenho a seguinte TThread, não tenho nem idéia o motivo da ativacao da mesma a CPU ir para 50. unit uTCriaLog; interface uses SAuxiliar , SDatas , Classes , SysUtils; type TCriaLog = class(TThread) private { Private declarations } tAUX : TSAuxiliar; tDAT : TSDatas; sWinDir , sSysDir , sTmpDir : string; procedure CriaLog; public tTexto : TStrings; constructor Create(CreateSuspended : Boolean); reintroduce; destructor Destroy; override; procedure AddInTxt(sBuf: string); protected procedure Execute; override; end; implementation { Important: Methods and properties of objects in VCL or CLX can only be used in a method called using Synchronize, for example, Synchronize(UpdateCaption); and UpdateCaption could look like, procedure TCriaLog.UpdateCaption; begin Form1.Caption := 'Updated in a thread'; end; } { TCriaLog } constructor TCriaLog.Create(CreateSuspended: Boolean); begin inherited Create(CreateSuspended); tTexto := TStringList.Create; tAUX := TSAuxiliar.Create; tDAT := TSDatas.Create; tAUX.GetWindowsDir(sWinDir, sSysDir, sTmpDir); tAUX.AjeitaPath(sWinDir); tAUX.AjeitaPath(sSysDir); tAUX.AjeitaPath(sTmpDir); end; destructor TCriaLog.Destroy; begin inherited destroy; tAUX.Free; tDAT.Free; tTexto.Free; end; procedure TCriaLog.Execute; begin While Not Terminated Do Begin If tTexto.Count > 0 Then Synchronize(CriaLog); End; end; procedure TCriaLog.CriaLog; var sFileName , sConteudo : string; pBuffer : PChar; iHndFile : integer; begin sConteudo := tTexto.Strings[0]; tTexto.Delete(0); sFileName := sSysDir + 'LOGTRM'; {não COLOCAR A BARRA NO FINAL, SOMENTE APOS A CRIACAO DO DIRETORIO} ForceDirectories(sFileName); tAUX.AjeitaPath(sFileName); sFileName := sFileName + tDAT.DToS(Date) + '.LOG'; pBuffer := NIL; iHndFile := -1; Try If Not FileExists(sFileName) Then iHndFile := FileCreate(sFileName) Else Begin iHndFile := FileOpen(sFileName, fmOpenWrite or fmShareDenyNone); FileSeek(iHndFile, 0, 2); End; If iHndFile > 0 Then Begin pBuffer := PChar(AllocMem(Length(sConteudo) + 1)); StrPCopy(pBuffer, sConteudo); FileWrite(iHndFile, pBuffer^, Length(sConteudo)); End; Finally FreeMem(pBuffer); If iHndFile > 0 Then FileClose(iHndFile); End; end; procedure TCriaLog.AddInTxt(sBuf: string); begin tTexto.Add(sBuf); end; end. att. Nogueira

Pessoal ! Como eu centralizo os textos do listbox, com relacao ao tamanho do meu listbox ? PS: Se eu aumentar a tela, o texto tem q acompanha a centralizacao att. Nogueira

Vou tentar, obrigado ! att. Nogueira

alguém poderia me ajudar nesta questao ? Obrigado, att. Nogueira

Olá Pessoal ! Estou tendo o seguinte problema. A minha aplicacao 16 bits em fox, chama meu executavel 32bits em Delphi. Só que o programa delphi, na primeira chamada, ele simplesmente retorna um ok no arquivo texto e não ativa a janela principal. quando o fox chama o delphi novamente (executavel), eu verifico se o delphi já ta rodando e mando uma mensagem (WM_USER) para o o que já esta executando. Ao mandar a mensagem, o delphi ativa a janela normalmente e fica por cima do fox, ate ai tudo bem, lindo, so que parece que o focu não esta nesta janela, precisando da um click no mouse na tela. Eu já tentei colocar o timer e coloquei Form1.SetFocus; (sem parar) e não funcionou, eu tive que simular o click do mouse (mouse_event), para que de certo, só que eu preciso ter o mouse ne?! e o cliente que não tiver ? Como eu posso contornar o problema ? PS: Eu tentei colocar no mesmo timer o comando SetForeGroundWindow, so que ele fica piscando e não joga o focu na janela tambem, o que eu fiz foi mudar o form para onTop e simular o click do mouse att. Nogueira