Saber el IP de internet LA SOLUCION !!!

[tulio]

Hola RJF

Gracias por tu colaboracion, te cuento que probe el codigo y al reinventar el formulario con los componentes me da algunos errores, mi pregunta es si podes publicar el proyecto con el formulario que tenga los componentes del codigo que escribiste.

Muchas Gracias

tulio

[email protected]

[RJF]

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IDStack, StdCtrls, Buttons, OleCtrls, SHDocVw, ActiveX, WinInet, Winsock;
type
  TForm1 = class(TForm)
    WebB: TWebBrowser;
    TxtDireccion: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    Button1: TButton;
    Edit1: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure WebBDocumentComplete(Sender: TObject; const pDisp: IDispatch;
      var URL: OleVariant);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function WebBrowerDocumentSource(webBrowser: TWebBrowser) : string;
  end;
var
  Form1: TForm1;
implementation

les dejo la cabecera del proyecto para que vean las unidades utilizadas, realizado en Delphi 7