[Delphi] Obsługa proxy webbrowsera

[wilczekk]

Witam, piszę prosty programik, który zmienia ustawienia proxy IE z poziomu delphi za pomocą rejestru. Mamy Memo z listą proxy, kopiujemy z niej do Edita dany adres, za pomocą buttona ustawiamy wybrane proxy. Drugi button sluży do nawigacji webbrowsera. Całość wygląda tak:

 

unit Unit1;
interface
uses
 Winapi.Windows, Registry, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw;
type
 TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
 private
{ Private declarations }
 public
{ Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
myReg: TRegistry;
begin
myReg := TRegistry.Create;
myReg.RootKey := HKEY_CURRENT_USER;
if myReg.OpenKey('Software\Microsoft\Windows\CurrentV ersion\Internet Settings', TRUE) then
begin
myReg.WriteString('ProxyServer', +Edit2.Text);
myReg.WriteInteger('ProxyEnable', 1);
end;
myReg.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Webbrowser1.Navigate(Edit1.Text);
end;
end.

 

Problemy:

1) Niestety średnio działa zmiana proxy, (zmienia wpis w rejestrze, a nijak to się ma naszego IP) czy ktoś jest w stanie wskazać gdzie leży błąd?

2) Czy jest możliwość aby lista adresów była umieszczona w CoboBoxie, a zaznaczony item = Edit2.Text coś na zasadzie:

Edit2.Text:=CoboBox1.Selected.Item;

 

Z góry dzięki za pomoc

[olesio]

1) Niestety średnio działa zmiana proxy, (zmienia wpis w rejestrze, a nijak to się ma naszego IP) czy ktoś jest w stanie wskazać gdzie leży błąd?

 

Pewnie zmiana wartości w Rejestrze nieskutkuje ponieważ potrzebny jest restart przeglądarki lub ubicie i stworzenie TWebBrowser na nowo, o ile zmian w rejestrze nie trzeba robić przy zamkniętej przeglądarce IE, a więc i nie przy stworzonym TWebBrowserze, ale szczegółów nie znam. Zresztą o ile wiem to Synapse wspiera proxy, nie prościej zrobić proxy checker pod nim, o ile program ma tylko sprawdzać działanie proxy. Po co używać armaty na komary, ludzie się ostatnio znowu upierają na używanie takich kombajnów zamiast operować na czymś prostszym. Ewentualnie jeżeli musisz mieć wizualizacje strony to może pokombinować z innymi kontrolkami opartymi na przykład na FireFoxie.

2) Czy jest możliwość aby lista adresów była umieszczona w CoboBoxie, a zaznaczony item = Edit2.Text coś na zasadzie:

Edit2.Text:=CoboBox1.Selected.Item;

Tak da się. ComboBox posiada własnośc ItemIndex.