hmm das die prozedur nen bug hat glaub ich nicht, aber egal hier mal der code...
Delphi-Quellcode:
function TMain_Form.fnLoadFile() : Boolean;
var
Ini : TMemIniFile;
begin
If FTP.Connected = True
Then
Begin
FTP.Quit;
FTP.Disconnect;
End;
Ini := TMemIniFile.Create(ExtractFilePath(Application.ExeName) + '
ProgName.ini');
FTP.Host := Ini.ReadString('
FTP', '
Host', '
NoData');
FTP.UserName := Ini.ReadString('
FTP', '
User', '
NoData');
FTP.Password := Ini.ReadString('
FTP', '
Password', '
NoDate');
Try
FTP.Connect;
If FTP.Connected = True
Then
Begin
FTP.ChangeDir('
/Directory');
glFileName := fnConvertFileNameFTP();
FTP.Get(glFileName, '
C:\Temp\' + glFileName,
True, False);
End;
Finally
FTP.Quit;
FTP.Disconnect;
End;
{ DONE : Fehler bei Download von FTP / FileExists??? }
If Not FileExists('
C:\Temp\' + glFileName)
Then
Begin
prWriteErrMsg('
Error while Downloading ZPDMMCIDL File!');
fnLoadFile := False;
End
Else
Begin
fnLoadFile := True;
End;
end;
das mit dem button "geht nicht" bzw. nur einmal...
der ablauf von dem prog is ungefähr so...
-programm wird auf einem server gestartet...
-admin drückt start...
-es erfolgt ein 1. lauf...
-es wird der nächste lauf (also datum und uhrzeit) errechnet...
-das programm wird in denn tray minimiert und da läufts so vor sich hin und überprüft in
regelmässigen abständen die uhrzeit und das datum...
-ist das datum = dem errechneten datum dann arbeitet das programm die bestimmten routinen
wieder ab...