高手们,请帮个忙吧!!!(关于dll的问题)

etupo 2003-04-25 01:38:00
我这里有个用delphi编写的dll动态链接库,我想通过asp调用它,不过这个dll是不可以
regsvr32的,我想了很多办法都不能解决,最后决定用VB重做一个dll,功能跟它一样,不过我对用vb编写dll不是很懂,简单的略之一二,请问谁能帮我写一个,我这里有它的原代码(delphi),该dll的功能不复杂,只有对字符串进行加密、解密的功能,请问谁能帮我呢?急!!!!!!!!
...全文
99 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
qwertyasd 2003-04-26
  • 打赏
  • 举报
回复
web打印组件要求是在一次为某单位开发信息管理系统中被提及的,这个系统中的一些票据需要打印。这样,如何对这些票据进行套打成了我们必须解决的问题。
  要在客户端打印一些用户要求的票据或其它的文字或图片资料,有两种方式:一种是利用delphi的active form来生成客户端的界面,由浏览器下载安装,并在客户端运行。(这种方式在开发多后台数据库中,较为常用。在国内许多新版本的财务软件都采用了这种方法,其缺点是对开发人员的要求太高),另一种是开发一个组件在客户端安装,然后,由服务器端来生成vbscript脚本,在客户端运行、创建相应的组件对象;利用组件对象来进行打印操作。(这种方法只要客户端的com组件开发完成,使用者只要熟悉vbscript或javascript脚本语言就可能方便的调用)。本文我们主要讨论第二种方式。
三、实现
  首先、运行delphi 5.0;选择file菜单中的new,在弹出的对话框中选择activex页,选择activex library创建activex库.然后,再往新建的库中加入一个automation object,操作步骤同上。在automation object wizard对话框中填入组件名prttest3;单击ok。
  然后、在弹出的prttest3.tlb窗口中,选择iprttest3。单击右键新增一个isinit的property,类型为long。再继续增加如下5个method:
  procedure prtcustompage(pagewidth: integer; pageheight: integer);
       safecall;
  procedure prtstart; safecall;
  procedure prtnewpage; safecall;
  procedure prtend; safecall;
  procedure prtdrawline(x1: integer; y1: integer; x2: integer; y2:
       integer; linewidth: integer); safecall;
  procedure prtsetfont(const fontname: widestring; fontsize:
       integer); safecall;
  procedure prttextrect(valign: integer; halign: integer; rectleft:        integer; recttop: integer;rectright: integer; rectbottom:
       integer; const printstring: widestring); safecall;
  它们意义是:prtcustompage 用来设置自定义纸张.传入的参数自定义纸张的宽度和高度。
        prtstart 用来初始化打印机。如果初始化成功,则将属性isinit置为真,反之则为假。 
        prtnewpage 用来使打印机换页。
        prtend     结束打印任务。
        prtdrawline 用来在页面上绘制一条线。(x1,y1)为起始点.(x2,y2)为终止点。linewidth为打印线的宽度。
        prtsetfont 用来设置打印的字体名及大小。
        prttextrect 用来指定的方框内的输出的指定的字符串。
四、调用
在脚本中调用这个组件的方法:
(1)、利用createobject函数创建一个打印对象。
(2)、调用prtcustompage来指定定制的纸张的大小(以0.1毫米为基本单位)。如果,不是定制的纸张则不需要调用这个过程(即以打印默认的纸张大小进行打印)。
(3)、调用prtstart进行打印机的初始化工作。如果打印机初始化成功,则会将isinit属性置为真,表示初始化成功;否则,表示打印机正在忙或有别的应用程序正在使用打印机,初始化不能成功。
(4)、判断isinit标志。如果为真,则继续执行打印段。
(5)、执行打印段。可以在利用打印机画线、和在指定位置输出文字。
(注:在组件接中的所有位置单位都是0.1毫米。例如.prtobject.prtdrawlien 0,0,1000,1000 表示从左上角(0,0)毫米到右下角(100,100)毫米处,画一条直线)
(6)、利用prtend结束打印任务。
〈 script language="vbscript">
〈 !--
sub testprtobject
dim prtobject
set prtobject=createobject("prttest3.prttest3")
prtobject.prtcustompage 1000,1000
prtobject.prtstart
if prtobject.isinit then
prtobject.prtdrawline 0,0,1000,1000,1
prtobject.prtdrawline 500,700,1000,1000,1
prtobject.prtsetfont "宋体",16
prtobject.prttextrect 2,2,0,0,1000,500,"web应用程序打印测试"
prtobject.prtend
end if
set prtobject=nothing
end sub
testprtobject()
//-->
〈 /script>

五、代码解析
  在这个组件中,我们所要解决的几个问题:
(1)、在delphi的应用程序设计中自定义打印纸张的设置,delphi中自身带了一个quickreport的打印设计程序,这个程序在一定的程度上方便了打印的设计,但这个设计程序对于自定义纸张的设定和打印支持却不是很好。因此,在这个组件中我们采用手工代码来设定自定义纸张大小。


function tprttest3.initprintpaper:boolean;


var


device:array [0..cchdevicename-1] of char;


driver:array [0..(max_path-1)] of char;


port:array [0..32] of char;


hdmode:thandle;


pdmode:pdevmode;


begin


result:=true;


if prtiscustompaper then


begin


{设置打印机段}


printer.getprinter(device,driver,port,hdmode);




if hdmode〈>0 then begin


try


pdmode:=globallock(hdmode);


if pdmode〈>nil then begin


//设定打印的方向为纵向或横向


if paperorientation〈>0 then

         pdmode^.dmorientation:=dmorient_landscape


else pdmode^.dmorientation:=dmorient_portrait;


       //设置拷贝份数为1份.


pdmode^.dmcopies:=1;


       //以毫米为单位的纸张大小.


pdmode^.dmpaperlength:= paperheight*10;


pdmode^.dmpaperwidth:=paperwidth*10;


       //设置纸张类型为用户自定义.


pdmode^.dmpapersize:=dmpaper_user;


end;


globalunlock(hdmode);


printer.setprinter(device,driver,port,hdmode);


except


result:=false;


end;


end else begin


result:=false;


end;


end;


end;

(2)、打印位置的确定:由于组件是以图形方式进行打印,这就使得我们可以精确指向打印文件的输出位置,以便于进行对某些票据的套打。但这样就产生一个问题,我们是以打印的像素位置指定输入位置,还是以打印尺寸来指定位置。显然,利用像素来输出打印位置,对于编制程序来说是比较方便的。但由于一般用户对像素的概念并不理解,因此会带来使用上的困难;而且每一种打印机的分辩率是不一样的,因此,会出现在不同打印机上打印的效果不一样的问题。而以打印尺寸来指定位置并在程序中妥善加以处理就不会有上面的问题。具体的处理方法是,由用户输入尺寸位置。然后,在打印时,首先取得当前打印机的分辩率(注意:分辨率是以每英寸多少像素为单位的),再计算得出实际输入的像素位置后进行打印,这样就可以使得组件更加实用,而且,保持打印幅面的一致。具体的函数如下。


function tprttest3.mmtoprintpixel(inputpoint:tpoint):tpoint;


begin


result.x:=mmtoprintpixelx(inputpoint.x);


result.y:=mmtoprintpixely(inputpoint.y);


end;




function tprttest3.mmtoprintpixelx(inputx:integer):integer;


begin


if queryprintlogpixel then


begin


pddix:=getdevicecaps(printer.handle,logpixelsx);


pddiy:=getdevicecaps(printer.handle,logpixelsy);


queryprintlogpixel:=false;


end;


result:=trunc(inputx/253.8*pddix+0.5);


end;




function tprttest3.mmtoprintpixely(inputy:integer):integer;


begin


if queryprintlogpixel then


begin


pddix:=getdevicecaps(printer.handle,logpixelsx);


pddiy:=getdevicecaps(printer.handle,logpixelsy);


queryprintlogpixel:=false;


end;


result:=trunc(inputy/253.8*pddiy+0.5);


end;


getdevicecaps:为windows系统中取得指定设备信息的函数。函数的原型如下


int getdevicecaps(


hdc hdc, // 设置的句柄


int nindex // 查询的设备参数。


);


其中,hdc为想要查询的打印机的句柄,logpixelsx、logpixelsy表示要查询的内容是打印机横向、纵向的每英寸的像素点数。

六、组件的注册


  如果是在delphi编写了这个组件的,则可以选择run菜单下的register activex server来进行这个组件的注册。


  对于不开发机器的注册则可使用:点击“开始”→“运行”;在运行对话框中输入以下命令:


  regsvr32 〈 文件名 > 注册一个activex控件


  regsvr32 /u 〈 文件名 > 解除某activex控件的注册




七、其它应用


  组件的扩展:以上列出的仅仅是编写这个组件的框架,功能比较有限。根据需要我们还可以添加上画圆、椭圆,矩形,甚至图片等功能。有兴趣的读者就请自行添加。


因为,组件是采用com的方式运行,所以,我们还在window script hosts(wsh)中应用这个组件,结合wsh原有(通过ado对象)访问外部数据库的能力,就可能做出在windows下功能强大的wsh的脚本程序。


 
myling 2003-04-25
  • 打赏
  • 举报
回复
按照ehom的方法自己试试吧


activex和dll差不多的,不过需要注册就是了


呵呵
etupo 2003-04-25
  • 打赏
  • 举报
回复
ehom:您能帮我看一下吗,我对这方面的知识不懂,对delphi更不了解了!!
ehom 2003-04-25
  • 打赏
  • 举报
回复
google

http://www.cnread.net/cnread1/dnwl/cxsj/delphi/ztwd/wlyy/025.htm
http://tech.sina.com.cn/c/2001-07-31/4790.html
http://www.wushuang.net/article/upfile.htm
...
ehom 2003-04-25
  • 打赏
  • 举报
回复
New->Dll Wizard

=>

ActiveX->ActiveX Library

基本概念还是需要搞清楚的
etupo 2003-04-25
  • 打赏
  • 举报
回复
你能够帮我把这个用delphi编写的dll改成ACTIVEX吗,这样我就可以通过asp调用里面的两个函数了,我对delphi不熟:

本模块要从EncryptDll.dll动态链结库里调用以入函数
procedure DllEncryptDes( FStr,FKey:Pchar;ReturnStr:Pchar);stdcall // 加密函数
FStr:需加密的字符串,FKey:密钥字符串,ReturnStr:加密后返回的字符串

procedure DllCrackDes(FPassWrod,FKey:Pchar;ReturnStr:Pchar);stdcall; //解密函数
FPassWrod:需解密的字符串,FKey:密钥字符串,ReturnStr:解密后返回的字符串
blueshu 2003-04-25
  • 打赏
  • 举报
回复
应都能调用的,查查你调用的方法吧
参数是否正确。。
zleeway 2003-04-25
  • 打赏
  • 举报
回复
把你的DLL改写成为ActiveX或AutoObject

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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