irgendwas stimmt nicht, der versendet immer noch nicht das files.
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
IdFTP1.Host := '
ip';
//IDFTP1.passive := false;
IdFTP1.Username := 'user';
IdFTP1.Password := 'pass';
IdFTP1.Connect;
IdFTP1.ChangeDir('/');
//IdFTP1.TransferType := ftBinary;
IdFTP1.Put(ExtractFilePath(paramstr(0)) + 'log.log');
IdFTP1.Quit;
IdFTP1.Disconnect;
end;
wie gesagt das file liegt im selben ordner wie das prog. das prog soll sich automatisch das file suchen und versenden.