Apeller fonction DLL avec pointeurs en Delphi

Bonjour à tous,

J'ai une DLL qui possède cette fonction selon la doc:
NoMangle long DLL_IMPORT_EXPORT csp2GetCodeType(unsigned char CodeId, char *CodeType, long nMaxLength)
Elle est censée remplir CodeType depuis CodeId en le transformant un peu...

Je la déclare en Delphi comme ça:
function csp2GetCodeType(CodeId: Char; var CodeType: Char; nMaxLength: Integer): Integer; stdcall; external NomDLL;

Ensuite, je l'apelle comme ça:
var tampon,tampon2: array[0..512] of Char;
...
csp2GetCodeType(tampon[1],tampon2[1],30);
Memo1.Lines.Add('Packet: '+tampon+' => CodeType:'+tampon2);

Ou est le problème ?

bonjour,

unsigned char CodeId : octet non signé pour moi c un byte
char *CodeType : pointeur sur des caractères<=>chaine à zéro terminalen delphi


j'utiliserais donc plutot ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function csp2GetCodeType(CodeId: byte; CodeType: PChar; nMaxLength: Integer): Integer; stdcall; external NomDLL;   ...   var tampon : byte; tampon2 : PChar; ... begin getmem(tampon2, MAXLENGTH); try csp2GetCodeType(tampon,tampon2,MAXLENGTH); Memo1.Lines.Add('Packet: '+inttostr(tampon)+' => CodeType:'+strpas(tampon2)); finally dispose(tampon2) end; end;

---

Bonjour madfu,

En fait, j'ai mis CodeId en integer et CodeType en Pchar

Ensuite, j'ai envoyé integer(pointer(tampon[1])) et tampon2

Merci pour ton aide.