如何解决错误外部异常E0434352调用C# dll方法从 Delphi

wribegjk  于 2023-01-30  发布在  C#
关注(0)|答案(1)|浏览(342)

我需要解压缩大的gzip文件(超过4.5去)。我有一些麻烦,这样做与Delphi西雅图使用TDecompressionStream(结果文件被截断)。
为了避免这个问题,我选择在C#dll中执行此任务,并从Delphi中调用它。
我的C#代码是工作的,我用一个控制台应用程序测试它。我添加了金块包unmanagedexports并编译了32位的dll。
当我从Delphi调用我的dll方法时,我得到了这个错误:"外部异常E0434352"
我遵循此链接的建议:如何在Delphi中使用C#创建的动态链接库
但我已经有麻烦了
我的C#代码

static public class UnZip
    {
        [DllExport("UngzipFile", CallingConvention.StdCall)]
        public static int UngzipFile(string aFile)
        {
            int result = 0;
            FileInfo fileInfo = new FileInfo(aFile);
            using (FileStream fileToDecompress = fileInfo.OpenRead())
            {
                string decompressedFileName = Path.Combine(Path.GetDirectoryName(aFile), "temp.sql");
                using (FileStream decompressedStream = File.Create(decompressedFileName))
                {
                    using (GZipStream decompressionStream = new GZipStream(fileToDecompress, CompressionMode.Decompress))
                    {
                        try
                        {
                            decompressionStream.CopyTo(decompressedStream);
                        }
                        catch
                        {
                            result = 1;                            
                        }
                    }
                }
            }
            return result;
        }
    }

我的Delphi代码

function UngzipFile(aFile : string) : Integer; stdcall; external 'UnCompress.dll';

procedure TForm1.UnzipFile(aFileName: String);
var
  UnZipFileName : string;
  Return : integer;
  DllZipFile : PWideChar;
begin
  UnZipFileName := ExtractFilePath(aFileName)+'Temp.sql';

  if FileExists(UnZipFileName) then
    DeleteFile(UnZipFileName);

  DllZipFile := PWideChar(aFileName);
  Return := UngzipFile(DllZipFile);
  if Return > 0 then
    raise Exception.Create('Error while uncompressing file');
end;

目前,当我从Delphi调用UngzipFile时,我得到了外部异常E0434352。
我希望result = 0,且我文件是解压缩的。
谢谢你的帮助。

0qx6xfy6

0qx6xfy61#

有一个异常在我的动态链接库,因为字符串参数。我添加日志在动态链接库,我发现只有我的参数的第一个字符,这是由动态链接库。
这篇文章Using a C# DLL in Delphi only uses the first function parameter帮助我更正我的代码。
新的C#代码

static public class UnZip
    {
        [DllExport("UngzipFile", CallingConvention.StdCall)]
        public static int UngzipFile([MarshalAs(UnmanagedType.LPWStr)] string aFile)
        {
            if (!File.Exists(aFile))
                return 3;

            FileInfo fileInfo;

            string logFile = @"D:\Temp\logDll.log";            
            try
            {
                File.AppendAllText(logFile, aFile);
                fileInfo = new FileInfo(aFile);
            }
            catch(Exception ex)
            {
                File.AppendAllText(logFile, String.Format("File : {0} || Exception : {1}",aFile,ex.Message));
                return 2;
            }

            int result = 0;
            using (FileStream fileToDecompress = fileInfo.OpenRead())
            {
                string decompressedFileName = Path.Combine(Path.GetDirectoryName(aFile), "temp.sql");
                using (FileStream decompressedStream = File.Create(decompressedFileName))
                {
                    using (GZipStream decompressionStream = new GZipStream(fileToDecompress, CompressionMode.Decompress))
                    {
                        try
                        {
                            decompressionStream.CopyTo(decompressedStream);
                        }
                        catch
                        {
                            result = 1;                            
                        }
                    }
                }
            }
            return result;
        }
    }

通过在我的参数声明中添加[MarshalAs(UnmanagedType.LPWStr)],可以解决这个问题。

相关问题