хттп в веббраузере
RaPToR_1 © (2004-07-21 12:37:00)
когда на форуме встречал... а щас не нашел как можно изменить
проксик, для TwebBrowser`a..... нужно изменение только на один
сеанс.....
да и еще кто может подсказать как юзать SOCKS проксики?
oleg_SYS (2004-07-29 03:59:00) [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
Наверх 
ЧАТ |
Орешник |
|
