Konvertierungsproblem C++/VB nach Delphi. Buffer als var Parameter in/aus DLL

[Tonic1024]

Hallo...

Ich beiss mir grad die Zähne an ner VB-Übersetzung aus.

Code:

Private Declare Function MCardGetAttrib Lib "MCSCM.DLL" (ByVal hMCardContext As Long, ByVal dwAttrId As Long, ByVal pbAttr As String, ByRef pcbAttrLen As Long) As Long

[..]

  Dim S As String
  Dim lSize As Long
  Dim lReturn As Long
   
  S = String(100, 0)
  lSize = 4
  lReturn = MCardGetAttrib(hMCardContext, dwAttrId, S, lSize)

Delphi-Quellcode:

function MCardGetAttrib(hMCardContext: THandle; dwAttrId: Integer; pbAttr: PAnsiChar; var pcbAttrLen: Integer): Integer; stdcall; external 'MCSCM.DLL';

[..]

var Return: Integer;
    s: AnsiString;
    size: Integer;

[..]

  s := DupeString(Chr(0), 100);
  size:=4;
  Return:=MCardGetAttrib(hMCardContext, MCARD_ATTR_TYPE, PAnsiChar(s), size);

Die Fehlermeldung für MCardGetAttrib aus der DLL lautet "Invalid Parameter".

Die Verwendung von PAnsiChar hat an anderer Stelle schon mal geklappt. Aber hier vermute ich, dass es Probleme mit den Nullchars gibt. Wie geht man hier vor?

Hoffe jemand hat ne zündende Idee.

Gruß,

Toni

[Bernhard Geyer]

PAnsiChar? Kann es sein das PWideChar's erwartet werden?

[hoika]

Hallo,

schau mal hier.
http://entwickler-forum.de/archive/i...p/t-24695.html

Heiko

[Tonic1024]

Widestring führte mich nicht weiter...

Ich hab die Zeit aber genutzt und noch ein c++ Beispeil für das selbe Problem gefunden. Dort schaut es so aus:

Code:

typedef LONG  (WINAPI *pfnMCardGetAttrib) (IN MCARDHANDLE hMCard, IN DWORD dwAttrId, OUT LPBYTE pbAttr, IN OUT LPDWORD pcbAttrLen);

[..]      
BYTE   abyAttr [100];
DWORD   dwLen;

MCardGetAttrib (CardHandle, MCARD_ATTR_TYPE, abyAttr, &dwLen);

Als erstes ist mir aufgefallen, dass im VB Code ein ByVal verschütt gegangen ist. Das lässt mich ja jetzt ein bissel an der ganzen Implementation zweifeln. Aber von C++ hab ich noch weniger Ahnung als von VB. Da wird fleißig gepointert.

[Bummi]

hilft Dir das weiter ?

TSCardSetAttrib = function (hCard: LongInt; dwAttrId: LongInt; var pbAttr: PByte; cbAttrLen: LongInt): LongInt; stdcall;

[Tonic1024]

Ja, das kommt dem schon recht nahe was ich da intuitiv, also ohne genau zu wissen was ich tue, draus gemacht hab. Aber egal wie ich den Aufruf mache, ich erhalte immer "Invalid Parameter"

Delphi-Quellcode:

function MCardGetAttrib(hMCardContext: THandle; dwAttrId: Integer; var pbAttr: PByte; var pcbAttrLen: PDWord): Integer; stdcall; external 'MCSCM.DLL';

[..]
  byArray: array [0..99] of Byte;
[..]
  for i := 0 to 99 do
    byArray[i]:=$00;

  size:=4;
  Return:=MCardGetAttrib(hMCardContext, MCARD_ATTR_TYPE, PByte(byArray), PDWord(size));

[Edit]Hab auch die offizielle Doku ergoogelt -Klick- (Seite 19) aber meine C++ Kenntnisse reichen nur bis zu dem Punkt an dem es auch schon vorher hakte. [/Edit]

Toni