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

在DEPHI 程序中如何取得本机的IP? [问题点数:0分]

Bbs4
本版专家分:1198
结帖率 97.37%
CSDN今日推荐
Bbs3
本版专家分:604
Bbs5
本版专家分:2046
Bbs4
本版专家分:1198
Bbs1
本版专家分:0
Bbs1
本版专家分:32
Bbs4
本版专家分:1198
Bbs1
本版专家分:88
Bbs4
本版专家分:1198
Bbs1
本版专家分:32
Bbs1
本版专家分:88
Bbs2
本版专家分:202
Bbs1
本版专家分:88
Bbs1
本版专家分:42
Bbs6
本版专家分:7660
匿名用户不能发表回复!
其他相关推荐
基于VS2013 MFC获取计算机的IP和名称
基于MFC获得计算机的IP和名称
利用JS获取本机IP并提交的方法
function GetLocalIPAddress() { var obj = null; var rslt = ""; try { obj = new ActiveXObject("rcbdyctl.Setting"); rslt = obj.GetIPAddress; obj = null;
六行代码获取本地IP
uses IdIPWatch; function GetNativeIP: String; var IdIPWatch: TIdIPWatch; begin IdIPWatch := TIdIPWatch.Create(nil); try Result := IdIPWatch.LocalIP; finally IdIPWatch.Free; end; end
VC获取本机IP 子网掩码 (两种方法)
获取IP方法:1.获取网卡信息 2.读取注册表 3.通过主机名信息   char Name[255];//定义用于存放获得的主机名的变量      char *IP;//定义IP地址变量      CString strIP="";     PHOSTENT hostinfo;      if(gethostname (Name, sizeof(Name)) == 0)     {
Python 优雅获取本机 IP 方法
目录 [hide]1 不推荐:靠猜测去获取本地IP方法2 不推荐:通过hostname来获取本机IP3 通过 UDP 获取本机 IP,目前见过最优雅的方法见过很多获取服务器本地IP的代码,个人觉得都不是很好,例如以下这些不推荐:靠猜测去获取本地IP方法#!/usr/bin/env python # -*- coding: utf-8 -*- import socket import fcntl
关于MFC在VS2013下获取本机IP地址
下面这段是从网上找到的代码: void CMyDlg::GetHostAddress(CString &strIPAddr) { char    HostName[100]; gethostname(HostName, sizeof(HostName));// 获得本机主机名. hostent* hn; hn = gethostbyname(HostName);//根据本机主机名得到本机ip s
C++ 获取本机IP的方法
// #include "winsock.h" bool GetLocalIP(char* ip)   {       //1.初始化wsa       WSADATA wsaData;       int ret=WSAStartup(MAKEWORD(2,2),&wsaData);       if (ret!=0)       {           return false
PB获取本机Mac地址
//得到计算机名字 function boolean GetComputerNameA(ref string lpBuffer, ref ulong nSize) library "KERNEL32.DLL" alias for "GetComputerNameA;Ansi" //设置计算机名字 FUNCTION boolean SetComputerNameA(ref string cname
Delphi获取Mac地址方法
unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, WinSock;const  MAX_HOSTNAME_LEN = 128; { from IPTYPES.H } 
Delphi 实现获得主机IP地址和主机名
procedure TForm1.Initialize; var        hostName,ipAddress : string;        localHost : TIPSocket; begin       localHost := TIPSocket.Create(Self);       hostName := localHost.LocalHostName;       loc
关闭
关闭