[Delphi] Pobieranie jpg/bmp

0

Witam, moze ktos z was wie jak zaladowac jakis obrazek z internetu do image ? Problem polega na tym, ze nie chce pliku pobierac do pliku, moze sie da do jakiegos zrodla ?
Pozdrawiam

0

(Wstawiasz na formę komponent IdHttp.)

Tylko dla BMP:

procedure TForm1.DownloadBMPToImage(URL : string; Image : TImage);
var
  Stream : TMemoryStream;
begin
 Stream := TMemoryStream.Create;
 try
  IdHttp1.Get(URL ,Stream);
 finally
  Stream.Position := 0;
  Image.Picture.Bitmap.LoadFromStream(Stream);
 end;
 Stream.Free;
end;
procedure TForm1.DownloadJPEGToImage(URL : string; Image : TImage);
var
  Stream : TMemoryStream;
  Jpeg : TJpegImage;
begin
 Stream := TMemoryStream.Create;
 try
  IdHttp1.Get(URL ,Stream);
 finally
  Stream.Position := 0;
  Jpeg := TJpegImage.Create;
  Jpeg.LoadFromStream(Stream);
  Image.Picture.Assign(Jpeg);
 end;
 Stream.Free;
 Jpeg.Free;
end;

Pobaw się.

0

to drugie powinno działać z każdym obrazkiem, który obsługuje delphi

1 użytkowników online, w tym zalogowanych: 0, gości: 1