C++Builder 11 64位VCL程序opendir/readdir函数适配求助

方案一：改用VCL/RTL原生文件遍历API（推荐） #

C++Builder的RTL提供了完全适配Windows平台与VCL的文件操作函数，可彻底规避C标准库函数的64位兼容性问题，代码更易维护：

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <System.IOUtils.hpp>
#include <System.SysUtils.hpp>

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    try
    {
        TStringList *fileNames = new TStringList();
        try
        {
            // 获取目录下所有文件与子目录的完整路径
            for (const auto& entry : TDirectory::GetFileSystemEntries(L"C:\\test\\"))
            {
                // 提取纯文件名并显示
                UnicodeString fileName = ExtractFileName(entry);
                fileNames->Add(fileName);
                ShowMessage(fileName);
            }
        }
        __finally
        {
            delete fileNames;
        }
    }
    catch (const Exception& e)
    {
        ShowMessage(L"错误：" + e.Message);
    }
}

说明 #

• TDirectory::GetFileSystemEntries原生支持64位与宽字符路径，适配Windows平台特性
• 自带异常处理，可友好处理目录不存在、权限不足等场景
• 代码风格与VCL框架统一，后期维护成本更低

方案二：修复opendir/readdir的64位兼容性 #

若必须使用C标准库接口，需切换到Windows CRT提供的宽字符版本函数，适配64位环境：

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <dirent.h>
#include <System.SysUtils.hpp>

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    _WDIR *pDir;
    struct _wdirent *dirU;

    // 使用宽字符版本的目录打开函数
    pDir = _wopendir(L"C:\\test\\");
    if (pDir == NULL) {
        ShowMessage(L"打开目录失败");
        return;
    }

    int count = 1;
    // 读取目录项直到结束
    while ((dirU = _wreaddir(pDir)) != NULL)
    {
        ShowMessage(UnicodeString(dirU->d_name));
        count++;
    }

    // 必须关闭目录句柄，避免资源泄漏
    _wclosedir(pDir);
}

说明 #

• Windows 64位CRT优先推荐宽字符接口（_wopendir/_wreaddir/_wclosedir），可避免ANSI版本的编码与指针兼容问题
• 路径字符串需添加宽字符前缀L，对应结构体为_WDIR与_wdirent
• 务必调用_wclosedir释放资源

原代码失效原因 #

原代码使用的ANSI版本opendir/readdir在64位Windows环境下，会因CRT实现差异、路径编码转换丢失等问题导致指针处理错误。你参考的IBM文档针对AIX系统，与Windows平台CRT实现完全无关，无适配价值。

内容的提问来源于stack exchange，提问作者homebase