VPF::Как переделать код, чтобы он работал через соксы?

nod3264

Дата 4.8.2009, 21:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 2.8.2009

Репутация: 1
Всего: 1

Есть код загрузки файла, взятый из delphi world.

Код


function GetInetFile(const fileURL, FileName: string): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName: string;
begin
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen);
      until
        BufferLen = 0;
      CloseFile(f);
      Result := True;
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

И есть необходимость сделать так, чтобы он работал через соксы. Подскажите как это реализовать?

Romikgy

Дата 4.8.2009, 21:55 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


lpszProxyName [in]

    Pointer to a null-terminated string that specifies the name of the proxy server(s) to use when proxy access is specified by 
setting dwAccessType to INTERNET_OPEN_TYPE_PROXY. Do not use an empty string, because InternetOpen will use it as the
 proxy name. The WinINet functions recognize only CERN type proxies (HTTP only) and the TIS FTP gateway (FTP only).
[color=orangered]
 If Microsoft Internet Explorer is installed, these functions also support SOCKS proxies. [/color]

FTP requests can be made through a CERN type proxy either by changing them to an HTTP request or by using InternetOpenUrl . 
If dwAccessType is not set to INTERNET_OPEN_TYPE_PROXY, this parameter is ignored and should be NULL. 
For more information about listing proxy servers, see the Listing Proxy Servers section of Enabling Internet Functionality .

http://msdn.microsoft.com/en-us/library/aa...28VS.85%29.aspx

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

MetalFan

Дата 4.8.2009, 22:03 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

не проверял, но где-то видел вариант кода, где к адресу(имени) прокси приписывалось в начала "socks=". FE: "socks=127.0.0.1:1080"

--------------------

There are always someone smarter than you...

nod3264

Дата 4.8.2009, 22:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 2.8.2009

Репутация: 1
Всего: 1

Получается нужно заменить строку

Код


 INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

на

Код


 INTERNET_OPEN_TYPE_PROXY, nil, nil, 0);

А как теперь прописать какой именно прокси юзать?

Romikgy

Дата 4.8.2009, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

http://msdn.microsoft.com/en-us/library/aa...28VS.85%29.aspx
http://msdn.microsoft.com/en-us/library/aa...28VS.85%29.aspx
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=401

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

nod3264

Дата 4.8.2009, 23:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 2.8.2009

Репутация: 1
Всего: 1

Спасибо, получается нужно делать так:

Код


 INTERNET_OPEN_TYPE_PROXY, '220.227.250.254:8080', nil, 0);

Верно? я сейчас не имею возможности проверить.

MetalFan

Дата 5.8.2009, 11:42 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

nod3264, а ты попробуй. вариантов то не сильно много ;)

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »