Текущий архив: 2004.10.03;
Скачать: CL | DM;
Вниз
хттп в веббраузере Найти похожие ветки
← →
RaPToR_1 (2004-07-21 12:37) [0]когда на форуме встречал... а щас не нашел как можно изменить проксик, для TwebBrowser`a..... нужно изменение только на один сеанс.....
да и еще кто может подсказать как юзать SOCKS проксики?
← →
oleg_SYS © (2004-07-29 03:59) [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;
Устанавливает параметры в пределах процесса..
uses WinInet
Страницы: 1 вся ветка
Текущий архив: 2004.10.03;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.026 c
