阿
阿魁
Unregistered / Unconfirmed
GUEST, unregistred user!
这是我在 zizi （大富翁成员）的“纸牌算命”里见到的文件，是用来显示纸牌图像的，<br>我也想做个纸牌程序，所以想研究该文件怎么使用。<br><br>我看了zizi的源程序，发现在该文件里有一个导出函数：drawcard，原型如下：<br>function drawcard(bmp : TBitmap; i : integer) : integer;<br><br>bmp就是显示纸牌图像的地方，i估计是要显示的纸牌的序号。<br>于是我自己做了个测试程序，如下：<br>==========================================================================<br>unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> Dialogs, StdCtrls, ExtCtrls, jpeg;<br><br>type<br> TForm1 = class(TForm)<br> Image1: TImage;<br> Edit1: TEdit;<br> Button1: TButton;<br> procedure FormCreate(Sender: TObject);<br> procedure FormDestroy(Sender: TObject);<br> procedure Button1Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br> //这是我定义的函数变量<br> fnDrawCard : function(bmp : TBitmap; i : integer):integer;<br> h : THandle;<br><br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> //加载DLL文件<br> h := LoadLibraryEx(pchar(ExtractFilePath(application.ExeName)+'card.dll'),0,0);<br> if h=0 then<br> begin<br> showMessage('load library failed!');<br> application.Terminate;<br> exit;<br> end;<br><br> //取得函数地址<br> @fnDrawCard := GetProcAddress(h,'drawcard');<br><br> if @fnDrawCard=nil then<br> begin<br> showMessage('get procedure address failed!');<br> FreeLibrary(h);<br> application.Terminate;<br> exit;<br> end;<br><br>end;<br><br>procedure TForm1.FormDestroy(Sender: TObject);<br>begin<br> FreeLibrary(h);<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> //在image1里画纸牌<br> fnDrawCard(image1.Picture.Bitmap,strToInt(edit1.Text));<br>end;<br><br>end.<br>===================================================<br>注：我已把该dll文件改名为card.dll<br><br>问题是，编译没问题，执行时报错，说是内存访问问题，大家谈谈看法吧。<br>