Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-17 Por tôpico Paulo Casagrande 
Bom dia...

  if pos('10. 5.50.',List[ i])  0 then
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt)
  else
s := copy(List[i] ,pos('192.168.',List[ i]),maxInt);
  ip := copy(s, 1, pos( ' ', s)-1);
  s := copy(s,pos(' GET',s)+3, maxint);
  url := copy(s, 1, pos( '- DIRECT', s)-1);
  s := copy(s,pos(' in ',s)+4,maxint) ;
  data := copy(s, 1, pos( ' ', s)-1);
  Hora := copy(s,pos(' ',s)+1,8);

 Boa sorte!

 Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser 
 192.168.254. * e ai como fica esta linha abaixo
 s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;

 so para lembrar da linha
 web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
 GET http://go.microsoft .com/fwlink/ ?
 web-proxy,debug, packet 1206551497.262 921 192.168.254. 101 
 TCP_MISS/302 556
 GET http://go.microsoft .com/fwlink/ ?

 Cara Valeu mesmo por sua ajuda.

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-17 Por tôpico marcosdiirr 
Paulo, em primeiro lugar bom dia... 
Cara de coração obrigado mesmo pela ajuda.
mas veja bem o íp eu quiz dizer que pode começar com alguer numero entendeu e 
ai, como eu faria ?
191 200.. 20.. 45... entendeu ?
Marcos Diirr

Bom dia...

if pos('10. 5.50.',List[ i])  0 then
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt)
else
s := copy(List[i] ,pos('192.168.',List[ i]),maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos(' GET',s)+3, maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint) ;
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);

Boa sorte!

 Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser 
 192.168.254. * e ai como fica esta linha abaixo
 s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;

 so para lembrar da linha
 web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
 GET http://go.microsoft .com/fwlink/ ?
 web-proxy,debug, packet 1206551497.262 921 192.168.254. 101 
 TCP_MISS/302 556
 GET http://go.microsoft .com/fwlink/ ?

 Cara Valeu mesmo por sua ajuda.




 


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-17 Por tôpico Paulo Casagrande 
  Paulo, em primeiro lugar bom dia...
  Cara de coração obrigado mesmo pela ajuda.
  mas veja bem o íp eu quiz dizer que pode começar com alguer numero 
entendeu e ai, como eu faria ?
  191 200.. 20.. 45... entendeu ?

Bom dia novamente...

Observe que o Ip que você quer vem após 4 espaços em branco

web-proxy,debug, packet 1206551497.262 921 10.5.50.2...
web-proxy,debug, packet 1206551497.268 925 10.5.50.2...
web-proxy,debug, packet 1206551498.304 962 10.5.50.2...

assim sendo...

s := copy(List[i], pos(' ',List[ i])+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);

ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos(' GET',s)+3, maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint) ;
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);

PS: Não testei.

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-17 Por tôpico Moacir - GMail 
Marcos,

Não acompanhei toda a thread mas vejamos se posso ajuda-lo:

Com base do trecho abaixo do arquivo:



web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
web-proxy,debug, packet 1206551497.262 921 192.168.254. 101 
TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?




Procedure le_arquivo(sAquivo:String;);
var
   sLinha  : String;
   iPos,
   iLinha : Integer;
   sIP,
   sURL ,
   sDado : tStrings;
const
   TRECHOIP = 'web-proxy,debug, packet 1206551497.262 921 ';
   TRECHOURL = 'GET ';
   FIM  =' ?';
Begin
sDado:=tStringList.Create;
sIP:=tStringList.Create;
sURL:=tStringList.Create;
//--  Deve ser feita uma validação da existencia do arquivo !!!
sDado.LoadFromFile(sArquivo);
For iLinha:=0 to sDado.Count-1 do
begin
  sLinha := sDado[iLinha];  
  iPos :=  Pos(TRECHOIP,sLinha);
  If  iPos0 then
  begin
sLinha :=  
Trim(Copy(sLinha,iPos+Length(TRECHOIP),Length(sLinha) );
sIP.Add(Copy(sLinha,1,Pos(sLinha,' ')-1);
sLinha := Copy(sLinha,Pos(sLinha,' '),Length(sLinha));
iPos := Pos(TRECHOURL,sLinha);
sLinha :=  
Trim(Copy(sLinha,iPos+Length(TRECHOURL),Length(sLinha));
sURL.Add(trim(Copy(sLinha,1,Pos(sLinha,FIM)-1)));
  end;   
end;
//-- Aqui utiliza sIP e sURL...


end;

Não testei o codigo acima mas acredito que deva te ajudar !!

Sucesso !!!

Moacir


marcosdiirr escreveu:
 Paulo, em primeiro lugar bom dia... 
 Cara de coração obrigado mesmo pela ajuda.
 mas veja bem o íp eu quiz dizer que pode começar com alguer numero entendeu e 
 ai, como eu faria ?
 191 200.. 20.. 45... entendeu ?
 Marcos Diirr

 Bom dia...

 if pos('10. 5.50.',List[ i])  0 then
 s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt)
 else
 s := copy(List[i] ,pos('192.168.',List[ i]),maxInt);
 ip := copy(s, 1, pos( ' ', s)-1);
 s := copy(s,pos(' GET',s)+3, maxint);
 url := copy(s, 1, pos( '- DIRECT', s)-1);
 s := copy(s,pos(' in ',s)+4,maxint) ;
 data := copy(s, 1, pos( ' ', s)-1);
 Hora := copy(s,pos(' ',s)+1,8);

 Boa sorte!

   
 Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser 
 192.168.254. * e ai como fica esta linha abaixo
 s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;

 so para lembrar da linha
 web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
 GET http://go.microsoft .com/fwlink/ ?
 web-proxy,debug, packet 1206551497.262 921 192.168.254. 101 
 TCP_MISS/302 556
 GET http://go.microsoft .com/fwlink/ ?

 Cara Valeu mesmo por sua ajuda.


 


  


 [As partes desta mensagem que não continham texto foram removidas]


 

   


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-17 Por tôpico marcosdiirr 
Paulo deu certo nao repare que so vem um 1 espaço antes do ip
web-proxy,debug,packet 1208345783.029   1234 10.5.50.90 TCP_MISS/200 5177 GET 
http://www.orkut.com/Album.aspx? - DIRECT/66.249.81.85 text/html in 16-Apr 
11:38:18.68 from 10.5.50.145
web-proxy,debug,packet 1208345787.136   1026 10.5.50.66 TCP_MISS/200 10670 GET 
http://i199.photobucket.com/albums/aa91/gugabyte/responda.gif - 
DIRECT/209.17.65.16 image/gif in 16-Apr 11:38:22.77 from 10.5.50.145
web-proxy,debug,packet 1208345786.656544 10.5.50.66 TCP_MISS/200 2327 GET 
http://img1.orkut.com/images/small/1208315541/89210270.jpg - 
DIRECT/209.85.193.87 image/jpeg in 16-Apr 11:38:22.30 from 10.5.50.145

Marcos
 Paulo, em primeiro lugar bom dia...
 Cara de coração obrigado mesmo pela ajuda.
 mas veja bem o íp eu quiz dizer que pode começar com alguer numero 
entendeu e ai, como eu faria ?
 191 200.. 20.. 45... entendeu ?

Bom dia novamente...

Observe que o Ip que você quer vem após 4 espaços em branco

web-proxy,debug, packet 1206551497.262 921 10.5.50.2...
web-proxy,debug, packet 1206551497.268 925 10.5.50.2...
web-proxy,debug, packet 1206551498.304 962 10.5.50.2...

assim sendo...

s := copy(List[i], pos(' ',List[ i])+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);
s := copy(s, pos(' ',s)+1,maxInt);

ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos(' GET',s)+3, maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint) ;
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);

PS: Não testei.

 


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-17 Por tôpico marcosdiirr 
Paulo hheheh to abusando ne cara ? mas e que to precisando mesmo meu amigo.
olha so tambem tenho que pegar estes campos que estao em vermelho blz ?
web-proxy,debug,packet 1208372932.554   1117 10.5.50.142 TCP_MISS/206 19832 GET 
http://au.download.windowsupdate.com/msdownload/update/v3-19990518/cabpool/windowsxp-kb890859-x86-express-ptb_c5bcf7fb51b54d8b920cdf7e6eb3ef7988aaacf8.exe
 - DIRECT/68.142.101.229 application/octet-st in 16-Apr 19:10:48.17 from 
10.5.50.145

web-proxy,debug,packet 1208372932.775 13 10.5.50.18 TCP_HIT/200 3389 GET 
http://ego.globo.com/Portal/cda/estilo_css_cda/0,,6328,00.css - NONE/- text/css 
in 16-Apr 19:10:48.39 from 10.5.50.145

web-proxy,debug,packet 1208372932.903  0 10.5.50.18 TCP_HIT/200 591 GET 
http://assinaturasms.globo.com/Portal/globocelular/js/retorno.js - NONE/- 
application/x-javascript in 16-Apr 19:10:48.51 from 10.5.50.145

web-proxy,debug,packet 1208372931.251 63 10.5.50.18 TCP_HIT/200 390 GET 
http://www.globo.com/ImageShow/0,,120949,00.gif - NONE/- image/gif in 16-Apr 
19:10:46.86 from 10.5.50.145
web-proxy,debug,packet 1208372931.879   4055 10.5.50.90 TCP_MISS/404 515 GET 
ttp://www2.consorciocontauto.com.br/favicon.ico - DIRECT/201.30.222.65 
text/html in 16-Apr 19:10:47.50 from 10.5.50.145
ou seja tcp_miss ou tcp_hit
e depois que tipo text/html ect ect.
blz ?

da esta força ai meu amigo


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-17 Por tôpico marcosdiirr 
Paulo desculpa pelo português, mas e a presa meu amigo,  mas não deu certo não 
e agora ?, Leu meu outro email  ?
 
Atenciosamente.
 
Marcos Diirr

Marcos

Se você colocar pelo menos 1 vírgula
na frase abaixo eu vou entender o sentido da mesma :)

Paulo deu certo nao repare que so vem um 1 espaço antes do ip

Quanto aos espaços em branco são 4 mesmo, verifique a partir
da palavra web!

web-proxy,debug, packet 1208345783.029 1234 10.5.50.90 TCP_MISS/200 5177 
GET http://www.orkut. com/Album. aspx? 
http://www.orkut.com/Album.aspx? - DIRECT/66.249. 81.85 text/html in 
16-Apr 11:38:18.68 from 10.5.50.145


 


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-17 Por tôpico Joel Alexandre 
Marcos,

Te dei uma solucao com exemplo. Basta usar

[]Os Joel
 Paulo, em primeiro lugar bom dia... 
 Cara de coração obrigado mesmo pela ajuda.
 mas veja bem o íp eu quiz dizer que pode começar com alguer numero entendeu e 
 ai, como eu faria ?
 191 200.. 20.. 45... entendeu ?
 Marcos Diirr

 Bom dia...

 if pos('10. 5.50.',List[ i])  0 then
 s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt)
 else
 s := copy(List[i] ,pos('192.168.',List[ i]),maxInt);
 ip := copy(s, 1, pos( ' ', s)-1);
 s := copy(s,pos(' GET',s)+3, maxint);
 url := copy(s, 1, pos( '- DIRECT', s)-1);
 s := copy(s,pos(' in ',s)+4,maxint) ;
 data := copy(s, 1, pos( ' ', s)-1);
 Hora := copy(s,pos(' ',s)+1,8);

 Boa sorte!

   
 Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser 
 192.168.254. * e ai como fica esta linha abaixo
 s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;

 so para lembrar da linha
 web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
 GET http://go.microsoft .com/fwlink/ ?
 web-proxy,debug, packet 1206551497.262 921 192.168.254. 101 
 TCP_MISS/302 556
 GET http://go.microsoft .com/fwlink/ ?

 Cara Valeu mesmo por sua ajuda.


 


  


 [As partes desta mensagem que não continham texto foram removidas]


 

   



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-16 Por tôpico Paulo Casagrande 
Bom dia...

1) Fiz de cabeça!
2) Não testei!
3) Os ajuste é com você!
4) Okay ?

s := copy(linha[i],pos('10.5.50.',linha[i]),maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos('GET',s)+3,maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint);
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);

Boa sorte

 ex. tenho um arquivo txt conforme abaixo

 web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
 GET http://go.microsoft .com/fwlink/ ? 
 http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html
 in 26-Mar 17:13:3.71 from 10.5.50.1
 web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
 GET http://go.microsoft .com/fwlink/ ? 
 http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html
 in 26-Mar 17:13:3.72 from 10.5.50.1
 web-proxy,debug, packet 1206551498.304 962 10.5.50.2
 TCP_CLIENT_REFRESH_ MISS/304 171 GET
 http://www.microsof t.com/brasil/ technet/rss/ rss.xml 
 http://www.microsoft.com/brasil/technet/rss/rss.xml -
 DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
 web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
 GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml 
 http://www.microsoft.com/brasil/msdn/rss/rss.xml -
 DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1

 preciso pegar os seguintes campos e salva-los em uma tabela ficando +
 ou - assim

 ex. 1 linha do arquivo acima

 campo ip campo - 10.5.50.2
 ur - http://go.microsoft .com/fwlink/ ? http://go.microsoft.com/fwlink/?
 Campo data - 26-Mar
 Campo hora - 17:13:3.71

 e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
 faça isto ?

 ja me falaram pos copy so que reparem que nada começa numa mesma
 posição

 mas preciso de ex. mais basico

 Desde ja fico muito grato com qualquer ajuda.

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-16 Por tôpico Joel Alexandre 
Marcos,

Fazer o que vc precisa é muito fácil. Uma dica seria a seguinte, 
pega essa string e quebre em campos separados por espaços. Por exemplo:

FRASE PARA DEMONSTRACAO. Essa frase ficaria numa Stringlist assim:
Stringlist[0] := FRASE
Stringlist[1] := PARA
Stringlist[2] := DEMONSTRACAO

Assim fica fácil :)

Segue a funcao para quebra.

**
FUNCTION QuebraStr(BaseString, BreakString: STRING; StringList: 
TStringList): TStringList;
VAR
   EndOfCurrentString: byte;
BEGIN
   REPEAT
  EndOfCurrentString := Pos(BreakString, BaseString);
  IF EndOfCurrentString = 0 THEN
 StringList.add(BaseString)
  ELSE
 StringList.add(Copy(BaseString, 1, EndOfCurrentString - 1));
  BaseString := Copy(BaseString, EndOfCurrentString + 
length(BreakString), length(BaseString) - EndOfCurrentString);
   UNTIL EndOfCurrentString = 0;
   result := StringList;
END;
**

Pra usar faça assim:

Var
  St : TStringList;
  Linha : String;
  cIp, cUrl, cData, cHora  : String
Begin
  St := TStringList.Create;
  St := QuebraStr( SuaStringDeLog, ' ', St);
  cIp := St[x];
  cUrl := St[y];
  cData := St[z];
  St.Free;
End;

É mais ou menos isso

Ps. Nao testei o fonte que coloquei aqui entao é possivel que tenha 
erros, mas é só verificar os erros e usar ok?

[]Os Joel

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-16 Por tôpico Claudio Marconi 
no cole o arquivo na mensagem, mande como anexo mesmo em formato txt.
em arquivo separado.

tendeu ?


Em 16/04/08, Paulo Casagrande [EMAIL PROTECTED] escreveu:

   Bom dia...

 1) Fiz de cabeça!
 2) Não testei!
 3) Os ajuste é com você!
 4) Okay ?

 s := copy(linha[i],pos('10.5.50.',linha[i]),maxInt);
 ip := copy(s, 1, pos( ' ', s)-1);
 s := copy(s,pos('GET',s)+3,maxint);
 url := copy(s, 1, pos( '- DIRECT', s)-1);
 s := copy(s,pos(' in ',s)+4,maxint);
 data := copy(s, 1, pos( ' ', s)-1);
 Hora := copy(s,pos(' ',s)+1,8);

 Boa sorte
 
  ex. tenho um arquivo txt conforme abaixo
 
  web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
  GET http://go.microsoft .com/fwlink/ ?
  http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html
  in 26-Mar 17:13:3.71 from 10.5.50.1
  web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
  GET http://go.microsoft .com/fwlink/ ?
  http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html
  in 26-Mar 17:13:3.72 from 10.5.50.1
  web-proxy,debug, packet 1206551498.304 962 10.5.50.2
  TCP_CLIENT_REFRESH_ MISS/304 171 GET
  http://www.microsof t.com/brasil/ technet/rss/ rss.xml
  http://www.microsoft.com/brasil/technet/rss/rss.xml -
  DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
  web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
  GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml
  http://www.microsoft.com/brasil/msdn/rss/rss.xml -
  DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
 
  preciso pegar os seguintes campos e salva-los em uma tabela ficando +
  ou - assim
 
  ex. 1 linha do arquivo acima
 
  campo ip campo - 10.5.50.2
  ur - http://go.microsoft .com/fwlink/ ? 
 http://go.microsoft.com/fwlink/?
  Campo data - 26-Mar
  Campo hora - 17:13:3.71
 
  e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
  faça isto ?
 
  ja me falaram pos copy so que reparem que nada começa numa mesma
  posição
 
  mas preciso de ex. mais basico
 
  Desde ja fico muito grato com qualquer ajuda.
 

  




-- 
Cláudio Marconi
Delphi/DirectShow Developer
55 61 8406-6451


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-16 Por tôpico Paulo Casagrande 
Claudio Marconi escreveu:

 no cole o arquivo na mensagem, mande como anexo mesmo em formato txt.
 em arquivo separado.

 tendeu ?

Não!

Não colei nada apenas respondi a pergunta.
Se foi alguma coisa colada é por conta da configuração do Thunderbird :)


  Bom dia...
 
  1) Fiz de cabeça!
  2) Não testei!
  3) Os ajuste é com você!
  4) Okay ?
 
  s := copy(linha[i] ,pos('10. 5.50.',linha[ i]),maxInt) ;
  ip := copy(s, 1, pos( ' ', s)-1);
  s := copy(s,pos(' GET',s)+3, maxint);
  url := copy(s, 1, pos( '- DIRECT', s)-1);
  s := copy(s,pos(' in ',s)+4,maxint) ;
  data := copy(s, 1, pos( ' ', s)-1);
  Hora := copy(s,pos(' ',s)+1,8);
 
  Boa sorte

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-16 Por tôpico marcosdiirr 
Valeu Paulo prob. quase resolvido.
agora preciso percorer o aquivo txt ate o final gravando cada campo em um banco 
de dados como posso fazer isto e o sistema me avisar que ja compretou chegou a 
ultima linha ?

Atenciosamente 
Marcos Diirr

Bom dia...

1) Fiz de cabeça!
2) Não testei!
3) Os ajuste é com você!
4) Okay ?

s := copy(linha[i],pos('10.5.50.',linha[i]),maxInt);
ip := copy(s, 1, pos( ' ', s)-1);
s := copy(s,pos('GET',s)+3,maxint);
url := copy(s, 1, pos( '- DIRECT', s)-1);
s := copy(s,pos(' in ',s)+4,maxint);
data := copy(s, 1, pos( ' ', s)-1);
Hora := copy(s,pos(' ',s)+1,8);

Boa sorte

 ex. tenho um arquivo txt conforme abaixo

 web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
 GET http://go.microsoft .com/fwlink/ ? 
 http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html
 in 26-Mar 17:13:3.71 from 10.5.50.1
 web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
 GET http://go.microsoft .com/fwlink/ ? 
 http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html
 in 26-Mar 17:13:3.72 from 10.5.50.1
 web-proxy,debug, packet 1206551498.304 962 10.5.50.2
 TCP_CLIENT_REFRESH_ MISS/304 171 GET
 http://www.microsof t.com/brasil/ technet/rss/ rss.xml 
 http://www.microsoft.com/brasil/technet/rss/rss.xml -
 DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
 web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
 GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml 
 http://www.microsoft.com/brasil/msdn/rss/rss.xml -
 DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1

 preciso pegar os seguintes campos e salva-los em uma tabela ficando +
 ou - assim

 ex. 1 linha do arquivo acima

 campo ip campo - 10.5.50.2
 ur - http://go.microsoft .com/fwlink/ ? http://go.microsoft.com/fwlink/?
 Campo data - 26-Mar
 Campo hora - 17:13:3.71

 e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
 faça isto ?

 ja me falaram pos copy so que reparem que nada começa numa mesma
 posição

 mas preciso de ex. mais basico

 Desde ja fico muito grato com qualquer ajuda.



 


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-16 Por tôpico Paulo Casagrande 
var
  list: TStringList;
  i : integer;
  // declara as outra variaveis
begin
  list := TStringList.Create;
  list.LoadFromFile( 'C:\meuarquivo.log');
  for i := 0 to list.count - 1 do
  begin
// executa a captura dos dados
// Grava no arquivo
  end;
  // Quando ele sair do loop, acabou o arquivo!
end;

 Valeu Paulo prob. quase resolvido.
 agora preciso percorer o aquivo txt ate o final gravando cada campo em 
 um banco de dados como posso fazer isto e o sistema me avisar que ja 
 compretou chegou a ultima linha ?

 Atenciosamente
 Marcos Diirr

 Bom dia...

 1) Fiz de cabeça!
 2) Não testei!
 3) Os ajuste é com você!
 4) Okay ?

 s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;
 ip := copy(s, 1, pos( ' ', s)-1);
 s := copy(s,pos(' GET',s)+3, maxint);
 url := copy(s, 1, pos( '- DIRECT', s)-1);
 s := copy(s,pos(' in ',s)+4,maxint) ;
 data := copy(s, 1, pos( ' ', s)-1);
 Hora := copy(s,pos(' ',s)+1,8);

 Boa sorte
 
  ex. tenho um arquivo txt conforme abaixo
 
  web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
  GET http://go.microsoft .com/fwlink/ ?
  http://go.microsoft .com/fwlink/ ? 
 http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html
  in 26-Mar 17:13:3.71 from 10.5.50.1
  web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
  GET http://go.microsoft .com/fwlink/ ?
  http://go.microsoft .com/fwlink/ ? 
 http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html
  in 26-Mar 17:13:3.72 from 10.5.50.1
  web-proxy,debug, packet 1206551498.304 962 10.5.50.2
  TCP_CLIENT_REFRESH_ MISS/304 171 GET
  http://www.microsof t.com/brasil/ technet/rss/ rss.xml
  http://www.microsof t.com/brasil/ technet/rss/ rss.xml 
 http://www.microsoft.com/brasil/technet/rss/rss.xml -
  DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
  web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
  GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml
  http://www.microsof t.com/brasil/ msdn/rss/ rss.xml 
 http://www.microsoft.com/brasil/msdn/rss/rss.xml -
  DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
 
  preciso pegar os seguintes campos e salva-los em uma tabela ficando +
  ou - assim
 
  ex. 1 linha do arquivo acima
 
  campo ip campo - 10.5.50.2
  ur - http://go.microsoft .com/fwlink/ ? http://go.microsoft 
 .com/fwlink/ ? http://go.microsoft.com/fwlink/?
  Campo data - 26-Mar
  Campo hora - 17:13:3.71
 
  e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
  faça isto ?
 
  ja me falaram pos copy so que reparem que nada começa numa mesma
  posição
 
  mas preciso de ex. mais basico
 
  Desde ja fico muito grato com qualquer ajuda.

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-16 Por tôpico marcosdiirr 
Paulo so teve um prob. nem todos os ips so 10.5.50.* podem ser 192.168.254.* e 
ai como fica esta linha abaixo
s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;

so para lembrar da linha 
web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?
web-proxy,debug, packet 1206551497.262 921 192.168.254.101 TCP_MISS/302 556
GET http://go.microsoft .com/fwlink/ ?

Cara Valeu mesmo por sua ajuda.

Marcos Diirr



var
list: TStringList;
i : integer;
// declara as outra variaveis
begin
list := TStringList.Create;
list.LoadFromFile( 'C:\meuarquivo.log');
for i := 0 to list.count - 1 do
begin
// executa a captura dos dados
// Grava no arquivo
end;
// Quando ele sair do loop, acabou o arquivo!
end;

 Valeu Paulo prob. quase resolvido.
 agora preciso percorer o aquivo txt ate o final gravando cada campo em 
 um banco de dados como posso fazer isto e o sistema me avisar que ja 
 compretou chegou a ultima linha ?

 Atenciosamente
 Marcos Diirr

 Bom dia...

 1) Fiz de cabeça!
 2) Não testei!
 3) Os ajuste é com você!
 4) Okay ?

 s := copy(List[i] ,pos('10. 5.50.',List[ i]),maxInt) ;
 ip := copy(s, 1, pos( ' ', s)-1);
 s := copy(s,pos(' GET',s)+3, maxint);
 url := copy(s, 1, pos( '- DIRECT', s)-1);
 s := copy(s,pos(' in ',s)+4,maxint) ;
 data := copy(s, 1, pos( ' ', s)-1);
 Hora := copy(s,pos(' ',s)+1,8);

 Boa sorte
 
  ex. tenho um arquivo txt conforme abaixo
 
  web-proxy,debug, packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
  GET http://go.microsoft .com/fwlink/ ?
  http://go.microsoft .com/fwlink/ ? 
 http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html
  in 26-Mar 17:13:3.71 from 10.5.50.1
  web-proxy,debug, packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
  GET http://go.microsoft .com/fwlink/ ?
  http://go.microsoft .com/fwlink/ ? 
 http://go.microsoft.com/fwlink/? - DIRECT/64.4. 52.189 text/html
  in 26-Mar 17:13:3.72 from 10.5.50.1
  web-proxy,debug, packet 1206551498.304 962 10.5.50.2
  TCP_CLIENT_REFRESH_ MISS/304 171 GET
  http://www.microsof t.com/brasil/ technet/rss/ rss.xml
  http://www.microsof t.com/brasil/ technet/rss/ rss.xml 
 http://www.microsoft.com/brasil/technet/rss/rss.xml -
  DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
  web-proxy,debug, packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
  GET http://www.microsof t.com/brasil/ msdn/rss/ rss.xml
  http://www.microsof t.com/brasil/ msdn/rss/ rss.xml 
 http://www.microsoft.com/brasil/msdn/rss/rss.xml -
  DIRECT/207.46. 19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
 
  preciso pegar os seguintes campos e salva-los em uma tabela ficando +
  ou - assim
 
  ex. 1 linha do arquivo acima
 
  campo ip campo - 10.5.50.2
  ur - http://go.microsoft .com/fwlink/ ? http://go.microsoft 
 .com/fwlink/ ? http://go.microsoft.com/fwlink/?
  Campo data - 26-Mar
  Campo hora - 17:13:3.71
 
  e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
  faça isto ?
 
  ja me falaram pos copy so que reparem que nada começa numa mesma
  posição
 
  mas preciso de ex. mais basico
 
  Desde ja fico muito grato com qualquer ajuda.



 


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Capturar texto ... urgente socorro...

2008-04-15 Por tôpico marcosdiirr 
ex. tenho um arquivo txt conforme abaixo

web-proxy,debug,packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556 
GET http://go.microsoft.com/fwlink/? - DIRECT/64.4.52.189 text/html 
in 26-Mar 17:13:3.71 from 10.5.50.1
web-proxy,debug,packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550 
GET http://go.microsoft.com/fwlink/? - DIRECT/64.4.52.189 text/html 
in 26-Mar 17:13:3.72 from 10.5.50.1
web-proxy,debug,packet 1206551498.304 962 10.5.50.2 
TCP_CLIENT_REFRESH_MISS/304 171 GET 
http://www.microsoft.com/brasil/technet/rss/rss.xml - 
DIRECT/207.46.19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
web-proxy,debug,packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168 
GET http://www.microsoft.com/brasil/msdn/rss/rss.xml - 
DIRECT/207.46.19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1

preciso pegar os seguintes campos e salva-los em uma tabela ficando + 
ou - assim 

ex. 1 linha do arquivo acima 

campo ip campo  -  10.5.50.2
ur  -  http://go.microsoft.com/fwlink/?
Campo data  -  26-Mar
Campo hora  -  17:13:3.71


e assim ate o fim do arquivo.. alguem poderia me da uma rotina que 
faça isto ?

ja me falaram pos copy so que reparem que nada começa numa mesma 
posição 

mas preciso de ex. mais basico 

Desde ja fico muito grato com qualquer ajuda.

Re: [delphi-br] Capturar texto ... urgente socorro...

2008-04-15 Por tôpico Claudio Marconi 
se vc enviar o arquivo texto em anexo fica mais fácil.

pode enviar ?


Em 15/04/08, marcosdiirr [EMAIL PROTECTED] escreveu:

   ex. tenho um arquivo txt conforme abaixo

 web-proxy,debug,packet 1206551497.262 921 10.5.50.2 TCP_MISS/302 556
 GET http://go.microsoft.com/fwlink/? - DIRECT/64.4.52.189 text/html
 in 26-Mar 17:13:3.71 from 10.5.50.1
 web-proxy,debug,packet 1206551497.268 925 10.5.50.2 TCP_MISS/302 550
 GET http://go.microsoft.com/fwlink/? - DIRECT/64.4.52.189 text/html
 in 26-Mar 17:13:3.72 from 10.5.50.1
 web-proxy,debug,packet 1206551498.304 962 10.5.50.2
 TCP_CLIENT_REFRESH_MISS/304 171 GET
 http://www.microsoft.com/brasil/technet/rss/rss.xml -
 DIRECT/207.46.19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1
 web-proxy,debug,packet 1206551498.312 969 10.5.50.2 TCP_MISS/304 168
 GET http://www.microsoft.com/brasil/msdn/rss/rss.xml -
 DIRECT/207.46.19.190 - in 26-Mar 17:13:4.75 from 10.5.50.1

 preciso pegar os seguintes campos e salva-los em uma tabela ficando +
 ou - assim

 ex. 1 linha do arquivo acima

 campo ip campo - 10.5.50.2
 ur - http://go.microsoft.com/fwlink/?
 Campo data - 26-Mar
 Campo hora - 17:13:3.71

 e assim ate o fim do arquivo.. alguem poderia me da uma rotina que
 faça isto ?

 ja me falaram pos copy so que reparem que nada começa numa mesma
 posição

 mas preciso de ex. mais basico

 Desde ja fico muito grato com qualquer ajuda.

  




-- 
Cláudio Marconi
Delphi/DirectShow Developer
55 61 8406-6451


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Capturar Texto

2006-08-19 Por tôpico Gerson Thomaz Santos 



Amigos, ja ouviram falar do MadSHI Except 
(http://www.madshi.net/madExceptDescription.htm) ???  

Esse é um exemplo de Report dele por email:

date/time : 2006-08-02, 08:50:32, 875ms
computer name : SERVIDOR
user name : Adminadmin
operating system  : Windows XP Service Pack 2 build 2600
system language   : Portuguese
system up time: 8 hours 34 minutes
program up time   : 15 seconds
processors: 2x Intel(R) Pentium(R) 4 CPU 3.00GHz
physical memory   : 684/1023 MB (free/total)
free disk space   : (C:) 31,13 GB
display mode  : 1024x768, 16 bit
process id: $fb4
allocated memory  : 15,42 MB
executable: SYSTEM_Servidor.exe
exec. date/time   : 2006-08-01 10:54
madExcept version : 3.0b
callstack crc : $2164a695, $2c9d26d5, $09c0a046
exception number  : 1
exception class   : EAccessViolation
exception message : Access violation at address 006D2878 in module 
'SYSTEM_Servidor.exe'. Read of address .

thread $f64 (TVrTimerThread):
006d2878 +06c SYSTEM_Servidor.exe Unit1  4875  +1 TForm1.tbEVEHAfterOpen
00542d2d +015 SYSTEM_Servidor.exe DB10757  +1 TDataSet.DoAfterOpen
0053fc39 +051 SYSTEM_Servidor.exe DB 8880  +8 
TDataSet.OpenCursorComplete
0053fb5f +077 SYSTEM_Servidor.exe DB 8850 +15 TDataSet.SetActive
0053fba3 +0bb SYSTEM_Servidor.exe DB 8857 +22 TDataSet.SetActive
0053f988 +004 SYSTEM_Servidor.exe DB 8803  +0 TDataSet.Open
006cb1c1 +0cd SYSTEM_Servidor.exe Unit1  2656  +6 TForm1.ControlaHistorico
006dff53 +237 SYSTEM_Servidor.exe Unit1  7662 +79 TForm1.Timer1Timer
0051cf24 +034 SYSTEM_Servidor.exe VrThreads   294  +4 TVrTimer.Timer
0051cc60 +008 SYSTEM_Servidor.exe VrThreads   163  +1 TVrTimerThread.CallEvent
0051cc48 +04c SYSTEM_Servidor.exe VrThreads   156 +10 TVrTimerThread.Execute
0044d963 +02b SYSTEM_Servidor.exe madExcept   HookedTThreadExecute
00472308 +034 SYSTEM_Servidor.exe Classes ThreadProc
004050b4 +028 SYSTEM_Servidor.exe System  ThreadWrapper
0044d845 +00d SYSTEM_Servidor.exe madExcept   CallThreadProcSafe
0044d8af +037 SYSTEM_Servidor.exe madExcept   ThreadExceptFrame
 created by main thread ($bcc) at:
0051cb85 +039 SYSTEM_Servidor.exe VrThreads   129  +4 TVrTimerThread.Create



Utilizamos em nossos sistemas e sinceramente, é do tipo.. Nossa, como eu vivi 
até agora sem isso UahuHAUuahUAhauHUAHuahUAHuah

Ele tira uma PrintScreen, manda o Log, e de quebra, ainda dah pra saber qual a 
linha gerou o Erro

Enfim, baixem, conhecam, adiquiram (US$ 99,00baratíssimo para o que faz),  
e nunca mais se arrependam

Haaa antes q alguem fale:  Não não sou marketeiro ou comercial dos kra, é q o 
bicho é booomesmo

Abração e espero ter ajudado ;)



Atenciosamente,
Gerson Thomaz Santos
Analista de Sistema


Esta mensagem pode conter informação confidencial e/ou privilegiada.  Se você 
não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode 
usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação 
baseada nessas informações.  Se você recebeu esta mensagem por engano, por 
favor avise imediatamente o remetente, respondendo o e-mail e em seguida 
apague-a.  Agradecemos sua cooperação.


- Original Message - 
From: Desenvolvimento (Anderson) 
To: delphi-br@yahoogrupos.com.br 
Sent: Friday, August 18, 2006 3:23 PM
Subject: Re: [delphi-br] Capturar Texto 


e como saber qual objeto/evento gerou a excessão?

  - Original Message - 
  From: Marco Aurélio (DELPHI) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 18, 2006 1:31 PM
  Subject: Re: [delphi-br] Capturar Texto 


  utilize da paleta standard  o componente  application.events. Este componente 
captura todo o evento que ocorre na aplicação inclusive as exceções.

  Atenciosamente
  Marco Aurélio Gerônimo

- Original Message - 
From: roberto ezequiel 
To: delphi-br@yahoogrupos.com.br 
Sent: Friday, August 11, 2006 7:22 PM
Subject: [delphi-br] Capturar Texto 


Olá pessoal...
   
  Tenho um sistema e gostaria de capturar o texto do erro que aparece na 
tela do cliente... 
  Exemplo... quando acontece algum erro, tanto de tela quando de banco, o 
sistema armazenaria em um bloco de notas (.txt), que seria uma espécie de log 
de erro, e quando fosse dada a manubtenção poderia se abrir este txt e ler o 
que houve de erro!!!
   
  Se alguém puder me dar uma luz, agradeceria...
   
   
  Obrigado


-
Yahoo! Search
Música para ver e ouvir: You're Beautiful, do James Blunt

[As partes desta mensagem que não continham texto foram removidas]

 

  [As partes desta mensagem que não continham texto foram removidas]

   

  __ Informação do NOD32 IMON 1.1714 (20060818) __

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br


[As partes

Re: [delphi-br] Capturar Texto

2006-08-18 Por tôpico Marco Aurélio \(DELPHI\) 
utilize da paleta standard  o componente  application.events. Este componente 
captura todo o evento que ocorre na aplicação inclusive as exceções.

Atenciosamente
Marco Aurélio Gerônimo

  - Original Message - 
  From: roberto ezequiel 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 11, 2006 7:22 PM
  Subject: [delphi-br] Capturar Texto 


  Olá pessoal...
 
Tenho um sistema e gostaria de capturar o texto do erro que aparece na tela 
do cliente... 
Exemplo... quando acontece algum erro, tanto de tela quando de banco, o 
sistema armazenaria em um bloco de notas (.txt), que seria uma espécie de log 
de erro, e quando fosse dada a manubtenção poderia se abrir este txt e ler o 
que houve de erro!!!
 
Se alguém puder me dar uma luz, agradeceria...
 
 
Obrigado

  
  -
  Yahoo! Search
  Música para ver e ouvir: You're Beautiful, do James Blunt

  [As partes desta mensagem que não continham texto foram removidas]

   

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Capturar Texto

2006-08-18 Por tôpico Desenvolvimento \(Anderson\) 
e como saber qual objeto/evento gerou a excessão?

  - Original Message - 
  From: Marco Aurélio (DELPHI) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, August 18, 2006 1:31 PM
  Subject: Re: [delphi-br] Capturar Texto 


  utilize da paleta standard  o componente  application.events. Este componente 
captura todo o evento que ocorre na aplicação inclusive as exceções.

  Atenciosamente
  Marco Aurélio Gerônimo

- Original Message - 
From: roberto ezequiel 
To: delphi-br@yahoogrupos.com.br 
Sent: Friday, August 11, 2006 7:22 PM
Subject: [delphi-br] Capturar Texto 


Olá pessoal...
   
  Tenho um sistema e gostaria de capturar o texto do erro que aparece na 
tela do cliente... 
  Exemplo... quando acontece algum erro, tanto de tela quando de banco, o 
sistema armazenaria em um bloco de notas (.txt), que seria uma espécie de log 
de erro, e quando fosse dada a manubtenção poderia se abrir este txt e ler o 
que houve de erro!!!
   
  Se alguém puder me dar uma luz, agradeceria...
   
   
  Obrigado


-
Yahoo! Search
Música para ver e ouvir: You're Beautiful, do James Blunt

[As partes desta mensagem que não continham texto foram removidas]

 

  [As partes desta mensagem que não continham texto foram removidas]

   

  __ Informação do NOD32 IMON 1.1714 (20060818) __

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Capturar Texto

2006-08-11 Por tôpico roberto ezequiel 
Olá pessoal...
   
  Tenho um sistema e gostaria de capturar o texto do erro que aparece na tela 
do cliente... 
  Exemplo... quando acontece algum erro, tanto de tela quando de banco, o 
sistema armazenaria em um bloco de notas (.txt), que seria uma espécie de log 
de erro, e quando fosse dada a manubtenção poderia se abrir este txt e ler o 
que houve de erro!!!
   
  Se alguém puder me dar uma luz, agradeceria...
   
   
  Obrigado


-
 Yahoo! Search
 Música para ver e ouvir: You're Beautiful, do James Blunt

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html