| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

pochemu ne rabotaet???? [D7, WinXP]

pr0t0n ©   (2005-09-12 20:32:00) 

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:00) [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;

---

Наверх