Moin...
Ich hätte was Vernünftiges lernen sollen...
Das hat gestern funktioniert:
Delphi-Quellcode:
TTask.Run(procedure
var
I: Integer;
Success: Boolean;
begin
Success := True;
for I := 0 to FFileList.Count - 1 do
begin
NewFile := CurrentNewFilePath + ExtractFileName(FFileList[I]);
if TFile.GetSize(FFileList[I]) > 0 then // keine leeren Dateien kopieren
begin
if CopyFileEx(PChar(FFileList[I]),
PChar(NewFile),
nil, nil, nil, COPY_FILE_NO_BUFFERING) then
begin
TThread.Synchronize(nil,
procedure
begin
WriteSendToDB(FFileList[I], sdtFolder); // Transus
end);
end
else
begin
...
...heute mache ich das Delphi an und "Erzeuge": Fehler: siehe Bilder
Eingegrenzt (Test):
Delphi-Quellcode:
TTask.Run(procedure
var
Success: Boolean;
begin
Success := True;
end);
// TTask.Run(procedure
// var
// I: Integer;
Fehler: Fehler: siehe Bilder
Lasse ich TTask komplett weg...alles gut.