automatisches verschicken einer datei

[ims]

nur mal so, weiss nicht ob so was möglich ist:

könnte es sein, dass du die übertragung abbrichst, bevor das file drüben ist? du schliesst die verbindung ja sofort wieder...


gruss, (ein unsicherer) dave

[shmia]

Ihr müsst natürlich prüfen, ob die lokale Datei überhaupt existiert.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject); 
var
   srcFile: string;  // Und nicht so geizig mit lokalen Variablen sein!!!
begin 
   srcFile := 'log.log';
   if not FileExists(srcFile) then
   begin
      Caption := Format('Datei %s nicht gefunden', [srcFile]);
      Exit;
   end;

   ....
   IdFTP1.Put(srcFile); 
   ....
end;

Und zusätzlich könnte man prüfen, ob die Datei noch im Zugriff ist:

Delphi-Quellcode:

function FileIsClosed(const filename:string):Boolean;
var
   hnd: THandle;
begin
   hnd := CreateFile(PChar(filename), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

   result := hnd <> INVALID_HANDLE_VALUE;

   CloseHandle(hnd);
end;

Ausserdem muss man natürlich die Events von IdFTP1 benutzen (Zumindest bei OnConnect).

[Paul]

besten dank es funktioniert jetzt :) lag vielleicht wirklich am zu schnellem timer :)

ich will ja dieses prog auf ein server legen. dazu muss man ja die execute progarmmieren damit man das prog starten kann. hat das schon mal einer gemacht ???

mfg Paul

[Luckie]

Die was muss man programmieren? Du bist dir bewußt, dass ein solches Delphi Programm nur auf einen Windows Server läuft?6 Und falls es nicht dein privater Server ist, glaube ich kaum, dass der Webhoster eigene Programme zu läßt.

[Paul]

doch ich hab ein gemieteten server mit root zugriff und da kann man programme starten :)