3、运行结果
Build并运行上述程序,从Memo1里可以看到整个工作过程,可以看出,搜索设备、取控制页URL、增加端口映射项、查看映射项参数、删除映射项等关键步骤均符合我们预期的设想。因此,完全可以在您的应用中把本程序的有关内容集成进去。
--------------------------------------------------------------------------
(1)、以下是“搜索设备”的工作过程信息:
--------------------------------------------------------------------------...
//// 增加NAT项过程启动...procedure TForm1.Button3Click(Sender: TObject);begin controled:=false; controltype:=1; controlresponse:=''; controlsocket.host:=routerip; controlsocket.Port:=routerport; controlsocket.Active:=true; memo1.lines.add('向'+routerip+':'+inttostr(routerport)+'设备发起增加NAT项的连...
//// 连接根设备...procedure TForm1.Button2Click(Sender: TObject);begin requested:=false; response:=''; clientsocket.Host:=routerip; clientsocket.Port:=routerport; clientsocket.Active:=true; memo1.lines.add('向'+routerip+':'+inttostr(routerport)+'设备发起连接...'); memo1.lines.add('');end;
////...
//// 关闭程序...procedure TForm1.Button4Click(Sender: TObject);begin form1.close;end;
//// 搜索路由器设备...procedure TForm1.Button1Click(Sender: TObject);var tmpstr: string; buffer: array [0..4096] of char; j: integer;begin tmpstr:='M-SEARCH * HTTP/1.1'#13#10 +'HOST: 239.255.255.250:190...
自动NAT(端口映射)在Internet应用软件开发中有很广泛的用途,通过该技术,不仅软件的通信速度能得到有效提升、编程的复杂度减低,而且在软件的安装、维护等方面也变得更加省力。在BT、eMule等软件中,已成功应用了该技术,取得了较好的效果。
该技术一般基于UPnP协议进行实现。而网上有许多资料介绍其实现过程,有的也提供源代码,但是,我们发现这些资源都是概述性的介绍,或者又是基于C语言的为多,而用delphi进行实现的例子很难找到。为此,笔者专门使用delphi工具进行了技术实现,并将源代码公布于此,让各位delphi程序员共享,如有技术问题,请与我联系、交流。
1、程序界面...
MiniSQL为本人打造的另一款SQL Server绿色版软件,不再有病毒附加、不再有大煞风景的服务控制器界面,这样,更利于和应用程序的一起打包发布。本页是该系统用户指南的第六页:
//
// 创建快捷方式...
form6.memo1.lines.add('正在创建系统快捷方式...');
if form3.checkbox1.checked or form3.checkbox2.checked then
begin
Macro:=Format('[CreateGroup(%s)]', ['快递帐务处理系统']) + #13#1...
MiniSQL为本人打造的另一款SQL Server绿色版软件,不再有病毒附加、不再有大煞风景的服务控制器界面,这样,更利于和应用程序的一起打包发布。本页是该系统用户指南的第五页:
//
// 显示进度提示窗...
form4.Close;
form6.ProgressBar1.Max:=filecount;
form6.ProgressBar1.Position:=0;
form6.ProgressBar2.Max:=1;
form6.ProgressBar2.Position:=0;
form6.Memo1.Lines.clea...
MiniSQL为本人打造的另一款SQL Server绿色版软件,不再有病毒附加、不再有大煞风景的服务控制器界面,这样,更利于和应用程序的一起打包发布。本页是该系统用户指南的第四页:
五、应用程序打包发布
MiniSQL最大用途就是为应用程序的客户现场快速建立一个数据库环境(应用程序开发已经完成,客户现场不再需要开发所需的一些SQL Server外围工具,而只需要一个数据库引擎就够了),因此,将MiniSQL与应用程序打包在一起,由应用软件的安装程序在安装应用程序文件之前先把MiniSQL安装成功并运行起来,然后继续安装应用软件本身。下图是应用MiniSQL进行项目开发、打包、...
MiniSQL为本人打造的另一款SQL Server绿色版软件,不再有病毒附加、不再有大煞风景的服务控制器界面,这样,更利于和应用程序的一起打包发布。本页是该系统用户指南的第三页:
6、修改sa密码
MiniSQL默认的sa帐号密码是“djh7988hjd”,为了安全起见,您可以在完整版本的“企业管理器”中修改sa的登陆密码。界面如下:
7、控制MiniSQL服务
在开发完成、需要把MiniSQL程序和应用程序打包在一起时,需要先将MiniSQL的服务停止,可通过运行MiniSQL中的“shutdown.exe”程序来完成。
另外,还有“stop....
MiniSQL为本人打造的另一款SQL Server绿色版软件,不再有病毒附加、不再有大煞风景的服务控制器界面,这样,更利于和应用程序的一起打包发布。本页是该系统用户指南的第二页:
5、开发时的数据库管理
应用开发时,建议您安装一个SQL Server 2000完整版,以利用其中的各种工具对应用数据库进行各种管理。此时,MiniSQL是以实例方式运行着的、与完整版SQL Server并驾齐驱。可以用完整版里面的“客户端网络实用工具”和“企业管理器”连接MiniSQL,管理其中的数据库:
(1)、用完整版中的“客户端网络实用工具”,在完整版中建立MiniSQL的...
MiniSQL为本人打造的另一款SQL Server绿色版软件,不再有病毒附加、不再有大煞风景的服务控制器界面,这样,更利于和应用程序的一起打包发布。本页是该系统用户指南的第一页:
迷你SQL数据库平台
(MiniSQL)V1.02 用户指南
一、版权声明
MiniSQL核心程序,版权所有? Microsoft Corporation(美国微软公司)
MiniSQL服务控制程序,版权所有? 樵夫软件开发工作室
二、软件概述
MiniSQL是一套从微软SQL Server 2000 SP4 改造而来的数据库引...
主要SQL语句详解CREATE DATABASE database_name [WITH LOG IN “pathname”]创建数据库。database_name:数据库名称。“pathname”:事务处理日志文件。创建一database_name.dbs目录,存取权限由GRANT设定,无日志文件就不能使用BEGIN WORK等事务语句(可用START DATABASE语句来改变)。可选定当前数据库的日志文件。如:select dirpath form systables where tabtype = “L”;例:create databse customerdb with log ...