Проблема Need help for C# approach to ISArcEx

[BLACKFIRE69]

this is an app written in C# that uses ISArcExM (another edition of the ISArcEx)(a library that extracts freearc archives compiled in delphi.)

the problem here is the callback function. it works fine in InnoSetup, C++ Builder and Delphi. but in C# it doesn't work unexpectedly. so i need help to fix it.

thank you.

 

[Timick]

Полноценно смогу посмотреть после 6 января, но, такое ощущение, что все эти атрибуты [MarshalAs(UnmanagedType.BStr)] лишние - рядом с FreeArc, в документации, лежит пример использования для C# - не думал сделать по аналогии?

 

[BLACKFIRE69]

it feels like all these attributes [MarshalAs(UnmanagedType.BStr)] are redundant - next to FreeArc, in the documentation, there is an example of use for C# - didn't you think to do it by analogy?

@Timick
i also tried the following but no luck.

>> Library - Delphi <<

type
TCallback = function(OverallPct, CurrentPct, DiskTotalMB,
DiskExtractedMB: Integer; DiskName, CurrentFile, TimeStr1, TimeStr2,
TimeStr3, Speed: PWideChar): longint; stdcall;

var
DiskName: WideString;

function ISArcExInit(..., Mycallback: TCallback): boolean; stdcall;

TCallback(Mycallback)(..., StringToOleStr(DiskName), ...)


>> Native App - C # <<

--> Structures:
[UnmanagedFunctionPointer(CallingConvention.StdCall)]
public delegate long Callback(int OverollPct, int CurrentPct,
int DiskTotalMB, int DiskExtractedMB,
[MarshalAs(UnmanagedType. LPWStr)] string DiskName,
[MarshalAs(UnmanagedType. LPWStr)] string CurrentFile,
[MarshalAs(UnmanagedType. LPWStr)] string TimeStr1,
[MarshalAs(UnmanagedType. LPWStr)] string TimeStr2,
[MarshalAs(UnmanagedType. LPWStr)] string TimeStr3,
[MarshalAs(UnmanagedType. LPWStr)] string Speed);

>> Library - Delphi <<

type
TCallback = function(OverallPct, CurrentPct, DiskTotalMB,
DiskExtractedMB: Integer; DiskName, CurrentFile, TimeStr1, TimeStr2,
TimeStr3, Speed: UnicodeString): longint; stdcall;

var
DiskName: UnicodeString;

>> Native App - C # <<

--> Structures:
[UnmanagedFunctionPointer(CallingConvention.StdCall, CharSet =CharSet. Unicode)]
public delegate long Callback(int OverollPct, int CurrentPct,
int DiskTotalMB, int DiskExtractedMB,
[MarshalAs(UnmanagedType. BStr)] string DiskName,
[MarshalAs(UnmanagedType. BStr)] string CurrentFile,
[MarshalAs(UnmanagedType. BStr)] string TimeStr1,
[MarshalAs(UnmanagedType. BStr)] string TimeStr2,
[MarshalAs(UnmanagedType. BStr)] string TimeStr3,
[MarshalAs(UnmanagedType. BStr)] string Speed);

I'll be able to take a full look after January 6.

thanks...

 

[Razor12911]

The integer type is the problem here. You used long instead of int, long in C# is 64-bit while in Delphi and C/C++ it's 32-bit.

 

[BLACKFIRE69]

thanks razor, that's the magic.
i was going to recreate the entire library in C++.

 

[BLACKFIRE69]

@Mods
should i mark this thread as solved?

 

[BLACKFIRE69]

if anyone wants to check out the final fix, here it is.
also updated ISArcExM to v0.4.0.1