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
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