Image from Stream laden?

[Namenloser]

Wobei viele Dateitypen einen Dateiheader haben. Gif-Dateien, als einfaches Beispiel, fangen z.B. als Text dargestellt immer mit „GIF89a“ an. Es gibt im Internet auch Datenbanken dazu...

Oder man versucht einfach in einer Schleife alle möglichen Formate per brute-force durch, bis eins passt. Ist vielleicht ein kleinwenig unsauber, aber das einfachste.

Beispiel:

Delphi-Quellcode:

const
  FORMATS: array [0..3] of TGraphicClass = (TBitmap, TJpegImage, TGifImage, TPngObject); // z.B.
var
  Stream: TMemoryStream;
  i: integer;
  Graphic: TGraphic;
begin
  Stream := tb.FieldAsBlob(tb.FieldIndex['picture']);
  try
    Graphic := nil;

    // Alle Formate durchprobieren
    for i := low(FORMATS) to high(FORMATS) do
    begin
      Stream.Position := 0;
      Graphic := FORMATS[i].Create;
      try
        Graphic.LoadFromStream(Stream);
        // Laden hat geklappt -> raus aus der schleife
        break;
      finally
        FreeAndNil(Graphic)
      end;
    end;

    if not Assigned(Graphic) then
      raise EInvalidGraphic.Create('Nicht unterstütztes Format');

    DetailsMediaImage.Picture.Graphic.Assign(Graphic);
    Graphic.Free;
  finally
    Stream.Free;
  end;
end;

Wobei ich gerade noch mal nachgeschaut habe, und laut Online-Hilfe kapselt TPicture das bereits.

Also reicht:

Delphi-Quellcode:

var ms: TMemoryStream;
begin
  ms := tb.FieldAsBlob(tb.FieldIndex['picture']);
  ms.Position := 0;

  DetailsMediaImage.Picture.LoadFromStream(ms);

EDIT: Das ist übrigens Blödsinn mit

Delphi-Quellcode:

ms := TMemoryStream.Create;
ms := tb.FieldAsBlob(tb.FieldIndex['picture']);

Da wird zwei mal ein Stream erzeugt, aber nur einmal freigegeben! (Ich hoffe zumindest, du gibst ihn frei...)