|
|
|
|
|
 |
delphi 获取网络工作组名 |
| |
日期：2007-06-29 10:09:01
点击：11 评论：0  |
|
function GetNetWorkgroup : string;
var
Reg : TRegistry;
begin
Reg := TRegistry.create;
Result := '(n/a)';
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('System\CurrentControlSet\Services\VxD\VNETSUP', |
|
|
delphi 打开网络拔号 |
| |
日期：2007-06-29 10:08:00
点击：9 评论：0 |
|
需要打开拨号网络吗？需要调用拨号网络里的拨号程序来连接吗？看下面：
其中“连接Internet”为你创建的拨号程序名称
winexec('rundll32.exe rnaui.dll,RnaDial '+'连接Internet',9); |
|
|
delphi 实现Ping操作 |
| |
日期：2007-06-29 10:07:06
点击：16 评论：0 |
|
使用过网络的用户都熟悉“Ping”这个指令，它是一个DOS下的可执行文件，
一般用它来检查网络连接的好坏程度。其基本原理是利用TCP/IP协议包中ICMP协
议中的一个功能，即向所指定的计算机发送一个请求，收到请求的计算机返回一
个应答，借此来判断该计算机是否在网上 |
|
|
delphi 获取子网掩码 |
| |
日期：2007-06-29 10:06:01
点击：13 评论：0 |
|
当前机器的设置可以从注册表
HKEY_LOCAL_MACHINE\System\CurrentControlSet\
Services\Class\NetTrans\中得到。
搜索从0001到000a,如果
DriverDesc =TCP/IP,则IPMask就是当前掩码 |
|
|
delphi 编写网络安全措施 |
| |
日期：2007-06-29 10:04:58
点击：12 评论：0 |
|
---- 为了防止程序被非法调试从而泄露密码，必须将客户的登录信息在服务器端处理，也可以专门增加一个安全层负责客户的登录。客户的登录信息储存在客户资料表中，包括用户名、密码、权限等信息。
---- 客户程序登录时，先调用服务器程序的接口获得密钥字串，并用此 |
|
|
delphi 动态改DNS |
| |
日期：2007-06-29 10:03:57
点击：9 评论：0 |
|
例如，把 DNS Server的地址添加为192.0.0.1和192.1.1.0，可调用：
SetTCPIPDNSAddresses('192.0.0.1 192.1.1.0') ;
// 各地址之间用一个空格隔开
1. SetTCPIPDNSAddresses 定义如下：
|
|
|
delphi 用Delphi实现远程屏幕抓取 |
| |
日期：2007-06-29 10:02:16
点击：13 评论：0 |
|
在网络管理中，有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然，市面上有很多软件可以实现该功能，有些甚至可以进行远程控制，但在使用上缺乏灵活性，如无法指定远程计算机屏幕区域的大小和位置，进而无法在一屏上同时监视多个屏幕。其实，可以用Delphi |
|
|
delphi 映射网络驱动器 |
| |
日期：2007-06-29 10:01:05
点击：13 评论：0 |
|
NetR.dwScope := RESOURCE_GLOBALNET;
NetR.dwType := RESOURCETYPE_DISK;
NetR.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;
|
|
|
delphi 判断是否连网 |
| |
日期：2007-06-29 10:00:22
点击：21 评论：0 |
|
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
ShowMessage('Machine is attached to network') else
ShowMessage('Machine is not attached to network'); |
|
|
delphi 检测计算机的 Internet 连接状态 |
| |
日期：2007-06-29 09:59:26
点击：39 评论：0 |
|
需要说明的是 InternetQueryOption 函数的检测结果只能表明当前的 Internet 设置是可用的，
并不能表示计算机一定能访问 Internet，例如网线掉了，网卡突然坏了之类的错误就没法检测出来，
要想检测当前计算机是否能够获得 Internet 服务了必须两个函数结合起来使 |
|
|
delphi 网络邻居的列表 |
| |
日期：2007-06-29 09:58:30
点击：7 评论：0 |
|
如果你问如何能得到网络邻居的列表，那是一个非常复杂的任务
您将不得不和非常不友好的OLE对象打交道
下面两个过程可能会对你有用
|
|
|
delphi 发送ICQ通知 |
| |
日期：2007-06-29 09:57:22
点击：10 评论：0 |
|
Function ICQPage(dwUIN: DWORD; szFrom, szFromEmail, szSubject, szMsg: String): Integer;
{This procedure sends an ICQ page.
It uses a raw winsock interface to do this |
|
|
delphi 统计局域网里的工作组数目 |
| |
日期：2007-06-29 09:55:47
点击：8 评论：0 |
|
var
WorkgroupCount : Integer;
Workgroup: Array[1..500] of String[25];
Procedure FindAllWorkgroups;
Var
EnumHandle: THandle;
EntireNetwork: TNetResource;
Buf: Array[1..500] of TNetResource;
BufSize: Integer; // 或DWORD;
Entries: Integer; // |
|
|
delphi 取得LAN上所有登录用户名称 |
| |
日期：2007-06-29 09:54:34
点击：15 评论：0 |
|
procedure FormShow(Sender: TObject);
Function GetServerList( var List : TStringList ) : Boolean;
Function GetUsers( GroupName : string; var List : TStringList ) : Boolean;
procedure BitBtn1Click(Sender: TObject);
procedure Bit |
|
|
delphi Delphi实现UDP广播 |
| |
日期：2007-06-29 09:53:34
点击：49 评论：0 |
|
NetBIOS网络协议对于很多读者来说可能比较陌生，但其实它是由IBM开发的一个很古老的协议，当年在LAN上也风光一时。说它老，其实也不过10年光景，IT业的发展实在是太快。由于NetBIOS不具备路由功能，也就是说它的数据包无法跨网段传输，因此在广域网、城域网大行其道的今 |
|
|
|
|
|
|
|
