如何获得本机的IP地址，在点对点通信程序中如何获得发消息过来的主机的IP地址-CSDN论坛

如何获得本机的IP地址，在点对点通信程序中如何获得发消息过来的主机的IP地址

Delphi > 网络通信/分布式开发

收藏回复

[问题点数：40分，结帖人smuwcwt]

⋅JAVA连ORACEL数据库，动态拼接的SQL运行时单引号总是一个变两 ⋅请教如何判断页面上两个菱形是否有重叠？ ⋅如果用HTML5画一条箭头线连接两个矩形框的话如何加上hover功能呢？ 更多帖子 关注私信空间博客 smuwcwt 等级 本版专家分：56 结帖率 100%: RT

2003-12-17 17:47:58

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅大家笑一笑，散分

⋅好久没来，分太多了，散。24小时后结贴。

⋅关于ICON色深的问题

更多帖子

关注私信空间博客

crapex

等级

本版专家分：1216

勋章

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！: 1.本机IP
function LocalIP:string;
type
        TaPInAddr = array [0..10] of PInAddr;
        PaPInAddr = ^TaPInAddr;
var
        phe : PHostEnt;
        pptr : PaPInAddr;
        Buffer : array [0..63] of char;
        I : Integer;
        GInitData : TWSADATA;
begin
        WSAStartup($101, GInitData);
        Result := '';
        GetHostName(Buffer, SizeOf(Buffer));
        phe :=GetHostByName(buffer);
        if phe = nil then Exit;
        pptr := PaPInAddr(Phe^.h_addr_list);
        I := 0;
        while pptr^[I] <> nil do begin
                result:=StrPas(inet_ntoa(pptr^[I]^));
                Inc(I);
        end;
        WSACleanup;
end;
2.对方IP
  ServerSocket1.Socket.Connections[i].RemoteAddress

2003-12-17 19:07:00

点赞只看TA 引用举报 #1得分 10

⋅求一正则表达式 ⋅请教一条sql语句 ⋅C# ASP.net MVC 4 中，怎么用Spring来配置View CSHtml中得Dev GridView控件的列 更多帖子 关注私信空间博客 quansui 等级 本版专家分：328: 如果你不想编太多的代码的话用powersock控件吧。很方便获得本机IP
x:=Powersock1.LocalIP；
对方的IP:如果你使用的是WinSocket在这个事件中得到
procedure TSocketData.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientIP:=Socket.RemoteAddress;
end;

2003-12-17 23:01:44

点赞只看TA 引用举报 #2得分 5

⋅大型软件公司急聘！ ⋅为什么 authorware里面插入flash，cpu占用100％？ ⋅Borland称12家公司有意接收Delphi和JBuilder 更多帖子 关注私信空间博客 2312 等级 本版专家分：3940: 把客户端IP一块发到服务器，然后进行分解！

获得本机IP：
procedure TF_main.getipaddress;            //»ñµÃ±¾»úIPµØÖ·
var ip,ipstr:string;
    ch:array[1..32] of char;
    i:integer;
    wsdata:twsadata;
    myhost:phostent;
begin
  if wsastartup(2,wsdata)<>0
    then
      begin
        messagedlg('Ã»ÓÐ³É¹¦·µ»Ø£¡',mtinformation,[mbok],0);
        halt(2);
      end;
    try
      if gethostname(@ch[1],32)<>0 then
        begin
          messagedlg('Ã»ÓÐ³É¹¦·µ»Ø£¡',mtinformation,[mbok],0);
          halt(3);
        end;
    except
      messagedlg('Ã»ÓÐ³É¹¦·µ»Ø£¡',mtinformation,[mbok],0);
      halt(3);
    end;
      myhost:=gethostbyname(@ch[1]);
      if myhost=nil then
        begin
          messagedlg('ipµØÖ·Îª¿Õ',mtinformation,[mbok],0);
          halt(4);
        end
      else
        begin
          for i:=1 to 4 do
            begin
              ip:=inttostr(ord(myhost.h_addr^[i-1]));
              ipstr:=ipstr+ip;
              if i<4 then
                ipstr:=ipstr+'.'
              else
                strIP:=ipstr;
            end;
        end;
end;

你可以写成函数

2003-12-18 12:06:39

点赞只看TA 引用举报 #3得分 5

⋅JAVA连ORACEL数据库，动态拼接的SQL运行时单引号总是一个变两 ⋅请教如何判断页面上两个菱形是否有重叠？ ⋅如果用HTML5画一条箭头线连接两个矩形框的话如何加上hover功能呢？ 更多帖子 关注私信空间博客 smuwcwt 等级 本版专家分：56: 好像在DELPHI　7下都不能运行呀

2003-12-18 14:45:46

点赞只看TA 引用举报 #4得分 0

⋅大家笑一笑，散分

⋅好久没来，分太多了，散。24小时后结贴。

⋅关于ICON色深的问题

更多帖子

关注私信空间博客

crapex

等级

本版专家分：1216

勋章

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！: D7下面没有ServerSocket的，后面那个不行，但前面那个可以
是需要uses winsock

2003-12-18 15:05:41

点赞只看TA 引用举报 #5得分 0

⋅JAVA连ORACEL数据库，动态拼接的SQL运行时单引号总是一个变两 ⋅请教如何判断页面上两个菱形是否有重叠？ ⋅如果用HTML5画一条箭头线连接两个矩形框的话如何加上hover功能呢？ 更多帖子 关注私信空间博客 smuwcwt 等级 本版专家分：56: 真的不行呀

2003-12-26 09:42:08

点赞只看TA 引用举报 #6得分 0

⋅小弟想请教诸位高手两个关于FORMULA和MAIL-IN database的小问题,请大家指教. ⋅做个调查，做LOTUS、DOMINO的程序员工资一般是多少啊 ⋅两个很简单的问题，菜鸟请高手指教！！ 更多帖子 关注私信空间博客 superfatcow 等级 本版专家分：90: 我试了一下,好象确实不行,楼上的楼上讲清楚点啊

2004-01-19 13:24:42

点赞只看TA 引用举报 #7得分 0

⋅JAVA连ORACEL数据库，动态拼接的SQL运行时单引号总是一个变两 ⋅请教如何判断页面上两个菱形是否有重叠？ ⋅如果用HTML5画一条箭头线连接两个矩形框的话如何加上hover功能呢？ 更多帖子 关注私信空间博客 smuwcwt 等级 本版专家分：56: up

2004-01-20 12:10:28

点赞只看TA 引用举报 #8得分 0

⋅本大虾携强大阵容向各位拜年了！ ⋅愤怒！印尼媒体诬中方救灾食品过期。 ⋅讨论：垃圾短信和垃圾邮件哪个更令人讨厌？ 更多帖子 关注私信空间博客 gdwyh 等级 本版专家分：1741: 获得本机IP:
function tloginfrm.getip:string;
       //返回IP
type
    TaPInAddr = array [0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
var
    phe  : PHostEnt;
    pptr : PaPInAddr;
    Buffer : array [0..63] of char;
    I    : Integer;
    GInitData      : TWSADATA;
begin
   // returns ISP assigned IPf

   WSAStartup($101, GInitData);
    Result := '';
    GetHostName(Buffer, SizeOf(Buffer));
    phe :=GetHostByName(buffer);
    if phe = nil then Exit;
    pptr := PaPInAddr(Phe^.h_addr_list);
    I := 0;
    while pptr^[I] <> nil do begin
      result:=StrPas(inet_ntoa(pptr^[I]^));
      Inc(I);
    end;
    WSACleanup;
end;

2004-01-20 12:59:47

点赞只看TA 引用举报 #9得分 5

⋅请问一个sql该怎么写 ⋅请问要如何计算利息 ⋅求数字识别的源代码，回复之前麻烦先测试一下 更多帖子 关注私信空间博客 月光 等级 本版专家分：6787: 看看delphi自带的demo，udp就看udp，tcp/ip的我不记得在哪个目录，找找

2004-01-20 13:13:03

点赞只看TA 引用举报 #10得分 5

1 2

收起

收藏回复

smuwcwt

等级：

关注私信 TA的帖子

对ip地址网络位和主机位理解: 合法ip地址主要应用于internet上的主机访问，而私有ip地址应用于局域网中计算机的相互通信。 2.ip地址的表示形式：分为二进制表示和点分十进制表示。现在使用的ip地址长度均为32位，由四个八位域组成，称为八位...

如何计算IP地址的网络号和主机号?: IP地址与网络分类 (1)IP地址 不同的物理网络技术有不同的编址方式；不同物理网络中的主机，有不同的物理网络地址。网间网技术是将不同物理网络技术统一起来的高层软件技术。网间网技术采用一种全局通用的地址...

关于同网段内主机之间通信细节: 如果主机A向处于同一子网段的主机B（IP地址为172.16.204.89/16）发送一个分组，那么主机A使用的“这个网络上特定主机”的地址是？分析：通常我们会关注网际间IP数据报的传输，但是忽略了本网段主机之间的传输细节...

网络基础之ARP地址解析协议（为什么IP地址和MAC地址都要有，又是如何通过IP地址解析到MAC地址的）: ARP协议 Address Resolution Protocol 地址解析协议在局域网中，网络中实际传输的是“帧”，帧里面是有目标主机的MAC地址的。...所谓“地址解析”就是主机在发送帧之前将目标主机的IP地址转换成目标主机的MAC...

同网段不同网段主机间通信原理: 在当今的以太网络通信中，在IP数据包中有两个必不可少的地址，那就是IP地址和网卡地址（即MAC地址），在数据包中，无论是IP地址还是MAC地址，都有源地址和目标地址，因为通信是双方的，所以就必须同时拥有双方的地址...

【TCP/IP】IP地址分类和特殊IP地址: IP地址是因特网技术中的一个非常重要的概念，IP地址在IP层实现了底层网络地址的统一，使因特网的网络层地址具有全局唯一性和一致性。IP地址含有位置信息，反映了主机的网络连接，使因特网进行寻址和路由选择的依据。...

Arp工作原理及欺骗原理局域网的网络流通不是根据IP地址进行，而是根据MAC地址进行传输。当主机A要和主机B...: Arp工作原理及欺骗原理局域网的网络流通不是根据IP地址进行，而是根据MAC地址进行传输。...在A这边，做为一个数据的源，它在发送数据时，数据被封装到网络层，需要添加一个IP报头，里面有源和目标IP地址字段

tcp端对端 ip点对点: 点对点 peer to peer 端对端 end to end 网络层涉及的是将源端发出的分组经过各种路径发送到目的端，是处理端到端数据传输的最低层。 IP作用是提供不可靠、无连接的数据报传送传输层的目的是为源端主机和目的端...

如何分别IP地址中的主机和网络标识: 首先，我们介绍一下“IP地址”： “IP地址”是“TCP/IP”（Transmite Control Protocol 传输控制协议/Internet Protocol网际协议）里其中的一种...在应用TCP/IP协议的网络环境中，为了唯一地确定一台主机的位置，

为什么计算机网络同时需要IP地址和MAC地址？: 为什么计算机网络同时需要IP地址和MAC地址？1. 有了MAC地址为什么还需要IP地址？由于全世界存在着各式各样的...连接到因特网的主机只需拥有统一的IP地址，它们之间的通信就像连接在同一个网络（虚拟互连网络或者简称IP

IP地址、子网掩码、网络号、主机号、网络地址、主机地址: 对于192.168.0.0到192.168.0.255这个网络来说，以下说法中正确的是____。正确答案: D 你的答案: D (正确) 网段内可用来作为主机IP的范围是：192.168.0.0到192.168.0.255 Network IP是192.168.0.255 ...

android开发之socket通信向PC机发信息 获取本机IP: 今天早早的就完成了任务，给...android中使用的是java的socket模型，如果你学过java网络编程，那么你对它一定不陌生。今天我主要使用TCP协议实现通信的。小知识点：UDP协议和TCP协议的不同。UDP是把数据都打成数据包

IP地址、网络号、主机号、广播地址等分析计算: 在因特网中，它是能使连接到网上的所有计算机网络实现相互通信的一套规则，规定了计算机在因特网上进行通信时应当遵守的规则。任何厂家生产的计算机系统，只要遵守 IP协议就可以与因特网互连互通。IP地址具有唯一...

IP地址与子网掩码总结，网络号、主机号、网络地址、主机地址实例分析: 使用ip地址和子网掩码确定网络地址和主机号根据子网数，设计子网掩码，使用2的幂次方，从IP地址的主机位借几位作为网络位知道子网主机数，求需要的IP地址，主机数+3。（网关地址、网络地址、广播地址）知道子网掩码...

没有IP地址的主机如何保持IP层联通: 在《两台不同网段的PC直连是否可以相互ping通》一文中，我有点像在玩旁门左道，本文中，我继续走火入魔。两台机器，M1和M2，各自有一个网卡eth0，配置如下：M1的配置：eth0上不配置任何IP地址。M2的配置：eth0上不...

关于IP网络号和主机号的原理: 网络号和主机号具体怎么弄出来的? ? ? ? 1、标准分类的ip地址的网络号是， A类是前8位 B类是前16位 C类是前24位举一个例子如172.16.10.2，因为172.16.10.2是B类地址，所以172.16所代表...

Qt-获取主机网络信息: 通过这几个类获得本机的主机名、IP地址和硬件地址等网络信息。 QHostInfo类：查询与特定主机名相关联的主机的IP地址，或者与一个IP地址相关联的主机名。 QHostAddress 类：提供一个IP地址，可提供独立于平台和协议的...

网络通信，IP地址，端口，socket: ip地址 1. 什么是地址 2. ip地址的作用查看或配置网卡信息：ifconfig 测试远程主机连通性：ping 3. ip地址的分类（了解）端口 1. 什么是端口 2. 端口号 3. 端口是怎样分配的 4. 小总结 socket简介 1. ...

IP地址（A、B、C、D和E类）、网络地址、主机地址、子网掩码与网关之间的关系: “IP地址”就相当于“电话号码”，而Internet中的路由器，就相当于电信局的“程控式交换机”。点分十进制数表示的IPv4地址被分为几类，以适应大型、中型、小型的网络。这些类的不同之处在于不同类别的网络地址所...

子网掩码、ip地址、主机号、网络号、网络地址、广播地址: 几句话掌握子网掩码、ip地址、主机号、网络号、网络地址、广播地址 191.172.16.10.33/27 中的/27也就是说子网掩码是255.255.255.224 即27个全1 2.从子网掩码255.255.255.252得出其网络位为30位，所以只有剩下的2...

网络通信过程--解析：IP地址, 端口port，，DNS服务器，MAC地址，默认网关，通信过程图解（理解型）: IP地址：用来在网络中标记一台电脑，指引数据包的收发方向，在一个局域网中是唯一的；电脑中的ip是可以手动修改的，只要在同一个局域网中不重复即可。分类： ①ip地址的组成，包括网络地址和主机地址（4个字节...

Docker容器跨主机通信之：直接路由方式: 这没毛病，而不同主机上的Docker容器之间只能通过在主机上用映射端口的方法来进行通信，有时这种方式会很不方便，甚至达不到我们的要求，因此位于不同物理机上的Docker容器之间直接使用本身的IP地址进行通信很有必要...

主机ip地址变成169.254.xxx.xxx问题分析解决过程仿真: 169.254.0.0/16是链路本地地址是互联网协议地址仅用于本地网络（链接）或主机连接到的点对点连接的段内的通信。路由器不转发与链路本地地址的数据包。链路本地地址可以由管理员手动或由操作系统程序来分配。它们大多...

IP地址的规划和设计方法(一): 一，IP地址的概念和划分地址新技术的研究 (1)标准分类的IP地址 第一阶段是在IPv4协议制定的初期... IP地址是由网络号与主机号组成的，长度是32bit，用点分十进制方法表示，这样就构成了标准分类的IP地址。常用的A

IP地址格式: 使用TCP/IP协议进行网络应用开发的朋友首先要面对的就是对IP地址信息的处理。IP地址其实有三种不同的表示格式，关于这一点，如果你还不知道，亦或对相关的知识还有所迷惑，本文对你将会有很大的帮助。 Ascii(网络...

Java网络编程笔记(三)：点对点通信(Socket基于TCP协议): 本实例介绍实现点对点通信，即一个服务器端监听一个客户端的请求的通信。实现点对点通信的技术要点如下： Socket通常作"套接字"，用于描述IP地址和端口，是一个通信链的句柄。应用程序通常通过Socket向网络发出...

计算机网络之IP地址: IP地址就是给因特网上的每一个主机（或路由器）的每一个接口分配一个在全世界范围内唯一的32位的标识符。所谓分类的IP地址，就是将IP地址划分为若干固定类，每一类地址都由两个固定长度的字段组成，其中一个字段是...

IP地址中的保留地址: 根据用途和安全性级别的不同，IP地址还可以大致分为两类：公共地址和私有地址。公用地址在Internet中使用，...但是考虑到网络安全和内部实验等特殊情况，在IP地址中专门保留了三个区域作为私有地址，其地址范围如下：

相关热词 c# ef 事务删除 c# this 属性 c#注册代码没有数据库 c#限定时间范围 c#控件跟随窗口大小变化 c# 模板类 c#离线手册 c# 数组、 c#五种限制修饰符 c# urlencode