Browsing Menggunakan Proxy Dengan TWebBrowser

Tips ringan dari saya kali ini sebenarnya tidak begitu penting tapi mudah-mudahan bisa bermanfaat bagi anda dunia dan akhirat. Seperti halnya browser-browser pada umumnya, dengan komponen WebBrowser pada Delphi kita bisa browsing menggunakan proxy. Entah dari mana asalnya script ini saya sudah lupa karena sudah terlalu lama juga saya simpan, tapi siapapun dia saya ucapkan banyak terima kasih karena berkat dia maka lahirlah artikel ini. Oke ini dia scriptnya yang berupa "procedure ApplyProxy". Tapi sebelumnya tambahkan dulu "WinInet" pada bagian "uses" nya.

procedure ApplyProxy(proxy: string);
var
  MyInternetProxyInfo: PInternetProxyInfo;
begin
  MyInternetProxyInfo:=New(PInternetProxyInfo);
  try
    if proxy = '' then
      MyInternetProxyInfo^.dwAccessType := INTERNET_OPEN_TYPE_DIRECT else
    begin
      MyInternetProxyInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
      MyInternetProxyInfo^.lpszProxy := PChar(proxy);
      MyInternetProxyInfo^.lpszProxyBypass := PChar('<local>');
    end;
    InternetSetOption(nil, INTERNET_OPTION_PROXY, MyInternetProxyInfo, SizeOf(MyInternetProxyInfo^));
  finally
    Dispose(MyInternetProxyInfo);
  end;
end;

Jalankan procedure ini sebelum perintah navigate pada TWebBrowser. Script ini sudah saya coba jalankan di Delphi 7 dan hasilnya mulus tanpa hambatan. Tuh ada screenshotnya diatas kalo ga percaya. Atau download aja demo programnya di link ini : http://adf.ly/QPdh3