Есть библиотека CheckUfa.dll В справке разработчика написано, что подключать, нужные мне функции, к Delphi проекту вот так:
function CheckFile(fname,reportName,typRep:PChar;fox:integer):integer; StdCall;
function CheckFile2(fname,typRep:PChar;Precheck:integer):WideString; StdCall;
function CheckFile3(fname,reportName,typRep:PChar;fox:integer):wideString; StdCall;
Менял LPStr, LPWStr. Убирал и ставил разные MarshalAs. IntPtr. Ничего.
Один из примеров того, что пробовал (касаемо CheckFile2):
[DllImport(@"D:\CheckUfa.dll", CharSet = CharSet.Unicode, CallingConvention = CallingConvention.StdCall)]
[return: MarshalAs(UnmanagedType.LPWStr)]
public static extern IntPtr CheckFile2(
[MarshalAs(UnmanagedType.LPWStr)]
StringBuilder fname,
[MarshalAs(UnmanagedType.LPWStr)]
StringBuilder typRep,
[MarshalAs(UnmanagedType.I4)]
int Precheck);
...
StringBuilder sb1 = new StringBuilder(...
StringBuilder sb2 = new StringBuilder(...
return Marshal.PtrToStringUni(CheckFile2(sb1, sb2, 0));
...