Hi
danke für die schnelle Antwort leider bin ich doch etwas überfordert
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var x : integer;
begin
idftp1.Host := 'xxxxxx.xxxxx.com';
idftp1.Username := 'xxxxxxx';
idftp1.Password := 'xxxxxxx';
idftp1.Connect(true, 30000);
idftp1.Port:=21;
try
idftp1.DirectoryListing;
x := 1;
while ('schule' + x)// Hier scheint folgender Incompatible types: 'String' and 'Integer'
idftp1.MakeDir('schule1');
idftp1.ChangeDir('schule1');
idftp1.Put('c:\test.log', ExtractFileName('test.log'));
idftp1.Disconnect;
except
Showmessage('Der Server ist momentan nicht erreichbar');
end;
end;
Ausserdem verstehe ich nicht wie ich diese zeile umsetzen soll
So wie ich es versuche kommt leider nie was anständiges bei raus
while ('schule' + x) im DirectoryListing mache: