Текущий архив: 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