|
跟踪目的地经过的IP地址 2003-05-28 |
Trace命令可以实现跟踪目的地经过的IP地址.请问Trace如何实现的?回复人:forgot2000 | 忘记2000年program TraceRoute;uses Forms, MainForm in 'MainForm.pas' {TraceRouteForm}, ICMP_Define in 'ICMP_Define.pas';{$R *.RES}begin Application.In...[全部内容] |
|
将某一主机域名解析为IP地址 2003-05-28 |
将某一主机域名解析为IP地址。使用 WinSock 单元;过程如下:function HostToIP(Name: string; var Ip: string): Boolean;var wsdata : TWSAData; hostName : array [0..255] of char; hostEnt : PHostEnt; addr : PChar;begin WSAStartup ($0...[全部内容] |
|
使用TCP/IP协议实现聊天程序 2003-05-28 |
使用TCP/IP协议实现聊天程序 TCP/IP协议的传输即面向点到点的传输方式! 1.创建应用程序。 选择“NEW”菜单下的“Application”选项,创建一个普通的应用程序。 2.创建所需控件。 首先在控件栏的Win32页中选择ImageList控件和CoolBar控件,再从Win32栏选择ToolBar控件放...[全部内容] |
|
TAPI基本函数 2003-05-28 |
only use in tapi version 1.4basic telephony services reference1.tapi初始化与关闭lineinitializeex 初始化一个tapi应用, 同步返回.lineshutdown 关闭一个tapi应用, 同步返回. 2.线路版本协商linenegotiateapiversion 应用和tapi协商一个可以使用的tapi版本...[全部内容] |
|
通过程序获得局域网内的全部机器名 2003-05-28 |
type PnetResourceArr = ^TNetResource;implementationprocedure GetServerList(List:TStrings);Type {$H+} PMyRec = ^MyRec; MyRec = Record dwScope : Integer; &nb...[全部内容] |
|
实现Net send命令 2003-05-28 |
implement net send?主要是要向局域网内的机器发送信息。function NetSend(dest, Source, Msg: string): Longint; overload; type TNetMessageBufferSendFunction = function(servername, msgname, fromname: PWideChar; buf: PWideChar; buflen: Car...[全部内容] |
|
SMTP安全认证的邮件发送程序 2003-05-28 |
c:ehlo hostnames:250-smtp.263.net 250-pipelining 250-size 10240000 250-etrn 250-auth login 250-8bitmime以上是与邮件服务器连接,即nmsmtp1->connect,以下是连接后的验证:c:auth logins:334VXNlcm5hbWU6(username:)c:b(你的用户名转换...[全部内容] |
|
Email 服务器的简单实现 2003-05-28 |
Email 服务器的简单实现 湖南艾邦信息技术有限公司 李岳梅 ---- 贵刊1999年7月26日《编程技巧》栏目刊登的《监视POP3信箱》一文介绍了直接调用WinSock函数来进行POP3网络通信从而监视有无新邮件的方法。但我们知道从Delphi 3 开始,它自带的控件中有基于Internet开发的控...[全部内容] |
|
把一个ICO转换为BMP 2003-05-28 |
(1)方法1var Icon : TIcon; Bitmap : TBitmap;begin Icon := TIcon.Create; Bitmap := TBitmap.Create; Icon.LoadFromFile('c:\picture.ico'); //Load an ICO from File Bit...[全部内容] |
|
bmp文件转成jpg文件 2003-05-28 |
可以如下,(其他格式也许也可,试一下)记得加入 use jpeg.var MyJpeg: TJpegImage; Image1: TImage;begin Image1:= TImage.Create(self); MyJpeg:= TJpegImage.Create; Image1.Picture.Bitmap.LoadFromFile('c:\windows\desktop\aa.BMP');&nb...[全部内容] |