我需要解压缩大的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,且我文件是解压缩的。
谢谢你的帮助。
1条答案
按热度按时间0qx6xfy61#
有一个异常在我的动态链接库,因为字符串参数。我添加日志在动态链接库,我发现只有我的参数的第一个字符,这是由动态链接库。
这篇文章Using a C# DLL in Delphi only uses the first function parameter帮助我更正我的代码。
新的C#代码
通过在我的参数声明中添加
[MarshalAs(UnmanagedType.LPWStr)]
,可以解决这个问题。