du fragst vielleicht sachen
ne des isn fehler ^^ bitmap muss bei jpeg raus, also so:
Delphi-Quellcode:
//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;
JPEG.LoadFromStream(Stream);
image.Picture.Bitmap.Assign(JPEG);
Stream.Free;
JPEG.Free;
End;