Fórum Retornar Endereço URL no Delphi #482896

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;