TIdFTP.OnWork

Witam!
Napisałem program wykorzystujący

TIdFTP.OnWork

na domyślnym Indy załączonym do Delphi 6 Enterprise i wszystko działało. Potem zainstalowałem Indy 9.00.14 no i to by było na tyle. Program przestał działać. Wprowadziłem sobie nawet całkowicie nowy IdFTP

 i stworzyłem nowe zdarzenie <code class="delphi">OnWork

, ale pomimo, iż wysyła plik (poprzez polecenie Put

), to wcale nie wchodzi do tego zdarzenia. Siakieś pomysły dlaczego?

Rzuć trochę kodu to może sprawdzę to u siebie na Delphi 7 i zobaczymy. Ja kożystałem z indy pod delphi7 i wszystko jest ok.

Kod niewiele da:

 idFTP1.Connect();
 idFTP1.Put('c:\\aaa.aaa','\\upload\\aaa.aaa');

procedure TfGlowny.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
 beep;
 showmessage('Work');
end;

procedure TfGlowny.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
 beep;
 showmessage('Zaczynam');
end;

procedure TfGlowny.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
 beep;
 showmessage('kunec');
end;

z tym, że IdFTP1 to jest TIdFTP. No i nic wiecej. I nie dziala.... Zupełnie nie wchodzi do żadnej z tych procedur...

Hym pokaże ci jak ja to zrobiłem bo u mnie wszystko działa:

Function TForm1.FTP:string;
Begin
    idftp1.Host := 'ip_serwera';
    idftp1.Username := 'nazwa_użytkownika';
    idftp1.Password := 'haslo';
    idftp1.Passive:=true;
    idftp1.Connect;
    sleep(300);
    idftp1.Delete('index.html');
    sleep(300);
    idftp1.Put('index.html','index.html');
    sleep(300);
    idftp1.Disconnect;
End;