Bider in DB speicher und auslesen

[Andidreas]

ich habs jetzt so gemacht das ich mir die info in der db mit speicher welches dateiformat ich importiert habe... im moment beschränk ich mich auf .bmp und .jpg

das laden sieht dann so aus:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);

var
Stream    : TStream;
JPEG      : TJpegImage;
BITMAP    : TBitmap;


begin

  Try
    With (imagedata) Do
    Begin
      Active := False;
      SQL.Clear;
      SQL.Add('Select * From picture                                       '
             +'Where filename = "'+ GetData.FieldByName('filename').AsString +'" ');
      Active := True;
    End;
  Except
    On E:EMySQLDatabaseError Do
    Begin
      MessageDlg('Could not select image Data' + #13 + E.Message, mtError, [mbOK], 0);
      Exit;
    End;
  End;

  //JPG
  If UpperCase(imagedata.FieldByName('fileext').AsString) = 'JPG' Then
  Begin
    Stream := TStream.Create;
    Stream := imagedata.CreateBlobStream(imagedata.FieldByName('filedata'), bmRead);
    Stream.Position := 0;
    JPEG  := TJpegImage.Create;
    BITMAP := TBitmap.Create;
    JPEG.LoadFromStream(Stream);
    BITMAP.Assign(JPEG);
    image.Picture.Bitmap.Assign(JPEG);
    Stream.Free;
    JPEG.Free;
    BITMAP.Free;
  End;

  //BMP
  If UpperCase(imagedata.FieldByName('fileext').AsString) = 'BMP' Then
  Begin
    Stream := TStream.Create;
    Stream := imagedata.CreateBlobStream(imagedata.FieldByName('filedata'), bmRead);
    Stream.Position := 0;
    BITMAP := TBitmap.Create;
    BITMAP.LoadFromStream(Stream);
    image.Picture.Assign(BITMAP);
    Stream.Free;
    BITMAP.Free;
  End;

end;

andere werde ich vielleicht bei gelegenheit noch hinzufügen...
danke für eure hilfe