BlobStream in StringGrid speichern

[himitsu]

Falls der Blob leer bleibt oder der Anfang fehlt:

Delphi-Quellcode:

oFS.Position := 0;
qInsert.Params[0].AsStream.CopyFrom(oFS, -1);

Eventuell auch prüfen, ob man den Blob vorher Clear(en) sollte. (falls vorher mehr Daten drin waren, was neu geschrieben werden)

[Smiley]

Warum ParamStr[0] und wie sage ich in welches Feld der Stream geschrieben wird.

Wie bekomme ich mein Array[0..119] of TJPEGImage in einen MemoryStream (ofs) um diesen dann so zuweisen zu können.

[himitsu]

Params ... nicht ParamStr

such dir was aus, je nach dem wo es rein soll:
Params[123]
ParamByName('abc')
Fields[123]
FieldByName('abc')


TJPEGImage sollte doch sowas wie SaveToStream und LoadFromStream haben, wo du einen TMemoryStream nutzen kannst, bzw. vermutlich sogar direkt den Stream, welchen AsStream dir gibt.

[Smiley]

OK dann also etwa so

qBilder.FieldByName('JPGPic').AsStream.CopyFrom(MS tream, -1);

Jetzt nur noch Das Array in das MStream reinbringen.

[MyRealName]

Zitat von Smiley:

OK dann also etwa so

qBilder.FieldByName('JPGPic').AsStream.CopyFrom(MS tream, -1);

Jetzt nur noch Das Array in das MStream reinbringen.

Einfach die TPicture Klasse nutzen mit SaveToStream und dann aber die Stream.Position auf 0 setzen

[Smiley]

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?

[Poelser]

Ohne jetzt genauer in die Materie einzutauchen, ist mein erster Gedanke Length(AktData.JpegArray). SizeOf ist doch nur die Größe des Pointers, du brauchst hier aber doch die Länge der Daten.