delphi下怎样把一个主机名转换成ip地址，谢谢帮忙

fffa 2001-07-21 07:52:14

...全文

103 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

JackyZhao 2001-07-21

打赏
举报

回复

uses
WinSock;

function GetIPByName(AName: String): 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 := '';
StrPCopy(Buffer, AName);
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;

用法：
Ipstr := GetIPByName('计算机名');

snowglave 2001-07-21

打赏
举报

回复

用gethostbyname函数

很简单的一个例子，用delphi2010编写的，网上有的例子会出现网上的教程是Pchar(IPAddress) 这样会提示 Incompatible types: 'Char' and 'AnsiChar' 处理解决办法1：参数格式不变，使用的时候麻烦一点。先把WideString转换成AnsiString，然后再转换成PAnsiChar。直接使用PAnsiChar(mystring)可以编译通过，但运行不正确。思路的代码如下： var mysting:string;用 PAnsiChar(AnsiString(mysting))代替 pchar(mysting) 这种方法在接口上与高版本更统一，但内部修改较多。解决办法2：传入参数的时候就使用AnsiString，一切如同在Delphi2007下使用一样。只是这时候参数不再使用String，而是必须显式地使用AnsiString。函数里使用参数的时候，仍要注意pchar都要改成pansichar，代码修改量更小，且与旧版本更兼容。

第1章　窗体与界面设计　1 1.1　菜单应用　2 实例001　在系统菜单中添加菜单项　2 实例002　带历史信息的菜单　3 实例003　菜单动态合并　4 实例004　像“开始”菜单一样漂亮的菜单　5 实例005　多彩的菜单　6 实例006　可以拉伸的菜单界面　8 1.2　工具栏设计　9 实例007　带背景的工具栏　9 实例008　浮动工具栏　10 1.3　状态栏设计　11 实例009　在状态栏中显示检查框　11 实例010　带进度条的状态栏　12 实例011　状态栏中加入图标　13 1.4　导航菜单界面　14 实例012　OutLook界面　14 实例013　带导航菜单的主界面　15 实例014　图形化的导航界面　16 1.5　特色程序界面　18 实例015　类QQ的程序界面　18 实例016　类似Windows XP的程序界面　20 实例017　以图形按钮显示的界面　21 实例018　以树型显示的程序界面　23 实例019　以XPManifest组件显示界面　24 实例020　动态按钮的窗体界面　25 1.6　特殊形状的窗体　26 实例021　非矩形窗体　26 实例022　建立字体形状窗体　28 1.7　多媒体光盘　29 实例023　自动启动的多媒体光盘程序　29 实例024　为触摸屏程序添加虚拟键盘　30 实例025　触摸屏系统　31 1.8　窗体效果　33 实例026　半透明渐显窗体　33 实例027　窗口颜色的渐变　34 实例028　带背景的窗体　35 实例029　为窗体增加边框　36 1.9　窗体动画　37 实例030　窗体中的滚动字幕　37 实例031　动画显示窗体　38 实例032　制作闪烁的窗体　39 实例033　直接在窗体上绘图　40 实例034　动画形式的程序界面　41 实例035　以时钟显示界面窗体　42 1.10　标题栏窗体　44 实例036　标题栏上的按钮　45 实例037　使窗体标题栏文字右对齐　47 实例038　没有标题栏但可以改变大小的窗口　48 1.11　设置窗体位置　49 实例039　不可移动的窗体　49 实例040　设置窗体在屏幕中的位置　50 实例041　始终在最上面的窗体　51 1.12　设置窗体大小　52 实例042　限制窗体大小　52 实例043　获取桌面大小　53 实例044　组件大小随窗体的改变而改变　53 实例045　在窗口间移动按钮　54 实例046　如何实现Office助手　55 1.13　窗体控制技术　56 实例047　在关闭窗口前加入确认对话框　56 实例048　程序在循环中响应界面操作　57 实例049　使用任意组件拖动窗体　58 实例050　动态创建窗体和释放窗体　59 实例051　修改提示字体及颜色　60 1.14　其他技术　61 实例052　窗口融合技术　61 实例053　给MDI窗体加背景　62 实例054　如何关闭MDI类型窗体中的子窗体　63 实例055　向提示框中添加图标　64 第2章　控件应用　67 2.1　TEdit控件应用典型实例　68 实例056　从右至左输入数据　68 实例057　为TEdit控件添加列表选择框　69 实例058　只允许输入数字的TEdit组件　70 2.2　TSpeedButton控件应用典型实例　71 实例059　在TSpeedButton按钮中显示图标　71 实例060　折行显示按钮标题　72 2.3　TMemo控件应用典型实例　73 实例061　设置TMemo组件的边界　73 实例062　TMemo组件的光标定位　74 实例063　得到TMemo中的可见行数　75 2.4　TListBox控件应用典型实例　76 实例064　在TListBox组件间交换数据　76 实例065　为TListBox添加水平滚动条　77 实例066　将数据库数据添加到组合框中　78 实例067　借助绑定控件实现数据选择录入　79 2.5　TListView控件应用典型实例　80 实例068　TListView列表拒绝添加重复信息　80 实例069　将数据库数据添加到TListView控件　82 实例070　用TListView控件制作导航界面　83 实例071　在TListView控件中对数据排序或统计　84 实例072　在TListView组件中绘制底纹　86 实例073　在列表视图中拖动视图项　87 2.6　TTreeView控件应用典型实例　88 实例074　将数据库数据显示到树视图中　88 实例075　用TTreeView控件制作导航界面　90 实例076　TTreeView组件遍历磁盘目录　91 实例077　TTreeView组件在数据库中的应用　92 2.7　TStringGrid控件应用典型实例　94 实例078　程序运行时对

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。

书通过150个编程实例，介绍了以下技术内容。第1章通过21个实例演示如何利用Delphi来美化应用程序的界面，主要内容包括透明窗体、多边形形状的窗体、能够显示图标的菜单、分割窗体、动态设置窗体光标、动画效果窗体等。通过本章的学习，可以轻松实现别具匠心的界面效果，增强人机交互功能。第2章通过23个实例介绍图像处理技术，包括如何制作图像放大镜、在程序中显示饼图、转换不同格式图像文件、显示GIF动画、旋转文字等。虽然本章只有23个实例，但是涉及到了与图像有关的很多方面，读者掌握了这些方法后，就可以满足常用的图像处理要求。第3章通过14个实例讲解了两部分内容——图形的绘制和多媒体播放，涵盖了绘制Bezier曲线、正弦曲线、利用TShape组件完成绘图操作、Pen对象和Brush对象控制绘图效果、播放AVI动画、MIDI音乐等。通过本章的学习，不但可以自如地绘制各种形状复杂、色彩变幻的图形，还可以播放声音和动画。第4章通过24个实例介绍了如何在程序中对一些系统功能进行控制，主要内容包括设置桌面墙纸、动态修改显示器分辨率、重启动和关闭计算机、建立应用程序快捷方式、列举进程、模拟鼠标和键盘操作等。第5章通过19个实例介绍了文件处理功能，内容包括获取驱动器容量和类型、指定打开特定类型文件的应用程序、获取文件属性、将文件删除到回收站、读写ini文件、将组件属性存储在文件中等。通过本章可以掌握基本的文件处理功能，为实现各种文件操作打下良好基础。第6章通过15个实例介绍了一些常用的网络技术，主要内容包括扫描本地计算机打开的端口、在局域网内传递消息、获取本地计算机的名称和IP地址、根据IP地址得到主机名、映射虚拟盘等。第7章通过14个实例演示了数据库程序开发中常用的18个技巧，主要内容包括利用SQL语句创建Paradox表、将FoxPro表转换为Paradox表、利用TDBChart显示图表、在数据库中存取声音和图像、在TListView中显示数据库等。灵活应用这些技术，就可以得心应手地开发数据库程序。第8章通过20个实例介绍了一些典型组件的使用技巧，主要内容包括类似IE的工具栏、与Word无缝连接、制作语法检查器，制作电子表格、动态创建按钮、自动滚动的工具栏等。通过本章的学习，可以了解到Delphi 7中组件的强大功能，这样就可以在程序中更多地应用组件而减少代码量，从而降低程序设计人员的工作难度。本书由尹立民主持编写，参加编写的还有梁杰、任典、姚燕飞、方小林、江玲、陈亚惠、赵书贤、郭文杰、高志、杨柳、黄玉敏、胡涛、朱娇艳、刘赛君、韩春秋、宋国栋、孙和、王磊和张庆峰等。由于作者水平有限，书中难免存在一些不足之处，恳请读者批评指正。

<delphi系统开发实例精粹>的源码 appendix031--40 -图像的细化、图像的Hough变换、图像放大镜、图像的数据库编程、图像小波变换、网页浏览器、网络聊天室、IP地址与主机名的相互转换、FTP传输工具、类似OICQ的聊天系统。

5,392

社区成员

262,732

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章