Delphi-Quellcode:
procedure TfrmMain.DateiSenden;
const return = chr(13);
var Daten : Empfaenger;
SearchRec : TSearchRec;
dateiname : string;
text : string[18];
ASatz : string;
FromF, ToF : file;
bfile : textfile;
NumRead, NumWritten : Integer;
Buf: array[1..1] of Char;
begin
ShowMessage(INIPfadname);
ShowMessage(PfadName);
// Dateien suchen
if FindFirst(PfadName+'*.*',faAnyFile,SearchRec)=0 then
begin
repeat
dateiname:=SearchRec.Name;
ShowMessage(PfadName+dateiname);
// Daten aus der DatenBank holen
Daten:=DepotSuchen(copy(dateiname,4,3));
If (SearchRec.Attr And faDirectory = 0) then
...
... DATEI-VERARBEITUNG.....
...
...
Es scheint zu laufen. Ich warte noch ein wenig die ersten Ergebnisse ab, die kann ich erst immer ein wenig später prüfen, aber der Fehler ist weg, die Dateien werden abgearbeitet und zum Schluss gelöscht.
Ich melde mich noch mal... Bis jetzt sieht es supi aus!
