为什么这么个简单的DLL会出错？！

[trybird]

我太菜了！我要死了！

Test.bpf是生成.dll的工程文件，其中代码如下：

Test.cpp的代码：
//------------------------------------------------------------------------#include <vcl.h>
#include <windows.h>
#include <stdio.h>
#include "Test.h"
#pragma hdrstop
#pragma argsused
//------------------------------------------------------------------------BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fwdreason, LPVOID lpvReserved)
{
return 1;
}
//------------------------------------------------------------------------void DoFunc(void)
{
FILE *fs=fopen("XXX.txt", "a");
fprintf(fs,"I am a Programmer.");
fclose(fs);
}
//------------------------------------------------------------------------

Test.h的代码：
extern "C" __declspec(dllexport) void DoFunc(void);

CallDll.bpr是调用Test.dll的工程，其中的主程式如下：

CallMe.cpp的代码如下：
//------------------------------------------------------------------------
#include <vcl.h>
#include "CallMe.h"
#pragma hdrstop
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
{
void (__stdcall *DoFunc)(void);
HANDLE hInst;

hInst = LoadLibrary("Test.dll");
(FARPROC &)DoFunc=GetProcAddress(hInst,"DoFunc");

DoFunc();

FreeLibrary(hInst);
}
catch(...)
{
ShowMessage("Error!!!!!!!");
}
}
//------------------------------------------------------------------------

分别编译后，运行CallDll.exe调用Test.dll，在执行DoFunc()时出错。
出错信息如下：
Access Voilation at address 00000000. Read of address 00000000.

大侠，请问为什么呀？！为什么？！

[csdnflysnow]

这个程序有两个严重的隐患.

1. LoadLibaray 没有判断返回值,记加载DLL是否成功.
如果这里都没成功.后面更错了.

2. GetProcAddress 也没有判断,可能该DLL未找到该函数.

从你的程序来看, 我怀疑错误应该是在第一部,即加载DLL失败.

查查看吧.

[xycleo]

你改了吗??????????

[trybird]

LoadLibaray()和GetProcAddress()在调试时都通过了，是在DoFunc()；那一句出的错！
真的。我把DoFunc()；这一句屏蔽掉就不会出错了。

这个程序极简单，你们都可以试一下嘛，所有代码就这些！
唉，就这么个都搞不定~~~~~~~~唉唉唉~~~~！

[xycleo]

应该就是这里了1!我在我这里试了!!去掉DoFunc(void)里的void

可以阿

[xycleo]

你调用时是Dofunc()什么都没传给他!!

去掉了,当然不会有提示阿1!

[trybird]

试了啊！
原来是——
void DoFunc(void)
{
FILE *fs=fopen("XXX.txt", "a");
fprintf(fs,"I am a Programmer.");
fclose(fs);
}

改成了——
void DoFunc()
{
FILE *fs=fopen("XXX.txt", "a");
fprintf(fs,"I am a Programmer.");
fclose(fs);
}

Build后，故障依然如故啊！

[trybird]

救命啊！！！~~~~~~~~~~~~~

[xycleo]

还有extern那里??改了吗!!!??????

[i25ffz]

Test.cpp的代码：
//------------------------------------------------------------------------#include <vcl.h>
#include <windows.h>
#include <stdio.h>
#include "Test.h"
#pragma hdrstop
#pragma argsused

TApplication* oApp = Application;
//------------------------------------------------------------------------BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fwdreason, LPVOID lpvReserved)
{
return 1;
if (reason == DLL_PROCESS_ATTACH)
{
oApp = Application;
}

if (reason == DLL_PROCESS_DETACH)
{
Application = oApp;
}
}
//------------------------------------------------------------------------void DoFunc(void)
{
FILE *fs=fopen("XXX.txt", "a");
fprintf(fs,"I am a Programmer.");
fclose(fs);
}
//------------------------------------------------------------------------
Try it ......

[i25ffz]

Sorry......

Test.cpp的代码：
//------------------------------------------------------------------------#include <vcl.h>
#include <windows.h>
#include <stdio.h>
#include "Test.h"
#pragma hdrstop
#pragma argsused

//add code
TApplication* oApp = Application;

//------------------------------------------------------------------------BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fwdreason, LPVOID lpvReserved)
{
//add code
if (reason == DLL_PROCESS_ATTACH)
{
oApp = Application;
}

if (reason == DLL_PROCESS_DETACH)
{
Application = oApp;
}
//end add

return 1;
}
//------------------------------------------------------------------------void DoFunc(void)
{
FILE *fs=fopen("XXX.txt", "a");
fprintf(fs,"I am a Programmer.");
fclose(fs);
}
//------------------------------------------------------------------------
know more, see BCB help.
Try it ......

[trybird]

改了啊！

原来是——
extern "C" __declspec(dllexport) void DoFunc(void);

现在是——
extern "C" __declspec(dllexport) void DoFunc();

但出错依旧啊！完了！我明天改行吧！从此去也！

[快速开发平台]

我帮你调试一下吧，稍等...

[i25ffz]

hi! trybird, try it ......

試試上面的, 別泄气......

[xycleo]

没道理阿!!!
那就是下面的除了问题
FILE *fs=fopen("XXX.txt", "a");
fprintf(fs,"I am a Programmer.");
fclose(fs);

你试一下把他放在try...catch里
是不是根本没有xxx.txt这个文件

[快速开发平台]

兄弟，我帮你调通了。
代码如下：
Dll.
//---------------------------------------------------------------------------
#include <vcl.h>
#include <windows.h>
#include <stdio.h>
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
return 1;
}
//---------------------------------------------------------------------------
extern "C" __declspec(dllexport) void __stdcall DoFunc(void);
void __stdcall DoFunc(void)
{
FILE *fs=fopen("XXX.txt", "a");
fprintf(fs,"I am a Programmer.");
fclose(fs);
}
//------------------------------------------------------------------------
实现部份：
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
typedef void __stdcall (*TDoFunc)(void);
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
TDoFunc DoFunc;
int LibHandle;

LibHandle = (int) LoadLibrary("C:\\My Documents\\project2.DLL");
DoFunc=(TDoFunc)GetProcAddress((TDoFunc)LibHandle,"DoFunc");
DoFunc();
}
//---------------------------------------------------------------------------
原因可能是你没有载入Dll,请查看DoFunc是否为空。其他不明请问。

[快速开发平台]

我把所有工程文件都存入到My Documents目录,程序中涉及目录的地方改一下。

[快速开发平台]

trybird(菜鸟)　

你说“LoadLibaray()和GetProcAddress()在调试时都通过了，是在DoFunc()；”，要知道返回空指针照样能够通过。

[trybird]

谢谢诸位，尤其是陈杰！还有热心的虚竹和尚及其他兄弟们！

关键就是缺少 __stdcall啊！
加上__stdcall就一切都OK啦！
兄弟们啊，千万别再犯我这么低级的错误了！

一会马上买单，只付帐给陈杰和虚竹和尚，没意见吧？
其实其他兄弟也很热心，只能多谢了！向你们三鞠躬了！

[trybird]

正确的代码：

**********DLL部分
// test.cpp
//--------------------------------------------------------
#include <vcl.h>
#include <windows.h>
#include <stdio.h>
#include "Test.h"
#pragma hdrstop
#pragma argsused
//---------------------------------------------------------------------------
BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fwdreason, LPVOID lpvReserved)
{
return 1;
}
//---------------------------------------------------------------------------
void __stdcall DoFunc()
{
FILE *fs=fopen("XXX.txt", "a");
fprintf(fs,"I am a Programmer.");
fclose(fs);
}
//---------------------------------------------------------------------------

// test.h
extern "C" __declspec(dllexport) __stdcall void DoFunc();

*********调用DLL的部分：
// CallMe.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#include "CallMe.h"
#pragma hdrstop
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{

try
{
void (__stdcall *DoFunc)(void);
HANDLE hInst;

hInst = LoadLibrary("Test.dll");
(FARPROC &)DoFunc=GetProcAddress(hInst,"DoFunc");

DoFunc();

FreeLibrary(hInst);
}
catch(...)
{
ShowMessage("Error!!!!!!!");
}
}
//---------------------------------------------------------------------------

[trybird]

再次多谢了！
我差点就绝望地要把自己给炒掉了！是你们给了我从新改造的再生的机会……

：）