Hi Hacki,
Der abstrakte Fehler kommt, da Du Versuchst direkt in ein als TStream erzeugten Stream
zu schreiben - das klappt aber nicht. Der Stream wird nämlich durch CreateBlobStream
erzeugt und somit dem Blob-Feld zugeordnet.
So klappts:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
MyStream : TStream;
MyFileStream : TFileStream;
begin
Table1.Open;
Table1.Append;
//Tabelle bearbeiten
Table1.edit;
MyFileStream:=TFileStream.Create('C:\temp\test.pdf',fmOpenRead);
//einen Blobstream aus dem Tabellenfeld (Typ BLOB) erstellen
MyStream:=Table1.CreateBlobStream(table1.FieldByName('pdf'),bmReadWrite);
//Dateiinhalt in BLOB kopieren
MyStream.CopyFrom(MyFileStream, 0);
MyStream.Free;
MyFileStream.Free;
//Änderungen schreiben
Table1.Post;
Table1.Close;
end;
Hope this helps
Ciao
marco