5

我在尝试Winapi::findFirstFile在服务器上运行时遇到问题。我已经尝试在 WinapiServer 类上复制该方法，并更改了一些行，如下所示：

server static container findFirstFile(str filename)
{
    InteropPermission interopPerm;
    Binary data;
    DLL _winApiDLL;
    DLLFunction _findFirstFile;
    ;

    interopPerm = new InteropPermission(InteropKind::DllInterop);
    interopPerm.assert();

    data = new Binary(592); // size of WIN32_FIND_DATA when sizeof(TCHAR)==2
    _winApiDLL = new DLL(#KernelDLL);
    _findFirstFile = new DLLFunction(_winApiDLL, 'FindFirstFileW');

    _findFirstFile.returns(ExtTypes::DWord);

    _findFirstFile.arg(ExtTypes::WString,ExtTypes::Pointer);

    return [_findFirstFile.call(filename, data),data.wString(#offset44)];
}

但现在我有另一种错误 库 DLL 'KERNEL32' 上的函数 'FindFirstFileW' 引发异常。

这是因为我在 x64 服务器上执行该方法。任何有解决这个问题的想法的人？

4

3 回答 3

6

这是一个在客户端和服务器端都对我有用的示例代码。它使用 .NET 命名空间来获取给定模式的给定文件夹路径中的文件列表。

您可以修改它以创建您自己的服务器端版本的FindFirstFile方法。

X++ 代码

static container findMatchingFiles(
        str _folderPath
    ,   str _filePattern   = '*.*')
{
    System.IO.DirectoryInfo     directory;
    System.IO.FileInfo[]        files;
    System.IO.FileInfo          file;
    InteropPermission           permission;

    str         fileName;
    counter     filesCount;
    counter     loop;
    container   mathchingFiles;
    ;

    permission  = new InteropPermission(InteropKind::ClrInterop);
    permission.assert();

    directory   = new System.IO.DirectoryInfo(_folderPath);
    files       = directory.GetFiles(_filePattern);
    filesCount  = files.get_Length();

    for (loop = 0; loop < filesCount; loop++)
    {
        file            = files.GetValue(loop);
        fileName        = file.get_FullName();
        mathchingFiles  = conins(mathchingFiles, conlen(mathchingFiles) + 1, fileName);
    }

    CodeAccessPermission::revertAssert();

    return mathchingFiles;
}

测试作业

为了测试上面的代码，我在路径中创建了以下示例文件C:\temp\Files\

文件列表

我将上述方法放在名为Tutorial_WinApiServer的示例类中。然后，创建了一个fetchFiles使用以下代码命名的作业。

static void fetchFiles(Args _args)
{
    container   files;
    counter     loop;
    str         fileName;
    ;

    files = Tutorial_WinApiServer::findMatchingFiles(@'C:\temp\Files', '*.txt');

    for (loop = 1; loop <= conlen(files); loop++)
    {
        fileName = conpeek(files, loop);
        info(fileName);
    }
}

执行作业给出了以下输出。

作业输出 1

将文件模式更改为F*.*后，作业产生以下输出。

作业输出 2

希望有帮助。

于 2011-11-29T19:50:11.647 回答
0

也许使用 .NET 框架会更好？

http://greg.agiletortoise.com/2007/04/02/dynamics-ax-making-net-calls-from-inside-ax/

检查其他人是否为您完成了此操作。

于 2011-11-28T18:09:07.427 回答
0

我发现 .NET 类需要 System.String 而不是 str。指的是：

directory   = new System.IO.DirectoryInfo(_folderPath);

编译 CIL 时，我得到：

无法在编译器信息 (TmpCompilerOutput) 中创建记录。路径：\Classes\\，警告：未找到代理。键入在堆栈上找到的 FileIOPermission。此代码在 Class: , Method: 中。

我的解决方案是将 _folderPath 分配给 System.String。

于 2015-10-22T09:17:34.357 回答