Главная страница
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.022 c
1-1095237628
Black
2004-09-15 12:40
2004.10.03
Почему delete(q, 0, 8) выдаёт ошибку?


1-1095352041
panov
2004-09-16 20:27
2004.10.03
Ошибка в потоке


14-1093916546
Александр1
2004-08-31 05:42
2004.10.03
Меню windows


1-1095657753
prorok2
2004-09-20 09:22
2004.10.03
Форма и сообщения системы


4-1092833282
*Pavel
2004-08-18 16:48
2004.10.03
Чтение данных с USB