Текущий архив: 2005.12.25;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.032 c