当前位置：文江博客话题详情

Delphi：制作 unicode RAR 组件 2.0

发布于 2024-11-14 20:43:17 字数 197 浏览 4 评论 0原文

我有 RAR 组件 2.0 和 Delphi 2010。该组件使用 AnsiString 作为文件路径。我怎样才能使它成为unicode？我将 RAR.pas 中的 AnsiString 更改为 String 但没有帮助。

谢谢！

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

海的爱人是光 2024-11-21 20:43:17

在 RAR.pas 中：

将 TRARArchiveInformation 的 fFileName 字段和 Filename 属性更改为 WideString。
更改 TRAR.OpenFile，使 FileName 参数为 WideString。
在 TRAR.OpenArchive(Extract:boolean) 中更改此行：
ArcName := PAnsiChar(fArchiveInformation.FileName);
对此：
ArcNameW := PWideChar(fArchiveInformation.FileName);

在 RAR_DLL.pas 中：

更改 GetFileModifyDate ，使这一行：

h := OpenFile(PAnsiChar(FileName), Struct, OF_SHARE_DENY_NONE);

是这样的：

h := FileOpen(FileName, fmOpenRead or fmShareDenyNone);

并删除 Struct: TOFSTRUCT;< var 块中的 /code> 行。

In RAR.pas:

Change TRARArchiveInformation's fFileName field and the Filename property to WideString.
Change TRAR.OpenFile so the FileName argument is a WideString.
In TRAR.OpenArchive(Extract:boolean) change this line:
ArcName := PAnsiChar(fArchiveInformation.FileName);
to this:
ArcNameW := PWideChar(fArchiveInformation.FileName);

In RAR_DLL.pas:

Change GetFileModifyDate so this line:

h := OpenFile(PAnsiChar(FileName), Struct, OF_SHARE_DENY_NONE);

is this:

h := FileOpen(FileName, fmOpenRead or fmShareDenyNone);

and remove the Struct: TOFSTRUCT; line from the var block.

回复收藏 0 原文

妄断弥空 2024-11-21 20:43:17

如果我查看您刚刚链接到的源代码，我认为您无需更改任何内容。看起来应该已经支持unicode了。作者声称它适用于 Delphi 2009，我看到 TRarProcessFile() 有两个版本：

TRARProcessFile = function(hArcData: THandle; Operation: Integer; DestPath, DestName: PAnsiChar): Integer; stdcall;
TRARProcessFileW = function(hArcData: THandle; Operation: Integer; DestPath, DestName: PWideChar): Integer; stdcall;

TRARProcessFileW 应该接受带有 Unicode 字符的文件名。
你尝试过使用它吗？

也许它仍然不起作用（我自己还没有尝试过使用 Unicode 字符），但如果这不起作用，那么如果您更详细地描述出了什么问题，也许会有所帮助。

哦，为了确定一下：您使用的是 Delphi 2009+ 对吗？

If I look at the sourcecode that you just linked to, I think you didn't have to change anything. It looks like it should already support unicode. The author claims it's for Delphi 2009, I see that there are two versions of TRarProcessFile():

TRARProcessFile = function(hArcData: THandle; Operation: Integer; DestPath, DestName: PAnsiChar): Integer; stdcall;
TRARProcessFileW = function(hArcData: THandle; Operation: Integer; DestPath, DestName: PWideChar): Integer; stdcall;

TRARProcessFileW should accept a filename with Unicode characters.
Did you try to use that?

Maybe it somehow still doesn't work (I haven't tried it myself with Unicode characters yet), but if this doesn't work, then maybe it's helpful if you describe what goes wrong with a bit more detail.

Oh, and just to be sure: you are using Delphi 2009+ right?

回复收藏 0 原文

~没有更多了~