Форум: "Сети";
Текущий архив: 2005.12.25;
Скачать: [xml.tar.bz2];
Внизpochemu ne rabotaet???? Найти похожие ветки
← →
pr0t0n © (2005-09-12 20:32) [0]zdrastvute. obyasnite pochemu ne rabotaet i chego nado chtobi rabotalo???
var
SL : TStringList;
i : integer;
begin
FTP.Host:=edHost.Text;
FTP.Username:=edUser.Text;
SL:=TStringList.Create;
SL.LoadFromFile(edPas.Text);
for i:=0 to SL.Count-1 do
begin
FTP.Password:=SL.Strings[i];
FTP.Connect;
if FTP.Connected=true then
exit;
end;
SL.Free;
end;
← →
pr0t0n © (2005-09-12 20:56) [1]Variant 2
var
SL : TStringList;
i : integer;
begin
FTP.Host:=edHost.Text;
FTP.Username:=edUser.Text;
SL:=TStringList.Create;
SL.LoadFromFile(edPas.Text);
for i:=0 to SL.Count-1 do
begin
FTP.Password:=SL.Strings[i];
try
FTP.Connect;
except
end;
begin
if FTP.Connected then
label7.Caption:=SL.Strings[i];
end;
end;
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2005.12.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c