[Дельфин]

Майняк спасибо, терь то что надо, ток сканит долго, но эт не важно.
Но проблемы на этом не закончились, мне надо чтоб перебирало ещё диапазон подсетей, тоесть цикл в цикле, вообщем чтоб сначала выполнялся 1ый цикл, как он закончится, выполнялся 2ой, как заканчивается 2ой, дожен переключится заново 1ый, ну вы меня поняли надеюсь=)) Полазил по всяким документациям ненашёл ни чё подобного, надеюсь мне и с этим поможите

[Дельфин]

Неужели это сложно осуществить или просто не ясен вопрос?

[Майняк]

а как же иначе? Ну, хочешь - берись за сокеты, сам пиши. Может быстрее будет немного.

[4kusNick]

Можно использовать функции из модуля wininet напрямую, в обходвсяких indy и т.д. Например:

// функция разбора строки на элементы по разделителю, понадобится позже

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

function StrToArrays(const str, r: String; out Temp: TStrings): Boolean; var   j: integer;   sInStr,sSep: String; begin   sInStr := str;   sSep := r;   if Temp <> nil then   begin     Temp.Clear;     while sInStr <> '' do     begin       j := Pos(sSep,sInStr);       if j = 0 then j := Length(sInStr) + 1;       Temp.Add(Copy(sInStr, 1, j-1));       Delete(sInStr, 1, j + length(sSep) - 1);     end;     Result := True;   end   else     Result := False; end;

// функция заливки папки без подпапок на FTP
// параметры:
// strHost - ftp сервер, куда заливаем
// strUser - имя пользователя
// strPwd - пароль
// Port - номер порта, обычно используют INTERNET_DEFAULT_FTP_PORT
// localDir - локальная папка с айлами, которую следует залить на FTP
// глобальная переменная sFTPPath содержит в себе путь к папке, куда мы заливаем,если пусто - то льем в корень

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87

function FtpSaveFile(const strHost, strUser, strPwd: String; Port: Integer; localDir: string): Boolean; var   hNet,hFTP,hResult : HINTERNET;   sSourceDir        : String;   bSuccess      : Boolean;   SR            : TSearchRec;   iProgress,   iCount        : Integer;   sRec          : TWin32FindData;   saDirs                : TStrings;   begin     Result := False;   sSourceDir := IncludeTrailingPathDelimiter(localDir);   sFTPPath := StringReplace(sFTPPath,'\','/',[rfReplaceAll]);     { Открываем сессию }   hNet := InternetOpen('TestSession',           // Агент                         INTERNET_OPEN_TYPE_PRECONFIG,   // Тип доступа                         nil,                // ProxyName                         nil,                // ProxyBypass                         0);                 // или INTERNET_FLAG_ASYNC / INTERNET_FLAG_OFFLINE     { Проверяем валидность хэндла соединения }   if hNet = nil then   begin     ShowMessage('Error');     Exit;   end;     { Соединяемся с FTP Сервером }   hFTP := InternetConnect(hNet,             // Хэндл от InternetOpen                           PChar(strHost),       // FTP сервер                           port,             // (INTERNET_DEFAULT_FTP_PORT),                           PChar(StrUser),       // username                           PChar(strPwd),        // password                           INTERNET_SERVICE_FTP,     // FTP, HTTP, или Gopher?                           0,                // флаг: 0 или INTERNET_FLAG_PASSIVE                           0);               // Значение CallBack'а     if hFTP = nil then   begin     InternetCloseHandle(hNet);     MessageBox(Handle,PChar(Format('Error %s',[strHost])),PChar(Caption),MB_ICONWARNING);     Exit;   end;     if sFTPPath <> '' then   begin     saDirs := TStringList.Create;     StrToArrays(sFTPPath,'/',saDirs);     for iCount := 0 to saDirs.Count - 1 do     begin       FtpCreateDirectory(hFTP,PChar(saDirs.Strings[iCount]));       bSuccess := FtpSetCurrentDirectory(hFTP, PChar(saDirs.Strings[iCount]));       if not bSuccess then       begin         InternetCloseHandle(hFTP);         InternetCloseHandle(hNet);         MessageBox(Handle,PChar(Format('Error %s',[saDirs.Strings[iCount])),PChar(Caption),MB_ICONWARNING);         Exit;       end;     end;     saDirs.Free;   end;     if FindFirst(sSourceDir + '*.*', faAnyFile, SR) = 0 then   begin     repeat       if (SR.Attr <> faDirectory) then       begin         FtpPutFile(hFTP,                 PChar(sSourceDir + SR.Name),                     PChar(SR.Name),                     FTP_TRANSFER_TYPE_BINARY,                     0);       end;     until FindNext(SR) <> 0;     FindClose(SR);   end;   InternetCloseHandle(hFTP);   InternetCloseHandle(hNet);     Result := True;   end;

Так вот, можно использовать возвращаемое значение InternetConnect для проверки доступа...

[DIMzOne]

А можно какнить ускорить процесс сканирования в случае с IdFTP? Например использованием таймера или Application.ProcessMessages ?
Или может есть другой способ?