Einzelnen Beitrag anzeigen

BigAl

Registriert seit: 6. Sep 2008
Ort: Kehl
504 Beiträge
 
Delphi 12 Athens
 
#1

Grafik aus Internet laden - korrekter Weg

  Alt 1. Jun 2023, 10:37
Hallo zusammen,

ich lade eine SVG-Graphic aus dem Internet wie folgt:

Delphi-Quellcode:
function GetPicture(HTTP: TIdHTTP; APictureName: string): TPicture;
  var
    Stream: TMemoryStream;
    SVGGraphic: TfrxSVGGraphic;
  begin
    Result := nil;
    Stream := TMemoryStream.Create;
    try
      HTTP.Get(BASE_URL + '/data/' + APictureName, Stream);

      SVGGraphic := TfrxSVGGraphic.Create;
      try
        Stream.Position := 0;
        SVGGraphic.LoadFromStream(Stream);

        Result := TPicture.Create;
        try
          Result.Graphic := SVGGraphic;
        except
          FreeAndNil(Result);
        end;
      finally
        SVGGraphic.Free;
      end;
    finally
      Stream.Free;
    end;
  end;
Das ganze funktioniert soweit auch. Ich frage mich nur, ob das der korrekte Weg ist.

Die Grafik befindet sich nach dem "Get" im Stream. In dem Fall weiß ich, dass es sich um eine SVG-Grafik handelt. Das ist allerdings der Punkt der mich stört. Was ist, wenn es sich um ein anderes Format handelt (bmp, png...)?

Gibt es eine Möglichkeit den Stream direkt (ohne TfrxSVGGraphic) in TPicture zu laden bzw. TPicture einfach vorab mitzuteilen um welches Format es sich handelt? Das Format könnte ich ja aus dem Namen ermitteln. Ich habe da irgendwie nichts gefunden.

Wie macht ihr sowas?
Man sollte nie so viel zu tun haben, dass man zum Nachdenken keine Zeit mehr hat. (G.C. Lichtenberg)
  Mit Zitat antworten Zitat