|
#1
|
|||
|
|||
баг с Proxy
Здравствующие
вот когда использую такой код, то всё отлично Код:
procedure TForm5.Button4Click(Sender: TObject); var PIInfo : PInternetProxyInfo; begin New (PIInfo) ; PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; // Тип доступа в интернет - через Proxy сервер PIInfo^.lpszProxy := 112.65.135.54:8080; // указать прокси напр. 195.43.67.33:8080 PIInfo^.lpszProxyBypass := ''; // Список адресов, доступ к которым возможен минуя Proxy сервер UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0); Dispose (PIInfo) ; end; Код:
procedure TForm5.Button4Click(Sender: TObject); var PIInfo : PInternetProxyInfo; begin New (PIInfo) ; PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; // Тип доступа в интернет - через Proxy сервер PIInfo^.lpszProxy := PAnsichar(Form1.edit5.text{':'}+Form1.edit6.text); // указать прокси напр. 195.43.67.33:8080 PIInfo^.lpszProxyBypass := ''; // Список адресов, доступ к которым возможен минуя Proxy сервер UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0); Dispose (PIInfo) ; end; если делаю Pchar(Form1.edit5.text{':'}+Form1.edit6.text); то программа вообще не грузится, выбывает такую ошибку как можно же загрузить адрес и порт с эдитов ? |