getinternetlocalip.pas

来自「获取内存的信息的代码」· PAS 代码 · 共 47 行

unit GetInternetLocalIP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, HTTPGet;

type
  TGetInternetLocalIPForm = class(TForm)
    HTTPGet1: THTTPGet;
    procedure FormCreate(Sender: TObject);
    procedure HTTPGet1DoneString(Sender: TObject; Result: string);
    procedure HTTPGet1Error(Sender: TObject);
  private
    { Private declarations }
  public
    TheInternetLocalIP: string;
  end;

var
  GetInternetLocalIPForm: TGetInternetLocalIPForm;

implementation

{$R *.dfm}

procedure TGetInternetLocalIPForm.FormCreate(Sender: TObject);
begin
  TheInternetLocalIP := 'E';
  HTTPGet1.URL := 'http://www.neworigin.com.cn/GetNetIP';
  HTTPGet1.GetString;
end;

procedure TGetInternetLocalIPForm.HTTPGet1DoneString(Sender: TObject; Result: string);
begin
  TheInternetLocalIP := Result;
end;

procedure TGetInternetLocalIPForm.HTTPGet1Error(Sender: TObject);
begin
  TheInternetLocalIP := '';
end;

end.