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...)