Ich habe jetzt etwas gefunden und zusammengebaut das dem entspricht was ich vorhabe.
Ich schreibe und lese mein TJpegImage Array[0..19) direkt in ein BlobFeld und lese es so auch wieder.
Code:
// **************************************************************************
// * Read and Write Blob Stream *
// **************************************************************************
procedure TDM.ReadBlobStream;
var
BlobStream: TStream;
Begin
// Bild aus Datenbank lesen und in AktData.JPegArray schreiben
BlobStream := DM.qData.CreateBlobStream(DM.qData.FieldByName('PicData'), bmRead);
BlobStream.Position := 0;
Try
BlobStream.ReadBuffer(AktData.JpegArray, sizeof(????????));
Finally
BlobStream.Free;
End;
End;
procedure TDM.WriteBlobStream;
var
BlobStream: TStream;
Begin
// Bild aus AktData.JPegArray lesen und in Datenbank schreiben
BlobStream := DM.qData.CreateBlobStream(DM.qData.FieldByName('PicData'), bmWrite);
BlobStream.Position := 0;
Try
BlobStream.WriteBuffer(AktData.JpegArray, sizeof(AktData.JpegArray));
Finally
BlobStream.Free;
End;
End;
Ist das so korrekt ??
Was muss ich bei SizeOf(??????) reinschreiben?