Não entendo porque o TWebBrowser não está abrindo a página

[AndreyFerraz]

Pessoal eu estou tentando fazer com que uma página seja aberta e sempre que atualizada o proxy seja alterado, mais não estou entendendo porque não está dando certo, alguém entenderia disso ai para me explicar expondo algum exemplo da maneira correta de fazer?

 

unit UnitPrincipal;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw, Vcl.StdCtrls, urlmon, wininet, ShellApi;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x : integer = 0;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
var
   MyInternetProxyInfo: PInternetProxyInfo;
   lbResult: boolean;
begin
memo1.Lines.Delete(x); // deleta sempre a primeira linha do memo
MyInternetProxyInfo := New(PInternetProxyInfo);
try
   MyInternetProxyInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
     MyInternetProxyInfo^.lpszProxy := PAnsiChar(AnsiString ('<Admin-pc>'));
     MyInternetProxyInfo^.lpszProxyBypass := PAnsiChar(AnsiString ('<local>'));
     lbResult := InternetSetOption(nil, INTERNET_OPTION_PROXY, MyInternetProxyInfo, SizeOf(MyInternetProxyInfo^));
     if not lbResult then
       raise Exception.Create('Não foi possível aplicar as configurações de proxy !')
     else
       Webbrowser1.Navigate('http://vsshowvotar.com.br/index.php?cand=11&?ID=a42495d3ff98a6');

finally
   Dispose(MyInternetProxyInfo);
end;
//WebBrowser1.Navigate('http://vsshowvotar.com.br/index.php?cand=11&?ID=18c752355f7050');
end;




end.

 

[Jhonas]

procedure TForm1.FormCreate(Sender: TObject);

O Evento OnCreate executa esse código apenas no momento da criação do Form, depois não executa mais

 

experimente colocar em um botão e veja o que acontece:

 

procedure TForm1.Button1Click(Sender: TObject);
var
   MyInternetProxyInfo: PInternetProxyInfo;
   lbResult: boolean;
begin
   memo1.Lines.Delete(x); // deleta sempre a primeira linha do memo
   MyInternetProxyInfo := New(PInternetProxyInfo);
   try
      MyInternetProxyInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
        MyInternetProxyInfo^.lpszProxy := PAnsiChar(AnsiString ('<Admin-pc>'));
        MyInternetProxyInfo^.lpszProxyBypass := PAnsiChar(AnsiString ('<local>'));
        lbResult := InternetSetOption(nil, INTERNET_OPTION_PROXY, MyInternetProxyInfo, SizeOf(MyInternetProxyInfo^));
        if not lbResult then
          raise Exception.Create('Não foi possível aplicar as configurações de proxy !')
        else
          Webbrowser1.Navigate('http://vsshowvotar.com.br/index.php?cand=11&?ID=a42495d3ff98a6');

   finally
      Dispose(MyInternetProxyInfo);
   end;
   //WebBrowser1.Navigate('http://vsshowvotar.com.br/index.php?cand=11&?ID=18c752355f7050');
end;

 

abraço

 

[AndreyFerraz]

Então Jhonas, obrigadão ai cara pela ajuda, mais enfim, eu entendi o que você quis dizer, e realmente faz sentido... mais um dos erros cruciais ai esta sendo isso aqui:

 MyInternetProxyInfo^.lpszProxy := PAnsiChar(AnsiString ('<Admin-pc>'));

como deve ser:
 MyInternetProxyInfo^.lpszProxy := PAnsiChar(AnsiString ('<Admin-pc:80>'));

 

[Jhonas]

experimente esse exemplo:

http://www.webcheats.com.br/threads/delphi-pegar-ip-de-uma-url.1164919/

abraço

OBS: vou deletar o seu outro post para não haver duplicações ..ok ?