Habe mir jetzt folgende Funktion gebastelt:
Delphi-Quellcode:
function Datensatz_speichern_Pictures_PDF2(Tabelle, Spalte, Filter_Spalte, Filter_Wert, Pfad:String; PDF_loeschen: Boolean):Boolean;
var
blob : TStream;
FileS : TFileStream;
begin
Result := FALSE;
DM_Main.TableRaw.Close;
DM_Main.TableRaw.TableName := Tabelle;
DM_Main.TableRaw.Filter := Filter_Spalte + '=' + Filter_Wert;
DM_Main.TableRaw.Filtered := TRUE;
DM_Main.TableRaw.Open;
blob := DM_Main.TableRaw.CreateBlobStream(DM_Main.TableRaw.FieldByName(Spalte), bmRead);
blob.Seek(0, soFromBeginning);
try
FileS := TFileStream.Create(Pfad, fmCreate);
FileS.CopyFrom(blob, blob.Size);
finally
FileS.Free;
blob.Free;
end;
if PDF_loeschen = true then
begin
DeleteFile(Pfad);
end;
Result := TRUE;
end;
Wie speichere ich aber jetzt die PDF in der Datenbank ?