Discussion :

[dacid]

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 ?

[madfu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[dacid]

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.