twebbrowser proxy, delphi 2009 Опции

[Rian]

нашел для указания браузеру прокси такую процедуру, только до ее выполнения браузер загружает, а после указания прокси перестает...

procedure proxy_go(proxy: string);
var proxy_info : PInternetProxyInfo;
begin
  New (proxy_info);
  proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  proxy_info^.lpszProxy := PChar(proxy);
  proxy_info^.lpszProxyBypass := PChar('');

  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info, SizeOf(Internet_Proxy_Info), 0);
  Dispose(proxy_info);
end; 

proxy_go('82.179.217.243:8080');

ЗЫ так кажется мои опасения по поводу версии делфи оправдались и delphi7 код заработал.... почему не работает в delphi2009 ??

Сообщение отредактировано: Rian - 11.11.2011 18:05

[IUnknown]

почему не работает в delphi2009 ??

Потому что не PChar надо использовать в 2009, а PAnsiChar...

[Rian]

Потому что не PChar надо использовать в 2009, а PAnsiChar...

а) блин всего-то

ЗЫ просто интересно как об этом можно узнать?

[IUnknown]

просто интересно как об этом можно узнать?

Заходить почаще на forums.embarcadero.com, не у тебя первого эта проблема возникла...

[Rian]

таак.. щас проверил, походу не то, нельзя написать PAnsiChar, несовместимость типов

[IUnknown]

procedure proxy_go(proxy: AnsiString);
var proxy_info : PInternetProxyInfo;
begin
   New (proxy_info);
   proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
   proxy_info^.lpszProxy := PChar(proxy);
   proxy_info^.lpszProxyBypass := nil;
   UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info, SizeOf(Internet_Proxy_Info), 0);
   Dispose(proxy_info);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   proxy_go(AnsiString('82.179.217.243:8080'));
end;

(На предупреждение компилятора в данном случае придется закрыть глаза)...

[Rian]

ok