Цитата:
|
Сообщение от lmikle
Полный код давай. Ты вообще смотришь что тебе функция возвращает. У тебя прокси-то настроен? А то может там и нет никаких данных, а ты пытаешься их читать... DNS это не прокси  |
Данные есть: Адрес и порт. (в connections->lan settings).
Код такой:
Код:
procedure TForm2.Button1Click(Sender: TObject);
var PIInfo : PInternetProxyInfo;
proxyinfo: pinternetproxyinfo;
len: longword;
proxyserver: string;
Buffer2: array[0..5000] of PWideChar;
Buffer4: PWideChar;
begin
Edit5.Text:='';
len := 4096;
getmem(proxyinfo, len);
try
if internetqueryoption(nil, internet_option_proxy, proxyinfo, len) then
if proxyinfo^.dwaccesstype = internet_open_type_proxy then
begin
//proxyserver := proxyinfo^.lpszproxy;
//AnsiString(proxyinfo^.lpszproxy)
Buffer4:=proxyinfo^.lpszproxy;
proxyserver := WideCharToString(Buffer4);
Edit5.Text:=proxyserver;
end
finally
freemem(proxyinfo);
end;
Данные: Адрес 168.0.0.9 Порт 80.