Hallo zusammen,
ich arbeite mit Delphi 4 und versuche, ein jpeg-file in ein Blob-Feld zu speichern.
DB ist dBase.
Im DBT-file ist der Platz in der richtigen Größe belegt, aber es ist anscheinend nur Datenmüll. Der Code unten ist so umständlich, weil ich versucht habe, mich Schritt für Schritt einer Fehlerquelle zu nähern. Wer hat hier eine Lösung bzw. (was ich vermute) kann bestätigen, dass es ein Delphi-Fehler ist. Wenn letzteres: in welcher Version arbeitet Blob mit dBase korrekt zusammen? Vielen Dank vorab für die Unterstützung
Martin Jäger
var
JPegImage : TJpegImage;
MyBlobStream : TBlobStream;
MyJPegStream : TMemoryStream;
rQuery.Edit;
JPegImage := TJpegImage.Create;
MyJPegStream := TMemoryStream.Create;
JPegImage.LoadFromFile('Beispiel.jpg');
JPegImage.SaveToStream(MyJPegStream);
MyBlobStream := TBlobStream.Create(TBlobField(
DB.FieldByName('M_ST REAM')), bmReadWrite);
MyBlobStream.CopyFrom(MyJPegStream,0);
Image1.Picture.Assign(JPegImage); // Bild wird fehlerfrei angezeigt
rQuery.Post;
MyJPegStream.Free;
MyBlobStream.Free;