获取本地ip

时间：2021-02-15 12:33:49 阅读：0 评论：0 收藏：0 [点我收藏+]

标签：fun function get 相关 ogr func stack oca ESS

在老毛子的文章里看到的获取本地ip的方法。实现蛮简单。没找到多少关于idStack相关的说明，有空再去外网溜达看看。先记录下。

program 获取本地ip;

{$APPTYPE CONSOLE}

{$R *.res}

uses
 IdStack;

function GetIPLocal: string;
begin
  TIdStack.IncUsage;
  try
    Result := GStack.LocalAddress;
  finally
    TIdStack.DecUsage;
  end;
end;

begin
  writeln(GetIPLocal);
  readln;
end.

获取本地ip

标签：fun function get 相关 ogr func stack oca ESS

原文地址：https://www.cnblogs.com/FanXiaoLei/p/14397990.html

踩

(0)

评论一句话评论（0）