Главная страница
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.061 c
3-1131352673
_xroot
2005-11-07 11:37
2005.12.25
QReports


1-1133000808
DillerXX
2005-11-26 13:26
2005.12.25
открыть popup


2-1134195747
eid
2005-12-10 09:22
2005.12.25
asci-ansi


11-1115316782
Sphinxx
2005-05-05 22:13
2005.12.25
Скачивание фалов с инета


2-1134300848
злобная танька
2005-12-11 14:34
2005.12.25
ООП: виртуальные методы