Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
ВнизTWebBrowser Найти похожие ветки
← →
Yakudza © (2004-07-15 12:53) [0]Можно ли TWebBrowser`ом ходить через определенный прокси ?
← →
Ihor Osov'yak © (2004-07-15 16:12) [1]Можно.
function InetSessionToUserSetting(aEnProxy: boolean; aStrIP, aStrPort: string): boolean;
var
p: INTERNET_PROXY_INFO;
x: integer;
dreserved: dword;
begin
result := false;
FillChar(p, sizeof(p), 0);
if aEnProxy then
begin
p.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
if aStrPort <> "" then
p.lpszProxy := PChar(aStrIP + ":" + aStrPort)
else
p.lpszProxy := PChar(aStrIP);
end
else
begin
p.dwAccessType := INTERNET_OPEN_TYPE_DIRECT;
p.lpszProxy := "";
end;
p.lpszProxyBypass := "";
x := sizeof(p);
dreserved := 0;
if UrlMkSetSessionOption(INTERNET_OPTION_PROXY, @p, x, dreserved) <> S_OK then
begin
Exit;
end;
result := true;
end;
Зы. Устанавливает параметры в пределах процесса..
Зы2. uses WinInet
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.039 c