Retornar Endereço URL no Delphi

Delphi

17/06/2014

Ola, como faço para criar uma variavel que receba um endereço atual de navegação? Pois, preciso em um momento de execucao do programa verificar se a pagina é www.google.com.br, se for, ai ele prossegue com a execucao..
grato
Alexandre

Alexandre

Curtidas 0

Melhor post

Paulo Freire

Paulo Freire

23/06/2014

Olá Alexandre,

Eu uso isso, para capturar fotos dos funcionário dentro da intranet dos funcionários para emissão de crachas, veja que capturar de uma url de navegação, o principio é o mesmo, basta adapta-lo a sua necessidade.

procedure TForm_EmiteCracha.AtualizaFoto;
var
MS: TMemoryStream;
JPEG: TJPEGImage;
Url: String;
I: Integer;

begin

MS := TMemoryStream.Create;
try
JPEG := TJPEGImage.Create;
try
for I := 7400 to 7500 do
begin
Url := 'http://192.168.0.212/rh/upload/' + DM.Query_ImpressaoCRACHA.AsString + '.jpg';
MS.Clear;
try
IdHTTP1.Get(Url, MS);
except
on E: EIdHTTPProtocolException do
Continue;
end;
MS.Position := 0;
JPEG.LoadFromStream(MS);
Image1.Picture.Assign(JPEG);

Label1.Caption := DM.Query_ImpressaoPRIMEIRO_NOME.AsString;

JPEG.SaveToFile('C:\Crachas\Fotos\' + DM.Query_ImpressaoCRACHA.AsString + '.jpg');

//Tratando foto
ResizeJPG('C:\Crachas\Fotos\' + DM.Query_ImpressaoCRACHA.AsString + '.jpg',
'C:\Crachas\Fotos\' + DM.Query_ImpressaoCRACHA.AsString + '.jpg', 20, 100);
Application.ProcessMessages;

end;
finally
JPEG.Free;
end;
finally
MS.Free;
end;

end;
GOSTEI 1
POSTAR