Pegar Dados do IE / FF
16/02/2006
0
Alguem sabe se tem como eu pegar dados do IE / FireFox ?
tipo tem um edit e tal eu pegar os dados do edit? ou se eu tiver enviando um algo com o POST tem como eu interceptar os dados?
Algo que eu possa ver o que está sendo passado ? para fora de minha rede?
não sei se consigui explicar direito, quero interceptar os dados que chega e sai pelo navegador se isso for possivel alguem pode me da uma Luz :lol:
POr Exemplo eu posso Manipular o IE com o Handle dele?
acho minha dúvida meio confusa!
Abraços!
tipo tem um edit e tal eu pegar os dados do edit? ou se eu tiver enviando um algo com o POST tem como eu interceptar os dados?
Algo que eu possa ver o que está sendo passado ? para fora de minha rede?
não sei se consigui explicar direito, quero interceptar os dados que chega e sai pelo navegador se isso for possivel alguem pode me da uma Luz :lol:
POr Exemplo eu posso Manipular o IE com o Handle dele?
acho minha dúvida meio confusa!
Abraços!
Truck1n
Curtir tópico
+ 0
Responder
Posts
17/02/2006
Kroki
Isso é o básico,pega a URL corrente digitada em vários navegadores;
uses
ddeman;
procedure GetCurrentURL(out URL, Title: string);
var
DDEClient : TDDEClientConv;
p, q: PChar;
i: Integer;
begin
DDEClient := TDDEClientConv.Create(nil);
try
with DDEClient do if SetLink(´IExplore´, ´WWW_GetWindowInfo´) or
SetLink(´Netscape´, ´WWW_GetWindowInfo´) or
SetLink(´Mosaic´, ´WWW_GetWindowInfo´) or
SetLink(´Netscp6´, ´WWW_GetWindowInfo´) or
SetLink(´Opera´, ´WWW_GetWindowInfo´) or
SetLink(´Mozilla´, ´WWW_GetWindowInfo´) or
SetLink(´Firefox´, ´WWW_GetWindowInfo´) then
p := SetData(´0xFFFFFFFF´)
else exit;
if Assigned(p) then try
q := p;
Assert(q^ = ´´´);
SetLength(URL, StrLen(q));
Inc(q);
i := 0;
while q^ <> ´´´ do begin
if (q^ = ´\´) and (q[1] = ´´´) then Inc(q);
Inc(i);
URL[i] := q^;
Inc(q);
end;
SetLength(URL, i);
SetLength(Title, StrLen(q));
i := 0;
Inc(q, 3);
while q^ <> ´´´ do begin
if (q^ = ´\´) and (q[1] = ´´´) then Inc(q);
Inc(i);
Title[i] := q^;
Inc(q);
end;
SetLength(Title, i);
finally
StrDispose(p);
end
finally
DDEClient.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
url,text:string;
begin
GetCurrentURL(url,text);
Memo1.Lines.Add(url+´ ´+text);
end;
uses
ddeman;
procedure GetCurrentURL(out URL, Title: string);
var
DDEClient : TDDEClientConv;
p, q: PChar;
i: Integer;
begin
DDEClient := TDDEClientConv.Create(nil);
try
with DDEClient do if SetLink(´IExplore´, ´WWW_GetWindowInfo´) or
SetLink(´Netscape´, ´WWW_GetWindowInfo´) or
SetLink(´Mosaic´, ´WWW_GetWindowInfo´) or
SetLink(´Netscp6´, ´WWW_GetWindowInfo´) or
SetLink(´Opera´, ´WWW_GetWindowInfo´) or
SetLink(´Mozilla´, ´WWW_GetWindowInfo´) or
SetLink(´Firefox´, ´WWW_GetWindowInfo´) then
p := SetData(´0xFFFFFFFF´)
else exit;
if Assigned(p) then try
q := p;
Assert(q^ = ´´´);
SetLength(URL, StrLen(q));
Inc(q);
i := 0;
while q^ <> ´´´ do begin
if (q^ = ´\´) and (q[1] = ´´´) then Inc(q);
Inc(i);
URL[i] := q^;
Inc(q);
end;
SetLength(URL, i);
SetLength(Title, StrLen(q));
i := 0;
Inc(q, 3);
while q^ <> ´´´ do begin
if (q^ = ´\´) and (q[1] = ´´´) then Inc(q);
Inc(i);
Title[i] := q^;
Inc(q);
end;
SetLength(Title, i);
finally
StrDispose(p);
end
finally
DDEClient.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
url,text:string;
begin
GetCurrentURL(url,text);
Memo1.Lines.Add(url+´ ´+text);
end;
Responder
25/03/2006
Will_fire
Nossa amigo me ajudou muito isso :D
Mas eu precisava tbm achar uma soluçãi para pegar exatamente o POST por ex: eu passo através do idhttp um post e queria pegar em um outro projeto o que ele passou.
Ficaria muito agradecido se pudesse me ajudar.
[]´s
Mas eu precisava tbm achar uma soluçãi para pegar exatamente o POST por ex: eu passo através do idhttp um post e queria pegar em um outro projeto o que ele passou.
Ficaria muito agradecido se pudesse me ajudar.
[]´s
Responder
Clique aqui para fazer login e interagir na Comunidade :)