Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.046 c
14-1133514288
Yuri Btr
2005-12-02 12:04
2005.12.25
Скорость RadioEthernet


3-1131019475
DelphiLexx
2005-11-03 15:04
2005.12.25
Подтвердить транзакцию в процедуре


6-1126863529
nokk
2005-09-16 13:38
2005.12.25
IP адрес


2-1134081922
Quattro
2005-12-09 01:45
2005.12.25
TChart


4-1129952964
Idx
2005-10-22 07:49
2005.12.25
Делаю “skin” для TabControl помогите