Re: [delphi-br] Conecção remota m ysql

[marcosdiirr]

Valeu amigo pela dica... % era isto o prob. ja ate tinha resolvido mas valeu 
mesmo... ai tambem sou do ES.. add ai [EMAIL PROTECTED] blz ?
brigadão...t+
Marcos Diirr

Olá Marcos, você deve usar um front-end qualquer, Ems Lite por exemplo e na
configuração do usuário liberar o campo host com o valor % assim você
consequirá tranquilamente conectar ao mysql de qualquer outra máquina e de
fora da rede.

para acessar remotamente você terá que configurar o seu roteador para fazer
um redirecionamento da porta 3306 para o IP da máquina onde esta instalado o
mysql, lembre-se de liberar a porta no firewall do windows e atribuir uma
senha para o usuário root.

qualquer dúvida estou à disposição.

2008/6/21 marcosdiirr <[EMAIL PROTECTED]>:

> To tentando acessar um banco de dados mysql na minha rede e não consigo,
> vejam bem
>
> minha rede ex.. 20.5.50.1 ate 20.5.50.255
> instalei o wapserve na minha maq. ip 20.5.50.1
>
> uso delphi 7 e componente zeos
>
> se conecto usando "localhost ou 127.0.0.1" consigo normamente ja em outra
> maq. da minha rede nao consigo mesmo usando o ip 20.5.50.1.
>
> O que eu posso esta fazendo de errado ? outra coisa tem como eu acessar
> este banco de dados de fora de minha rede ? como fazer isto ?
>
> Fico grato por qualquer ajuda e exemplos ok ?
>
> Atenciosamente
>
> marcos
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>

-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...

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


 


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

[delphi-br] Conecção remota mysql

[marcosdiirr]

To tentando acessar um banco de dados mysql na minha rede e não 
consigo, vejam bem
 
minha rede ex..  20.5.50.1 ate 20.5.50.255
instalei o wapserve  na minha maq. ip 20.5.50.1
 
uso delphi 7 e componente zeos
 
se conecto usando "localhost ou  127.0.0.1" consigo normamente ja em 
outra maq. da minha rede nao consigo mesmo usando o ip 20.5.50.1.
 
O que eu posso esta fazendo de errado ? outra coisa tem como eu acessar 
este banco de dados de fora de minha rede ? como fazer isto ?
 
 
Fico grato por qualquer ajuda e exemplos ok ?
 
Atenciosamente 
 
marcos

[delphi-br] Conecção remota mysql

[marcosdiirr]

To tentando acessar um banco de dados mysql na minha rede e não consigo, vejam 
bem

minha rede ex..  20.5.50.1 ate 20.5.50.255
instalei o wapserve  na minha maq. ip 20.5.50.1

uso delphi 7 e componente zeos

se conecto usando "localhost ou  127.0.0.1" consigo normamente ja em outra maq. 
da minha rede nao consigo mesmo usando o ip 20.5.50.1.

O que eu posso esta fazendo de errado ? outra coisa tem como eu acessar este 
banco de dados de fora de minha rede ? como fazer isto ?


Fico grato por qualquer ajuda e exemplos ok ?

Atenciosamente 

marcos


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

Re: [delphi-br] Discador PPOE tem como fazer um em delphi ?

[marcosdiirr]

Amigo, e o seguinte tenho um prov. de internet a Radio e gostaria de 
personalizar um discador, portanto pode ser tanto criar o discador, ou mesmo 
fazer o delphi discar uma conexao existente, fico muito grato por qualquer 
ajuda.

MArcos Diirr
vc quer fazer um discador ou vc quer q o delphi disque uma conexao ja 
existente?


 


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

[delphi-br] Discador PPOE tem como fazer um em delphi ?

[marcosdiirr]

Tem como fazer um discador PPOE ou mesmo mandar o delphi discar um ?

Atenciosamente 

Marcos Diirr


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

[delphi-br] Para Paulo Cassagrande

[marcosdiirr]

Paulo percebi que nunca são 4 espaço,  podem ser 3 ou ate 5, mas que o ip´s  
vem sempre antes de TCP, isto não ajuda ? veja abaixo ?
olha só, também tenho que pegar estes campos que estão 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
 
Cara e que sou leigo no Delphi e preciso fazer este trabalho velho.
Blz ?


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

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

[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? 
 - 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...

[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...

[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...

[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...

[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/ ?
> >  > - 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.microsof t.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
> >  > -
> > 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/ ?  .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...

[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/ ? 
>  - 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.microsof t.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 
>  -
> 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.
>


 


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

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

[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.