Hallo Benutzername,
habe die gleiche Fehlermeldung und komme da nicht weiter.
Benutze D5 und Dbase Tabelle.
mit nachfolgendem Code sollte es doch funktionieren.
Wo liegt da mein Fehler? Für Lösung wäre ich dankbar.
Fritz01
Delphi-Quellcode:
procedure TDemoForm.WriteButtonClick(Sender: TObject);
var
s: TStream;
jpeg:TJpegImage;
begin
try
Jpeg:=TJpegImage.Create;
try
with Table do begin
Append;
s:= CreateBlobStream(TBlobField(FieldByName('jpg')), bmWrite);
Jpeg.SaveToStream(s);
Post;
end;
except
ShowMessage('Bild nicht gespeichert');
end;
finally
FreeAndNil(s);
FreeAndNil(jpeg);
ShowMessage('Bild gespeichert');
end;
end;