Zitat:
Schicke mal das With-do-Konstrukt in die Wüste und schreibe die Instanzen anständig aus.
so gehts aber schneller *g*
ftplist = Tlistview
aport = idftp1.port
die server werden in eine ".dat" datei geschrieben da sind alle server von den free webspace seiten wo man per
ftp eine verbindung herstellen kann und files rauf/runterladen
und ja bei mehr als 10server bzw sollte ein server offline sein bleibt es bei den jeweiligen server stecken?
der source code:
Delphi-Quellcode:
procedure Tform.btnCheckClick(Sender: TObject);
var
i: integer;
ip,acc,pwd,aport:
string;
begin
ftplist.height := 521;
Add_Box.visible := False;
btnhinzufuegen1.visible := True;
for i := 0
to ftplist.items.count -1
do
with ftplist.Items[i]
do
begin
ip := Caption;
acc := SubItems[0];
pwd := SubItems[1];
aport := SubItems[2];
with idFTP1
do
begin
if Connected
then Disconnect();
Host :=
ip;
Port := StrToIntDef(aport, 21);
Username := acc;
Password := pwd;
try
Connect;
ftplist.Items[i].SubItems[3] := '
Online ftp hotmail';
except
ftplist.Items[i].SubItems[3] := '
Offline ftp hotmail';
end;
idftp1.disconnect;
jo und keine ahnung
lg.