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)