Thema: Delphi Internetbild -> TImage ?

Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#4

Re: Internetbild -> TImage ?

  Alt 8. Jul 2009, 04:50
mit Indy etwa so (ohne https, ungetestet):

Delphi-Quellcode:
var
  MS: TMemoryStream;
  IdHTTP1: TIdHTTP;
  PngImage: TPNGImage;
begin
  MS := TMemoryStream.Create;
  try
    IdHTTP1 := TIdHTTP.Create(nil);
    try
      IdHTTP1.Get('http:/bild.png', MS);
    finally
      IdHTTP1.Free;
    end;

    MS.Seek(0, soFromBeginning);
    PngImage := TPNGImage.Create;
    try
      PngImage.LoadFromStream(MS);
      Image1.Picture.Assign(PngImage);
    finally
      PngImage.Free;
    end;
  finally
    MS.Free;
  end;
Thomas
  Mit Zitat antworten Zitat