При помощи данной процедуры, Написанной на языке Delphi, можно установить Proxy, через которую будет осуществляться работа в Internet, Proxy адрес указывается в формате адрес : порт, например 195.43.67.33:8080.
uses WinInet, UrlMon; ...
procedure ChangeProxy(aProxy: String);
var PIInfo: PInternetProxyInfo;
begin
New(PIInfo); PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY; PIInfo^.lpszProxy := PChar(aProxy);
// Список адресов, доступ к которым осуществляется не через прокси
PIInfo^.lpszProxyBypass := PChar(''); UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0); Dispose(PIInfo);
end;
В Интернете есть все! Может это утверждение немного и преувеличено, но в огромном количестве информации несложно затеряться. И чтобы найти что-то действительно интересное в сети придется немало постараться, отсеивая мегабайты данных.