嘿嘿,怪问题,高手们Show一下你们的Quality.（DLL创建类的问题）

[yesry]

//-*-*-*-*-*-*-文件Dll Class.dll
#include <vcl.h>
#include <windows.h>
#pragma hdrstop

#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
return 1;
}
//----------------------------------------------------
TCanvas *canvas;
class MyClass2
{
public:
char name[128];
TCanvas *Canvas;
MyClass2()
{
Canvas=canvas;
}
virtual void F1()
{
ShowMessage("MyClass2 F1 in dll");
}
virtual void F2(TCanvas *canvas)
{
Canvas=canvas;
strcpy(name,"MyClass F2 in dll");
Canvas->Pen->Style=psDot;//如果没有这一句话，程序关闭的时候很安全
Canvas->TextOutA(0,0,"MyClass F2 in dll");
}
};
extern "C"
__declspec(dllexport) MyClass2 * WINAPI
CreateMyClass(TCanvas *Canvas)
{
canvas=Canvas;
return new MyClass2;
}

//-*-*-*-*-*-*-文件exe
#include <vcl.h>
#pragma hdrstop

#include "uTestMyClass.h"
//-----------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//-------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------------------------------------------
class MyClass
{
public:
char name[128];
TCanvas *Canvas;
virtual void F1()
{
ShowMessage("MyClass2 F1 in exe");
}
virtual void F2(TCanvas *Canvas)
{
strcpy(name,"MyClass F2 in exe");
Canvas->TextOutA(0,0,"MyClass F2 in exe");
}
};
MyClass * WINAPI (*CreateMyClass)(TCanvas *Canvas);
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HMODULE h;
h=LoadLibrary("Class.dll");
(void*)CreateMyClass=GetProcAddress(h,"CreateMyClass");
MyClass *d;

d=CreateMyClass(Canvas);
d->F2(Canvas);
}


如果没有这一句话，程序关闭的时候很安全
Canvas->Pen->Style=psDot;
多了他，问题就来了，怎么回事？

[yesry]

CSDN直教人心灰意冷！

[fatwave]

分给我，我给你个例子吧！！！
一. 编写 DLL
File/New/Dll 生成 Dll 的向导，然后可以添加导出函数和导出类
导出函数：extern "C" __declspec(dllexport) ExportType FunctionName(Parameter)
导出类：class __declspec(dllexport) ExportType ClassName{...}
例子：(说明：只是生成了一个 DLL.dll )

#include "DllForm.h" // TDllFrm 定义

USERES("Dll.res");
USEFORM("DllForm.cpp", DllFrm);

class __declspec(dllexport) __stdcall MyDllClass { //导出类
public:
MyDllClass();
void CreateAForm();
TDllFrm* DllMyForm;
};

TDllFrm* DllMyForm2;
extern "C" __declspec(dllexport) __stdcall void CreateFromFunct();//导出函数

//---------------------------------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
return 1;
}
//---------------------------------------------------------------------------

MyDllClass::MyDllClass()
{
}

void MyDllClass::CreateAForm()
{
DllMyForm = new TDllFrm(Application);
DllMyForm->Show();
}
//---------------------------------------------------------------------------
void __stdcall CreateFromFunct()
{
DllMyForm2 = new TDllFrm(Application);
DllMyForm2->Show();
}


二. 静态调用 DLL
使用 $BCB path\Bin\implib.exe 生成 Lib 文件，加入到工程文件中
将该文件拷贝到当前目录，使用 implib MyDll.lib MyDll.dll 生成
// Unit1.h // TForm1 定义
#include "DllForm.h" // TDllFrm 定义
//---------------------------------------------------------------------------

__declspec(dllimport) class __stdcall MyDllClass {
public:
MyDllClass();
void CreateAForm();
TDllFrm* DllMyForm;
};
extern "C" __declspec(dllimport) __stdcall void CreateFromFunct();

class TForm1 : public TForm{...}


// Unit1.cpp // TForm1 实现
void __fastcall TForm1::Button1Click(TObject *Sender)
{ // 导出类实现，导出类只能使用静态方式调用
DllClass = new MyDllClass();
DllClass->CreateAForm();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{ // 导出函数实现
CreateFromFunct();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete DllClass;
}

三. 动态调用 DLL
// Unit1.h
class TForm1 : public TForm
{
...
private: // User declarations
void (__stdcall *CreateFromFunct)();
...
}

// Unit1.cpp // TForm1
HINSTANCE DLLInst = NULL;
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if( NULL == DLLInst ) DLLInst = LoadLibrary("DLL.dll"); //上面的 Dll
if (DLLInst) {
CreateFromFunct = (void (__stdcall*)()) GetProcAddress(DLLInst,
"CreateFromFunct");
if (CreateFromFunct) CreateFromFunct();
else ShowMessage("Could not obtain function pointer");
}
else ShowMessage("Could not load DLL.dll");
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if ( DLLInst ) FreeLibrary (DLLInst);
}

[yesry]

to fatwave(风中的雨) ，请把我的程序拷贝过去试试看吧，谢谢上次你帮了我的大忙（我已经把分给你了）。

你的程序我已经找过了。区别有四：
1 我输出的不是class
2 类中使用了virtual函数
3 函数存在参数TCanvas *canvas
4 函数使用了 canvas->Pan->Style

其实我已经把复杂的类净化到如此地步，已经找出使上述错误出现的行
Canvas->Pen->Style=psDot;
如果没有这一句话，程序关闭的时候很安全；多了他，问题就来了。

[yesry]

冷清冷清啊。

[zgoalh]

顶————期待高人出现 ！！！

[fatwave]

我已发了个例子给你！！我个人认为这种方法会好用些！

[yesry]

我没收好啊！

不过我让然想各位高手拷贝我的代码试试看，因为我已经覆水难收了。

[yesry]

我等一等。

[yesry]

我收到了，源代码中的情况我早解决了，现在如果用TCanvas *做参数时出现了错误。
希望高手能抄下上面的代码试试看，指点为什么。

[yesry]

没有收获啊。

[hahu]

修改成这样
可能父窗体的属性不能在dll中被修改，或者修改以后父窗体无法获得（对于他来说这个修改是局部的，销毁的时候在dll中已经被销毁了，父窗体再去销毁就会出错）
virtual void F2(TCanvas *canvas)
{
Canvas=canvas;
strcpy(name,"MyClass F2 in dll");
TPenStyle penStyle=Canvas->Pen->Style;
Canvas->Pen->Style=psDot;//如果没有这一句话，程序关闭的时候很安全
Canvas->TextOutA(0,0,"MyClass F2 in dll");
Canvas->Pen->Style=penStyle;
}
另外在dll中调用了new，最好在dll中加上Destory代码

[yjy1001]

看来 你这个问题 好大
弄得 要提3个帖，每个帖的 标题都不一样……

内容却是……

在拷贝调试中……

[Libran]

我试了下，有没有那行没什么区别，都可以关闭，但打开CodeGuard后，关闭时会报对象没有delete的错误。
如下修改Exe就行了：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
...
d=CreateMyClass(Canvas);
d->F2(Canvas);
delete d; //加上这一行，释放d
}
我用Windows XP+CB6

[yesry]

我忘了告诉大家一个条件：就是Build with runtime packages的勾去掉。

[Behard]

我试了一下的确是有问题

不过我觉得还是你的问题
其实你是骗了一下编译器，实际上你还是导出类了，而且你返回的是一个类指针
我觉得这是很不安全的

我建议你还是老老实实的使用导出类吧

[yesry]

真的没有结果？还是没人注意？

[猛禽]

见
http://expert.csdn.net/Expert/topic/2447/2447934.xml?temp=.5092584

[myzqj]

导出类如果像 fatwave(风中的雨) 所说。
我不明白导出类到底有什么用。
我是菜鸟。所以有此一问？