Array
(
)

Pegar Dados do IE / FF

Truck1n
   - 16 fev 2006

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!


Kroki
   - 17 fev 2006

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;


Will_fire
   - 25 mar 2006

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