Hallo Marco,
nun habe ich es ausprobiert:
Code:
procedure TForm1.Button2Click(Sender: TObject);
var
MyStream : TStream;
MyFileStream : TFileStream;
begin
Table1.Open;
Table1.Append;
//Tabelle bearbeiten
Table1.edit;
MyFileStream:=TFileStream.Create('C:\download\test.pdf',fmOpenRead);
MyStream := TStream.Create;
MyStream.CopyFrom(MyFileStream, 0);
//einen Blobstream aus dem Tabellenfeld (Typ BLOB) erstellen
MyStream:=Table1.CreateBlobStream(table1.FieldByName('pdf'),bmReadWrite);
MyStream.Free;
//Änderungen schreiben
Table1.Post;
Table1.Close;
end;
Leiser erhalte ich in der Zeile:
Code:
MyStream:=Table1.CreateBlobStream(table1.FieldByName('pdf'),bmReadWrite);
Immer einen "abstract error" !?
Habe ich da etwas falsch gemacht ?
Wäre nett, wenn Du mir nochmal helfen könntest.
Danke und Grüsse
Hacki
Es ist nicht gesagt, daß es besser wird, wenn es anders wird! Wenn es aber besser werden soll, muß es anders werden! ** There are 10 different types of people in this world; those who understand binary numbers and those who don’t !