关于DLL编程,我的程序已经制作好,
但是我想将这个程序分成模块:将模块编写成DLL文件
格式,不知如何实现
但是我想将这个程序分成模块:将模块编写成DLL文件
格式,不知如何实现
解决方案 »
- ShowModal,要按两次才可以
- 紧急!!!!!紧急!!!!关于透明窗口,TShockwaveFlash,TCustomForm和TForm的绘制和继承问题
- Delphi中TOpenDialog在VC中对应什么类?
- 年过半,散分
- 急。过程调用???????????
- 请教:如何将普通的string转换成midas中dcom服务器可使用的字符类型(widestring)?
- HELP!excel数据导入到access出错!
- 求多条件查询算法
- 高分请教高手一个问题!
- 我想在formclose里使用messagebox的cancel该如何实现?
- 调试DELPHI7+ACCESS数据库出错
- 查询信息后,如何提供打印功能
服务器端插件编写模板文件
//
// -----------------------------------------------------------------------------------
//
// 服务器端插件编写模板文件 wgz. 2006.12.--2008.8.
//
// -----------------------------------------------------------------------------------
//
//
// 导出函数原型:
//
// RemoteFunction: function(AdoConn: TAdoConnection;
// InText: string;
// InStream: TMemoryStream;
// var OutText: string;
// var OutStream: TMemoryStream): boolean; stdcall
//
// 其中入口参数:
//
// AdoConn:TAdoConnection对象的实例,是调用本模块的节点系统的数据库连接,注意用完后别断开
// InText:TString类型的变量,包含有向本类模块提供的所有简单类型参数,中间以#9字符分隔
// InStream:TStream对象的实例,包含可能存在的二进制类型的入口参数,若为nil,表示不存在
//
//
// 其中出口参数:
//
// OutText:本模块处理结束后得到的简单类型结果数据,若有多项,以#9分隔
// OutStream:本模块处理结束之后得到的二进制类型的结果,若不存在,返回nil
//
// -----------------------------------------------------------------------------------
//
library RemoteModule; {你可以改一下名字}uses
sharemem,
SysUtils,
Classes,
Windows,
forms,
graphics,
AdoDB;{$R *.RES}const
CAPTUREBLT = $40000000;//
// 主函数...
function RemoteProcess(AdoConn: TAdoConnection; InText: string; InStream: TMemoryStream;
var OutText: string; var OutStream: TMemoryStream): boolean; stdcall;
begin
//
// ----------------------------这里开始写你的程序-----------------------------------------
// ----------------------------你的程序写到这里为止---------------------------------------
//
// 返回成功代码...
result:=true;
end;//
// 向主程序提供的函数或过程的输出声明...
exports
RemoteProcess;//
// 初始化代码...
begin
//
end.