Problem de pointeur lors de l'appel d'une fonction d'une DLL

Question

Bonjour,

j'essai d'appeler une fonction d'une DLL ecrite en C en delphi
les premieres fonctions de la DLL fonctionnent mais je n'arrive pas a 
appeler la suivante en delphi.

appel en C:     WriteContinuous(leds);  (avec  unsigned char leds[9];)

En delphi et chargement statique de la DLL
J'ai essayer pas mal de truc mais sans succes

function WriteContinous(var  Pdata_to_write:Pchar):integer; stdcall;  external 'atusbhid.dll';

var
  Pdata_to_write:Pchar;
  data_to_write:array[0..8] of char;

begin

Pdata_to_write:=@data_to_write;
WriteContinous(Pdata_to_write);

a noter que le fonction C ne renvoie rien mais j'ignore comment l'ecrire en delphi.
Si vous voyez ce qui cloche je suis preneur

Cordialement

Eric

Cirec · Answer

Salut,
c'est quoi l'erreur ?
donne le massage
as-tu la source de la dll ?
es-tu sur de la d&#233;claration de la fonction ?

si non essaye Cdecl &#224; la place de StdCall 
Extrait de l'aide Delphi :
La convention cdecl est utile pour les appels de fonctions &#224; partir de biblioth&#232;ques partag&#233;es &#233;crites en C ou en C++ 

@+
Cirec

astrorico44 · Answer

l'erreur est une access violation at 0x7c974a50: write of address 0x00030d24

idem avec la declaration cdecl....

je suis sur de la declaration de la fonction en C, j'essai d'avoir les sources

y a t'il une autre maniere d'appeler cette fonction en delphi que celle que j'ai utilis&#233; ?

Eric

Cirec · Answer

Non je ne crois pas qu'il y ait une autre mani&#232;re d'appeler une fonction o&#249; procedure depuis une Dll.
Mais si tu arrives &#224; avoir la source on pourra v&#233;rifier la syntaxe 

@+
Cirec

f0xi · Answer

function WriteContinous(Leds : Pchar) : integer; a condition qu'en c++ elle soit ecrite (c++) : int WriteContinous( ... ) { ... } je pense que vus ce que tu dis plus haut il faudrait l'ecrire : type TStr9 = string[9]; procedure WriteContinous(Leds : TStr9); pour (c++) : void WriteContinous( ... ) { ... }

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

astrorico44 · Answer

voici le source de la fonction ds la DLL



void STDCALL WriteContinuous(unsigned char *buffer)

{    

    unsigned char OutputReport[9];

    OutputReport[0] = 0;

    for (int c = 0; c < REPORTSIZE; c++)

        OutputReport[c + 1] = buffer[c];

    WriteReport(OutputReport);

}



ca ne marche pas mieux avec le TStr9 = string[9];



A+

Eric

Cirec · Answer

Bon alors essaye comme ceci :

Procedure WriteContinous(var  Pdata_to_write:Pchar); stdcall;  external 'atusbhid.dll';
o&#249; encore avec le TStr9

@+
Cirec

f0xi · Answer

void STDCALL WriteContinuous(unsigned char *buffer) = procedure WriteContinuous(buffer : string); stdcall; external 'atusbhid.dll'; c++ char* = delphi string c++ void ident(){} = delphi procedure ident(); c++ type ident(){} = delphi function ident() : type; donc void STDCALL WriteContinuous(unsigned char *buffer) { unsigned char OutputReport[9]; OutputReport[0] = 0; for (int c = 0; c < REPORTSIZE; c++) OutputReport[c + 1] = buffer[c]; WriteReport(OutputReport); } = procedure WriteContinuous(buffer : string); var OutputReport : array[0..9] of char; C : integer; begin OutputReport[0] := #00; for c := 1 to REPORTSIZE do OutputReport[C] := Buffer[C]; WriteReport(OutputReport); end; si je ne fais pas d'erreur.

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

astrorico44 · Answer

Bonsoir...o desespoire elle ne veux toujours rien savoir cette .....perie de DLL 
avec tous les exemples ci dessus ds tous les sens
ci-joint mon code si quelqu'un veut essayer la DLL estici

cordialement

Eric

function InitHid():integer;  stdcall; external 'atusbhid.dll';
function FindHidDevice(const VendorID,ProductID:integer):integer; stdcall;  external 'atusbhid.dll' ;
Procedure SetReportContinuous(); stdcall;  external 'atusbhid.dll';
Procedure WriteContinous(var Pdata_to_write:Pchar); stdcall;  external 'atusbhid.dll';
//function ReadContinous(var buffer : string):integer ; stdcall;  external 'atusbhid.dll';

procedure TForm1.Button1Click(Sender: TObject);

const

 VendorID  = $03EB;
 ProductID = $201D;

var
  DllInstance, error:integer;
   Pdata_to_write:Pchar;
  data_to_write:array[0..8] of char;

begin

Pdata_to_write:=@data_to_write;

    InitHid();

    error := FindHidDevice(VendorID,ProductID);
    If (error = 0) then begin
                   showMessage('Device not connected ');
                   end;

     SetReportContinuous();
    data_to_write[0]:='1';
    data_to_write[1]:='1';
    data_to_write[2]:='5';
    data_to_write[3]:='5';
    data_to_write[4]:='1';
    data_to_write[5]:='1';
    data_to_write[6]:='5';
    data_to_write[7]:='5';
    data_to_write[8]:='2';

   WriteContinous(Pdata_to_write);

 end;

Problem de pointeur lors de l'appel d'une fonction d'une DLL

8 réponses

Votre réponse