如何解决从Delphi调用C#动态链接库方法时出现的错误外部异常E0434352

我需要解压缩大的gzip文件(超过4.5 Go)。在使用TDecompressionStream (结果文件被截断)时,我在使用Delphi Seattle时遇到了一些麻烦。

为了避免这个问题,我选择在Delphi中完成这个任务,并从C#调用它。

我的C#代码工作正常,我用一个控制台应用程序对它进行了测试。我添加了块金包UnmanagedExports,并编译了32位的dll。

当我从Delphi调用我的dll方法时,我得到了这个错误:“外部异常E0434352”

我遵循这个链接的建议:How to use a DLL created with C# in Delphi

但是我已经有这个问题了

我的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,并且我的文件是解压缩的。

谢谢你的帮助。

转载请注明出处:http://www.wlshunda.com/article/20230526/1092073.html