X
XoYo_GG
Unregistered / Unconfirmed
GUEST, unregistred user!
写了个Asp组件,用于调用Delphi写的Dll文件。
Dll很简单就显示一个Form,用Exe文件调用没有问题。
Asp组件有两个功能:1,输出一句话,成功
2,显示Dll的Form ,Ie就停掉了一直出不来,没有错误提示。
原码
{Asp组件}
Function LoadMain():boolean;stdcall;//事件引用
external 'C:/Mine/ActiveX/Dll.dll'
procedure TAdoPage.Get_Page(const ConnStr: WideString);//事件1
begin
response.Write(ConnStr);
end;
procedure TAdoPage.OpenSub(const FileName: WideString);//事件2
begin
LoadMain;
end;
{ Dll }
Function LoadMain():Boolean;stdcall;//已经定义了窗体FrmMain
var frmmain :TFrmMain;
begin
frmmain := TFrmMain.Create(nil);
frmmain.Show;
frmmain.Free;
Result := True;
end;
exports LoadMain;
各位大虾帮帮小弟,万份感激
[][][][][][][]
Dll很简单就显示一个Form,用Exe文件调用没有问题。
Asp组件有两个功能:1,输出一句话,成功
2,显示Dll的Form ,Ie就停掉了一直出不来,没有错误提示。
原码
{Asp组件}
Function LoadMain():boolean;stdcall;//事件引用
external 'C:/Mine/ActiveX/Dll.dll'
procedure TAdoPage.Get_Page(const ConnStr: WideString);//事件1
begin
response.Write(ConnStr);
end;
procedure TAdoPage.OpenSub(const FileName: WideString);//事件2
begin
LoadMain;
end;
{ Dll }
Function LoadMain():Boolean;stdcall;//已经定义了窗体FrmMain
var frmmain :TFrmMain;
begin
frmmain := TFrmMain.Create(nil);
frmmain.Show;
frmmain.Free;
Result := True;
end;
exports LoadMain;
各位大虾帮帮小弟,万份感激
[][][][][][][]