Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.024 c
14-1094822954
jack128
2004-09-10 17:29
2004.10.03
Как скопировать содержимое окна CPU


1-1095244178
Ms.Dunkul
2004-09-15 14:29
2004.10.03
таскание формы 2


6-1090467238
НовиЧок
2004-07-22 07:33
2004.10.03
Блокировка ошибок в WebBrowser e


11-1081013613
mehos
2004-04-03 21:33
2004.10.03
Ширина выводимой меню, при OwnerDraw=true


6-1090333677
Jedi
2004-07-20 18:27
2004.10.03
Как выполнить учет Интернета?