Discussion :

[Kanter]

Bonjour,
j'ai recherché sur le forum ou google (sans succès) avant de poster ce message ici.

C'est tres simple, sauf pour moi, voila :
j'ai une dll ecrite en C, et j'essaie via delphi de la chargée et d'interfacer les fonctions exportées.

voici un exemple :
la déclaration de la fonction en C de la DLL qui genere un aléa de longueur "length" et et le stocke dans "Random"

Code :

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

unsigned char FunctRandom(unsigned char *random, unsigned char   length);

les valeurs retour :

Code :

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

1
2
#define OK 0x55
#define NOK 0xAA

un exmple en C de l'appel de la fonction

Code :

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

1
2
unsigned char random[16];
while (FunctRandom(random, 16) != OK);

et en delphi

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
19
20
21
22
23
24
procedure executeRND;
type
   TFunctRandom = function (_Random : Pointer; _Length : Pointer) : Pointer ; cdecl;
   Trnd = array [1..8] of Byte; 
var
   random : ^Trnd ;
   length : ^integer ;
   GenRandom : TFunctRandom;
   DLLHandle : THandle;
   Status : Pointer
begin
   length^ := 8;
   DLLHandle := LoadLibrary(Pchar('maDLL.dll'));  
   if DLLHandle <> 0 then begin
      try
         @GenRandom :=   GetProcAddress(DLLHandle, 'RandomGen');
         Status := GenRandom(random ,length);
         {le tableau random est bien mise a jour et le status est OK}
      except
         FreeLibrary(CryptoDLLHandle);
      end;
   end;
   FreeLibrary(CryptoDLLHandle); 
end;

Au final je ne sais pas trop quel type mettre à random et length (pointer, PChar...) mais toujours est il que ca plante bien mechant a la sortie de la procedure executeRND...

Pouvez vous m'aiguiller s'il vous plait ?

[edam]

example d'une API

Code :

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

1
2
3
4
5
6
DWORD GetEnvironmentVariable(
 
    LPCTSTR lpName,	// address of environment variable name 
    LPTSTR lpBuffer,	// address of buffer for variable value 
    DWORD nSize 	// size of buffer, in characters 
   );

et si tu regarde windows.pas

Code :

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

function GetEnvironmentVariable(lpName: PChar; lpBuffer: PChar; nSize: DWORD): DWORD; stdcall;

dans l'aide de delphi sur la convention d'appel :stdcall

Les conventions register et pascal transmettent les paramètres de gauche à droite ; c'est-à-dire que le paramètre de gauche est évalué et transmis en premier, le paramètre de droite est évalué et transmis en dernier. Les conventions cdecl, stdcall et safecall transmettent les paramètres de droite à gauche.

alors, pour ton function d'example, pas sûr:

Code :

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

function FunctRandom(random:PCahr;length:byte):boolean;stdcall;

et l'appel se fait:

Code :

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

1
2
3
4
5
 
var  s:string[16];
begin
   if FunctRandom(@s,16) then;
end;

[Montor]

alors, pour ton function d'example, pas sûr:

Code :

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

 function FunctRandom(random:PCahr;length:byte):boolean;stdcall;

Code :

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

1
2
3
4
5
6
7
8
9
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
function FunctRandom(random:PCahr;length:byte):boolean;stdcall external 'maDLL.dll';