Здравствующие
вот когда использую такой код, то всё отлично
Код:
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); то программа вообще не грузится, выбывает такую ошибку
как можно же загрузить адрес и порт с эдитов ?