funlib.pas

来自「delphi写的以广播方式收发信息和图片_局域网聊天。」· PAS 代码 · 共 34 行

{
+-----------------------------------------------------+
|    YangZhenhua  2004.11.29 16:45  ZhuHai.GuangDong  |
+-----------------------------------------------------+

自定义常用函数库
======================Example===================================================
uses
  FunLib;
================================================================================
}

unit FunLib;

interface

uses
  IdIPWatch;
  function GetLocalIP():String;
implementation

//获取本机IP地址
function GetLocalIP():String;
var
  IdIPWatch : TIdIPWatch;
begin
  IdIPWatch := TIdIPWatch.Create(nil);
  IdIPWatch.HistoryEnabled := False;
  result := IdIPWatch.LocalIP;
  IdIPWatch.Free;
end;

end.