Hi,
ich habe mir eine Proc mal rausgepickt und angepasst.
Es ist besser, statt TObject TDataSet als Parameter zu definieren.
Die Prüfung, ob die Datei existiert, sollte zu Beginn erfolgen.
Die Benennung der Parameter sollte nachvollziehbar sein.
Delphi-Quellcode:
...
procedure SaveFileToDB(DataSet: TDataSet;
const FilePath, FileName,
NameFieldname:
string; DataFieldName:
string);
...
procedure SaveFileToDB(DataSet: TDataSet;
const FilePath, FileName,
NameFieldname:
string; DataFieldName:
string);
Var
FullFileName:
String;
begin
FullFileName := IncludeTrailingPathDelimiter(FilePath) + FileName;
// PreCondition - File must exist
if not FileExists(FullFileName)
then
exception.Create(Format('
Datei %s nicht vorhanden', [FullFileName]));
with DataSet
do
begin
if not Active
then
Active := true;
Insert;
FieldByName(NameFieldname).AsString := FileName;
TBlobField(FieldByName(DataFieldName)).LoadFromFile(FullFileName);
Post;
end;
end;
Vielleicht hilft es dir noch etwas.
Cu, Frank