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!


Truck1n

Truck1n

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;


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


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar