Capturando Url Do Navegador Com Delphi

[V¡®u§ 849]

A dúvida de muitos não está em como fazer para capturar a url do navegador mas sim em como fazer para adicionar em um 'memo' sem que fique repetindo toda hora a mesma url, afinal dependendo do objetivo do programa você não vai querer 100 mil caracteres repetido, geralmente a pessoa quer apenas verificar a url especifica.

Aqui vai a dica pra quem está precisando:

1° Adicione 1 Tmemo da paleta Standard

2° Adicione um TTimer da paleta System

3° Mude as propriedades do Tmemo conforme abaixo:

Align = alClient

Alignment = TaCenter

O resto deixe como esta.

4° Insira a seguinte variavel global logo abaixo de Form1 : TForm1:

norepeat : tstringlist;

5° Abaixo de {$R *.dfm} insira a função que captura a URL do navegador, em nosso exemplo vamos usar o Chrome:

Function GetActivePageUrlFromChrome(Handle: HWnd; Param: LParam): Bool; stdcall;

var

List: TStrings;

hWndChrome, hWndChromeChild: HWND;

Buffer : array[0..1000] of Char;

begin

asm

nop

end;

List := TStrings(Param);

//pega o caption da janela

SendMessage(Handle, WM_GETTEXT, Length(Buffer), integer(@Buffer[0]));

//pega o Buffer do caption

hWndChrome := FindWindow('Chrome_WidgetWin_1', Buffer);

if hWndChrome &--#60;&--#62; 0 then

begin

hWndChromeChild := FindWindowEx(hWndChrome, 0, 'Chrome_OmniboxView', nil);

if hWndChromeChild &--#60;&--#62; 0 then

begin

SendMessage(hWndChromeChild, WM_GETTEXT, Length(Buffer), integer(@Buffer));

List.Add(Buffer);

end;

end;

Result := True;

end;

6° Insira o seguinte código no evento onCreate do Form:

// limpa o memo1

memo1.Text := '';

//Abre a instancia do mecanismo de não repetição, ou melhor cria o objeto

norepeat := TStringlist.Create;

7° Insira o seguinte código no timer1 de modo que fique como abaixo:

procedure TForm1.Timer1Timer(Sender: TObject);

var

slChromeUrl : TstringList;

i : integer;

Existe : Boolean;

begin

try

existe := False;

slChromeUrl := TstringList.Create;

EnumWindows(@GetActivePageUrlFromChrome, LParam(slChromeUrl));

for i := 0 to norepeat.Count -1 do

begin

if (norepeat.Strings = slChromeUrl.Strings[0]) then

begin

Existe := True;

break;

end else

Existe := False;

end;

if (existe = false) then

begin

if slChromeUrl.strings[0] &--#60;&--#62; '' then

begin

norepeat.Add(slChromeUrl.Strings[0]);

Memo1.Lines.Add('-------------------------------------------');

Memo1.lines.Add(slChromeUrl.Strings[0]);

end;

end;

FreeAndNil(slChromeUrl);

except

end;

end;

8° Execute o nosso pequeno exemplo, abra o seu navegador Chrome e veja o resultado.

[Vitor Pinho ☮ 1,199]

Bom tutorial, muito bem explicado, continua.

http://cyber-gamers.org/public/style_emoticons/default/451960.gif