Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Internetbild -> TImage ? (https://www.delphipraxis.net/136775-internetbild-timage.html)

blooddog_90 7. Jul 2009 22:56


Internetbild -> TImage ?
 
Guten Tag alle miteinander!

Wie bringe ich ein Bild zum Beispiel von dieser Adresse:

http://blog.ted.com/Socrates.png

auf meine Form am einfachsten? Ist es besser einen Webbrowser extra nur für das Bild zu erstellen oder gibt es da andere interessante Methoden?

marius0702 7. Jul 2009 23:17

Re: Internetbild -> TImage ?
 
Mit urldownloadtofile geht das z.b so
Delphi-Quellcode:
    UrlDownloadToFile(nil, PChar('http://blog.ted.com/Socrates.png'),PChar('pic.png'), 0, nil);

    image1.Picture.LoadFromFile('pic.png');
(nicht getestet)

blooddog_90 8. Jul 2009 01:09

Re: Internetbild -> TImage ?
 
Dadurch würde ja aber eine datei mindestens temporär gespeichert werden. Andere Ansätze eventuell?
Danke dir für den Ansatz trotzdem! :wink:

toms 8. Jul 2009 04:50

Re: Internetbild -> TImage ?
 
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:29 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz