S1d0r
Сообщений: 6
Оценки: 0
Присоединился: 2009-04-05 16:14:06.013333
|
Доброго времени суток. Пишу прогу на делфи для входа в интернет под проксями используя Twebbrowser собственно проблема вот листинг программы unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw,urlmon, wininet;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
PIInfo: PInternetProxyInfo;
n:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
New(PIInfo);
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
PIInfo^.lpszProxy := PChar(edit1.Text);
PIInfo^.lpszProxyBypass := PChar('');
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo,
SizeOf(Internet_Proxy_Info), 0);
Dispose(PIInfo);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
webbrowser1.Navigate('http://myip.ru/');
end;
end. Я ввожу в Edit1 host:port жму Button1 всё норм работает но когда я повторно ввожу новый прокси сервер и жму Button1 он работает на старом как зделать что бы работал на вводимом всегда… Заранее спасибо за помощь :)
|