unit1.pas

来自「一个关于获取IP的过程 采用的是读去QQ库的方式」· PAS 代码 · 共 49 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

type  
  PPchar=^pchar;   
  
function _GetAddress(ip:pchar):ppchar;stdcall;external 'ipsearcher.dll';   
function GetLocation(ip:pchar):string;   
implementation
  
{$R *.dfm}  
function GetLocation(ip:pchar):string;   
var  
  loc:string;   
  p:ppchar;   
begin  
  p:=_GetAddress(ip);   
  loc:=p^;   
  inc(p);   
  loc:=loc+p^;   
  result:=loc;   
end;   


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetLocation('200.193.118.168'));
end;

end.