Externe dll aufrufen

25/11/2009 - 13:47 von Finn Stampe Mikkelsen | Report spam
Hallo

Ich habe da ein problem.. ich muss diesen code :

PROCEDURE pGetVersionNr(
var AVersionNr : word); pascal; external 'raccd32a.dll';


PROCEDURE pCheckDatabaseFormat(
ADriveInfo : pointer;
var AResult : word;
var AErrorCode : SmallInt); pascal; external 'raccd32a.dll';

PROCEDURE pGetCallInfo(
DriveInfo: pointer;
ACall: pointer;
AInfo: pointer;
var AErrorCode: SmallInt); pascal; external 'raccd32a.dll';

in C# nutzen. Ich habe es mit dies versucht..

[DllImport(@"M:\tsrDll\WIN32accd32a", EntryPoint =
"sGetVersionNr",
ExactSpelling = false, CallingConvention =
CallingConvention.StdCall)]
static extern void sGetVersionNr(ref int AVersionNr);

[DllImport(@"M:\tsrDll\WIN32accd32a", EntryPoint =
"sCheckDatabaseFormat",
ExactSpelling = false, CallingConvention =
CallingConvention.StdCall)]
static extern void sCheckDatabaseFormat(string ADriveInfo, ref int
AResult, ref int AErrorCode);

[DllImport(@"M:\tsrDll\WIN32accd32a", EntryPoint = "sGetCallInfo",
ExactSpelling = false, CallingConvention =
CallingConvention.StdCall)]
static extern void sGetCallInfo(ref string ADriveInfo, ref string
ACall, ref string AInfo, ref int AErrorCode);

sGetVersionNr und sCheckDatabaseFormat funtionieren einwandfrei.
sGetCallInfo aber funktioniert nicht und ich habe da eine idee, dass es
diese pointers sind..
Hier ist der code, denn ich anwende..

sGetCallInfo(ref ADriveInfo, ref ACall, ref Ainfo, ref
AErrorCode); // FUNKTIONIERT NICHT

sCheckDatabaseFormat(ADriveInfo, ref AResult, ref AErrorCode);
// FUNKTIONIERT OKAY

Har einer eine idee??

/Finn
Der er 10 slags mennesker - Dem som forstår binær og dem som ikke gør.
There are 10 kinds of people. Those who understand binary and those who
don't.
Es gibt 10 Arten von Menschen. Die, die Binàr verstehen, bzw. die, die es
nicht tuhen.
 

Lesen sie die antworten

#1 Finn Stampe Mikkelsen
25/11/2009 - 14:00 | Warnen spam
Hier der rufende code aus Pascal:

pGetCallInfo(@DriveInfo, @Call, @Info, ErrorCode);

/Finn
Der er 10 slags mennesker - Dem som forstår binær og dem som ikke gør.
There are 10 kinds of people. Those who understand binary and those who
don't.
Es gibt 10 Arten von Menschen. Die, die Binàr verstehen, bzw. die, die es
nicht tuhen.

Ähnliche fragen