Alles klar.
Habe es jetzt mal für mich etwas umgebaut:
Delphi-Quellcode:
function Datensatz_speichern_PDF(Tabelle, Spalte, Filter_Spalte, Filter_Wert, Pfad:String; PDF_loeschen: Boolean):Boolean;
var
S : TStream;
FileS : TFileStream;
BlobFeld: TField;
begin
Result := FALSE;
DM_Main.TableRaw.Close;
DM_Main.TableRaw.TableName := Tabelle;
DM_Main.TableRaw.IndexFieldNames := Filter_Spalte;
DM_Main.TableRaw.Filter := Filter_Spalte + ' = ' + Filter_Wert + '';
DM_Main.TableRaw.Filtered := TRUE;
DM_Main.TableRaw.Open;
DM_Main.TableRaw.Edit;
BlobFeld := DM_Main.TableRaw.FieldByName(Spalte);
S := BlobFeld.DataSet.CreateBlobStream(BlobFeld, bmReadWrite);
try
FileS := TFileStream.Create(Pfad, fmOpenRead);
S.CopyFrom(FileS, FileS.Size);
DM_Main.TableRaw.Post;
Result := TRUE;
finally
FileS.Free;
S.Free;
end;
end;
Nur leider werden keine Daten gespeichert. Wo ist der Fehler ?
Gruss
Holger