B
bigchg
Unregistered / Unconfirmed
GUEST, unregistred user!
library prj1H;
uses
ShareMem, SysUtils, Types, Graphics, ExtCtrls, Forms, Classes;
procedure ReDraw(var pBox:TPaintBox;ColorLamp,ColorTag,ColorBack:TColor);stdcall;
begin
Draw2Ellipse(pBox,esAll,tempPoint1,nWJ,nWJ,nWJ+nQJ,0);//自定义的函数；
end;
{$R *.res}
exports ReDraw index 1;
begin
end.
//////////////////////////////主程序
procedure TForm1.Button1Click(Sender: TObject);
begin
ReDraw(PaintBox1,colorLamp,colortag,colorBack);
end;
/////////////////////////////症状
调用可以，可是主程序关闭的时候会报地址错误。
uses
ShareMem, SysUtils, Types, Graphics, ExtCtrls, Forms, Classes;
procedure ReDraw(var pBox:TPaintBox;ColorLamp,ColorTag,ColorBack:TColor);stdcall;
begin
Draw2Ellipse(pBox,esAll,tempPoint1,nWJ,nWJ,nWJ+nQJ,0);//自定义的函数；
end;
{$R *.res}
exports ReDraw index 1;
begin
end.
//////////////////////////////主程序
procedure TForm1.Button1Click(Sender: TObject);
begin
ReDraw(PaintBox1,colorLamp,colortag,colorBack);
end;
/////////////////////////////症状
调用可以，可是主程序关闭的时候会报地址错误。