C vers delphi NULL erreur Un objet constante ne peut être passé comme paramètre Var

Version imprimable

bonjour, je bloque sur une conversion qui me parait correct:

Code:

1
2
3
4
5
6
INT nSize = VMProtectGetCurrentHWID(NULL, 0); // get number of required bytes 
char *pBuf = new char[nSize]; // allocate buffer
VMProtectGetCurrentHWID(pBuf, nSize); // obtain hardeare identifier
// use it
delete [] pBuf; // release buffer

et je fait:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Procedure TForm3.Button3Click(Sender: TObject);
Var
  Buffer: PChar;
  Size:   Integer;
Begin
  Size := VMProtectGetCurrentHWID(null, 0);
  GetMem(Buffer, Size);
  Try
    VMProtectGetCurrentHWID(Buffer, Size);
    Application.MessageBox(PChar('Votre identifiant matériel est:' + sLineBreak) + Buffer, PChar('Information'), MB_ICONINFORMATION Or MB_OK);
  Finally
    FreeMem(Buffer);
  End;
End;

Delphi me sort sur la ligne rouge:

Citation:

Un objet constante ne peut être passé comme paramètre Var

Quelqu'un peut m'aider à comprendre?:oops: Merci

04/01/2010, 15h35
Linkin

nil au lieu de null, non?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
interface
 
function VMProtectGetCurrentHWID(Buffer: PAnsiChar; BufferLen: LongWord): LongInt; stdcall; 
 
function VMProtectGetCurrentHWIDText: string; 
 
implementation
 
const
  VMProtectSDK = 'VMProtect32.dll';
 
function VMProtectGetCurrentHWID; external VMProtectSDK name 'VMProtectGetCurrentHWID';
 
function VMProtectGetCurrentHWIDText: string;
var
  pBuf  : PAnsiChar;
  nSize : LongWord;
begin
  result := '';
  nSize := VMProtectGetCurrentHWID(Nil, 0);
  GetMem(pBuf, nSize);
  try
    VMProtectGetCurrentHWID(pBuf, nSize);
    result := StrPas(pBuf);
  finally
    FreeMem(pBuf, nSize);
  end;
end;

04/01/2010, 19h32
ouiouioui

Un énorme merci! C'est parfait! :ccool:

J'ai modifié leur sdk avec ta solution et remplaçé StrPas par String et sa fonctionne :hola: