Shared memory en c++ et delphi :( GlobalAlloc, GlobalLock, etc...

Marsh Posté le 20-07-2003 à 19:45:23

J'ai besoin de partager une variable entre un programme delphi et un programme C++ compilé comme une DLL.

Ca plante au moment de l'appel dans la DLL :'(

Dans le programme delphi je fais :

Code :

procedure doChangeInt( p : THandle) ; stdcall; external 'occt.dll' name 'stop';
procedure TForm1.Button1Click(Sender: TObject);
var
temp : THandle;
myint: PInteger;
begin
Temp := GlobalAlloc(GMEM_MOVEABLE,4);
DoChangeInt(Temp);
myint := GlobalLock(Temp);
Edit1.Text := IntToStr(myint^);
GlobalUnlock(Temp);
end;

Dans la DLL C++ je fais

Code :

void stop(HGLOBAL i)
{
int* myint;
myint = (int*)::GlobalLock(i);
*myint=2;
GlobalUnlock(i);
}

C'est juste a des fins de test, j'essaie de mettre a jour une variable partagée dans la DLL...

Et ca plante.

application defined exception 0xc000001d at 0X0012f540

Vous auriez une idée sur le pourquoi du comment ?

Reply

Marsh Posté le 20-07-2003 à 19:45:23

Reply

Marsh Posté le 20-07-2003 à 20:03:06

- Vérifie que la fonction exportée 'stop' de ta DLL s'appelle bien 'stop'
- Si c'est bon, vérifie les conventions d'appels

Ah oui, il manque te manque un GlobalFree(Temp) dans ton code delphi et pense à vérifier le code de retour des fonctions..

Reply

Marsh Posté le 20-07-2003 à 20:05:29

*Syl* a écrit :

- Vérifie que la fonction exportée 'stop' de ta DLL s'appelle bien 'stop'
- Si c'est bon, vérifie les conventions d'appels

Ah oui, il manque te manque un GlobalFree(Temp) dans ton code delphi et pense à vérifier le code de retour des fonctions..

-ouip c'est bon
-Conventions d'appel ?

Mercii pour le GlobalFree, et le code de retour de mes fonctions, finalement, ca peux chier que dans C++, vu que en Delphi ca marche nickel, si je vire l'appel a la DLL.

je vais essayer avec des returns de vérifier le tout...