在中、日操作系统下用DLL封装窗体、相同代码在日文下报错……

tohaerok 2012-01-18 03:56:00
系统介绍：
1.中文 XP SP3
2.日文 XP SP3

代码如下：
==========================DLL==========================


uses

  Sharemem,

  SysUtils,

  Forms,

  Messages,

  Windows,

  Classes,

  ActiveX,

  comObj,

  untPRJ_1_Setup in 'untPRJ_1_Setup.pas' {frmPRJ_1_Setup},

  udmData in '..\Common\udmData.pas' {dmData: TDataModule},

  untCommon in '..\Common\untCommon.pas',

  AES in '..\Common\AES.pas',

  ElAES in '..\Common\ElAES.pas';



{$R *.res}

var

  DllApp: TApplication;

   DLLScreen: TScreen;

  

   TheForm: TForm;

  TheClass: TPersistentClass;



procedure RunDLL(DLLName, FormName, FormCaption: string;

  APP: TApplication; SC: TScreen) stdcall;

begin

  Application := App;

  Screen := SC;



  RegisterClasses([TfrmPRJ_1_Setup]);



  TheClass := GetClass('T' + FormName);



  if (TheClass <> nil) and TheClass.InheritsFrom(TForm) then

  begin

    TheForm := TForm(TheClass.Create).Create(Application);



    //TheForm := TfrmPRJ_1_Setup.Create(Application, FormCaption);

    //TheForm.Show;

    try

      TheForm.ShowModal;

    finally

      FreeAndNil(TheForm);

      //TheForm.Free;

    end;

  end;

end;



procedure DLLUnloadProc(dwReason: Dword);

begin

  case dwReason of

  //DLL_PROCESS_ATTACH, DLL_THREAD_ATTACH:

    //CoInitialize(nil);

    

  DLL_PROCESS_DETACH:    

  begin

    //CoUninitialize;



   Application := DLLApp;                                                 

    Screen := DLLScreen;                                                



    if TheForm <> nil then

      FreeAndNil(TheForm);                             



    SendMessage(Application.Handle, WM_CLOSE, 0, 0);                        

    FreeLibrary(Application.Handle);                                            

  end;



  DLL_THREAD_DETACH:

    //CoUninitialize;



  end;

end; 



exports

  RunDLL;



begin

  DLLApp := Application;                                                        

   DLLScreen := Screen;      



    DLLProc := @DLLUnloadProc;                                  

  DLLUnloadProc(DLL_PROCESS_ATTACH);





end.


==========================调用==========================
DPR文件
uses sharemem



type

  TRunDLL = procedure(DLLName, FormName, FormCaption: string;

    Application: TApplication; Screen: TScreen); stdcall;



procedure TfrmMain.btnPRJ_1_SetupClick(Sender: TObject);

begin

  RunDLLForm('PRJ_1_Setup.dll', 'frmPRJ_1_Setup', 'ﾉ靹ﾃ', Application, Screen);

end;



procedure TfrmMain.RunDLLForm(DLLName, FormName, FormCaption: string;

  APP: TApplication; SC: TScreen) stdcall;

var

  GetDllHWND: HWND;

  RunDLL: TRunDLL;

begin

  GetDllHWND := LoadLibrary(PChar(DllName));

  if GetDllHWND = 0 then 

  begin

    MessageBox(0, PChar('ﾃｻﾓﾐﾕﾒｵｽﾃ鉸ｪ '+DLLName+' ｵﾄﾎﾄｼ｣ｬﾇ・ｷﾈﾏｳﾌﾐﾇｷ・訒｡'),

      'ｼﾓﾔﾘDLLﾎﾄｼﾊｧｰﾜ', MB_OK);

    Exit;

  end;

  

  try

    @RunDLL := GetProcAddress(GetDllHWND, 'RunDLL');                            

    if Assigned(@RunDLL) then

    begin

      try

        RunDLL(UpperCase(Trim(DLLName)), UpperCase(Trim(FormName)),

          FormCaption, APP, SC);



      except

        raise Exception.Create('T' + FormName + 'ｲｻｴ贇ﾚ｣｡');

      end;

    end;



  finally

    FreeLibrary(GetDllHWND);

  end;

end;


在中文下编译、运行没问题，编译后的文件拿到日文下、运行没问题。
如果在日文下，编译使用相同代码后，宿主程序在呼出DLL窗体时也没问题。
但是，当DLL窗体关闭后，再关闭宿主程序，delphi就会报内存错误和runtime error

这是为什么捏？
在此BS下日文系统- -
...全文
186 17 打赏 收藏 转发到动态 举报
写回复
用AI写文章
17 条回复
切换为时间正序
请发表友善的回复…
发表回复
tohaerok 2012-04-05
  • 打赏
  • 举报
 回复
自从上次来看回复之后,就没时间解决这个问题,直到昨天才想到,还有帖子没结...
昨天的最新进展:



library Setting;



uses

  Sharemem,

  SysUtils,

  Forms,

  Messages,

  Windows,

  Classes,

  ActiveX,

  comObj,

  UntSetting in '..\Form\UntSetting.pas' { FrmSetting } ;

{$R *.res}



var

  DllApp: TApplication;

  DllScr: TScreen;

  TheForm: TForm;

  TheClass: TPersistentClass;



procedure OpenMe(Parent: THandle; DllName, FrmName: string; App: TApplication;

  Scr: TScreen); stdcall;

begin

  Application := App; //问题在这

  Screen := Scr;



  RegisterClasses([TFrmSetting]);

  TheClass := GetClass('T' + FrmName);

  if (TheClass <> nil) and TheClass.InheritsFrom(TForm) then

  begin

    //Application.Handle := Parent;

    TheForm := TForm(TheClass.Create).Create(Application);

    try

      TheForm.ShowModal;

    finally

      FreeAndNil(TheForm);

    end;

  end;

end;



procedure DLLUnloadProc(dwReason: Dword);

begin

  case dwReason of

    DLL_PROCESS_ATTACH, DLL_THREAD_ATTACH:

      begin

        { 保存Dll初始的Application對象 }

        DllApp := Application;

        { 保存Dll初始的Screen對象 }

        DllScr := Screen;

        // CoInitialize(nil);

      end;



    DLL_PROCESS_DETACH:

      begin

        { 還原Dll的Application對象 }

        Application := DllApp;

        { 還原Dll的Screen對象 }

        Screen := DllScr;



        if TheForm <> nil then

          FreeAndNil(TheForm);



        FreeLibrary(Application.Handle);



        // CoUninitialize;

      end;



    DLL_THREAD_DETACH:

      begin

        CoUninitialize;

      end;

  end;

end;



exports OpenMe;



begin

  DllProc := @DLLUnloadProc;

  DLLUnloadProc(DLL_PROCESS_ATTACH);



end.


以上代码,在静态调用的时候没有问题
动态调用后,关闭主程序会报run time error

后来我尝试将Application := App;注释掉
再将主窗体句柄传入DLL,如下:
Application.Handle := Parent;
动态,静态调用都没有问题

很困惑啊...


tohaerok 2012-02-27
  • 打赏
  • 举报
 回复
一個多月啦 一直沒時間解決這個問題 今天突然想起來 還沒結貼呢...
再等幾天哈
lzg827 2012-01-29
  • 打赏
  • 举报
 回复
以前碰到过软件中英文版的问题。
未修改任何代码，在开发机器编译好后拿过去用没问题，换其他语言的机器编译后使用出问题。

大过年的还在研究真正原因，向楼主的专业精神致敬。
以前认为是不同操作系统字符集的问题，未深入研究。
tohaerok 2012-01-19
  • 打赏
  • 举报
 回复 


procedure TForm1.Button1Click(Sender: TObject);

begin

  RunDLLForm(Pchar('PRJ_1_Setup.dll'), Pchar('frmPRJ_1_Setup'), Pchar(''), Application, Screen);

  RunDLL(Pchar('PRJ_1_Setup.dll'), Pchar('frmPRJ_1_Setup'), Pchar(''), Application, Screen);

end;


还发现个有意思的地方
先动态方法建立窗体 关闭
再静态方法建立窗体 关闭
最后关闭主程序
不报错 一切正常……
tohaerok 2012-01-19
  • 打赏
  • 举报
 回复
[Quote=引用 10 楼 mwy654321 的回复:]
楼主莫非在日本开发软件？
[/Quote]
不是的，我帮朋友忙，混点买年货钱。
tohaerok 2012-01-19
  • 打赏
  • 举报
 回复
[Quote=引用 8 楼 funxu 的回复:]
哦对了另外 SendMessage(Application.Handle, WM_CLOSE, 0, 0); 这句我没看懂为什么要这么做，Application已经是dll自己的application了，而且外部程序也已经freelibrary了，dll窗体也关闭了为什么dll还要给自己发close消息呢？
[/Quote]

感谢大家回复！

我将string全部换成Pchar后也不行、SendMessage是我失误，复制时不小心把注释//删掉了。

但是，我发现，静态调用DLL之后，就没问题了……
我再试试看动态调用哪里出的问题！



procedure RunDLL(DLLName, FormName, FormCaption: Pchar; APP: TApplication; SC: TScreen); stdcall; external 'PRJ_1_Setup.dll';



procedure TForm1.Button1Click(Sender: TObject);

begin

  //RunDLLForm(Pchar('PRJ_1_Setup.dll'), Pchar('frmPRJ_1_Setup'), Pchar(''), Application, Screen);

  RunDLL(Pchar('PRJ_1_Setup.dll'), Pchar('frmPRJ_1_Setup'), Pchar(''), Application, Screen);

end;
无条件为你 2012-01-18
  • 打赏
  • 举报
 回复
楼主莫非在日本开发软件？
BambooCaep 2012-01-18
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 tohaerok 的回复:]

引用 4 楼 bamboocaep 的回复:
你的delphi是支持unicode的delphi2010或更高版本么？

我见过你耶 在黑龙江招大牛那个贴 哈哈
[/Quote]
:)
funxu 2012-01-18
  • 打赏
  • 举报
 回复
哦对了另外 SendMessage(Application.Handle, WM_CLOSE, 0, 0); 这句我没看懂为什么要这么做，Application已经是dll自己的application了，而且外部程序也已经freelibrary了，dll窗体也关闭了为什么dll还要给自己发close消息呢？
funxu 2012-01-18
  • 打赏
  • 举报
 回复
建议Lz试一下把string换成pchar再把我说的那句注释掉试试
tohaerok 2012-01-18
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 bamboocaep 的回复:]
你的delphi是支持unicode的delphi2010或更高版本么？
[/Quote]
我见过你耶 在黑龙江招大牛那个贴 哈哈
tohaerok 2012-01-18
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 bamboocaep 的回复:]
你的delphi是支持unicode的delphi2010或更高版本么？
[/Quote]
中文系统是D7
日文系统是D7和D2010

在日文下 不管用7还是2010 都报错
BambooCaep 2012-01-18
  • 打赏
  • 举报
 回复
你的delphi是支持unicode的delphi2010或更高版本么？
tohaerok 2012-01-18
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 funxu 的回复:]
是不是DLL_PROCESS_DETACH: 里的这句
FreeLibrary(Application.Handle);
出问题了
[/Quote]

不是啊~F8一直可以运行到程序结束，之后稍等一会弹出access violation at 0x00404e0c： read of address 0x035c4960
funxu 2012-01-18
  • 打赏
  • 举报
 回复

是不是DLL_PROCESS_DETACH: 里的这句
FreeLibrary(Application.Handle);
出问题了
erhan 2012-01-18
  • 打赏
  • 举报
 回复
跟你一起BS一下
易语言程序免安装版下载
　静态编译后的易语言EXE/DLL之间不能再共享譬如窗口、窗口组件等类似资源，对于已经静态连接到一个EXE/DLL中的支持库，该支持库中的数据或资源将不能再被其它EXE/DLL中所使用的同名支持库访问。这是因为代码被分别...
OPENGL 显示文字 SharpGL+SharpFont+纹理
前言 说起显示文字，估计大家都觉得很简单。...在开始之前，我们需要搭建开发环境。OpenGL是C++的接口，C#需要对其进行封装才可以调用。目前有不少对OpenGL的封装，我们选用了SharpGL作为我们的类库。具体步...
C#实现屏幕键盘(软键盘 ScreenKeyboard)
钩子（Hook）是Windows提供的一种消息处理机制平台，是指在程序正常运行中接受信息之前预先 启动的函数，用来检查和修改传给该程序的信息，（钩子）实际上是一个处理消息的程序段，通 过系统调用，把它挂入系统。...
MFC教程 -- Windows界面开发
MFC教程 -- Windows界面开发 Windows消息机制 初步认识MFC ...我们在编写标准C程序的时候,经常会调用各种库函数来辅助完成某些功能：初学者使用得最多的C库函数就是printf了，这些库函数是由你所使用的编
VB函数大全
可在代码中的任何地方用下列常数代替实际值： 常数 值 描述 vbCalGreg 0 指出使用的是阳历。 vbCalHijri 1 指出使用的是伊斯兰历法。 --------------------------------------------------------------------...
Delphi

5,392

社区成员

262,729

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章