Saber el IP de internet LA SOLUCION !!!

[RJF]

Gracias, buen dato.
Con todo esto creo que ha quedado claro el mitico tema de como obtener el ip de internet, esto esta mas que claro, pero si alguien tiene otra duda que pregunte nomas

[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