SetEntityCallback

[Meldrion]

Good evening.

I try to make simple collision Events ( when u hit the Invisible Trigger, a Sound starts to play etc) with Delphi 7.

Well the problem I have, is that when I hit my Trigger I get an AccessViolation. I know that this was reported as a Bug and Josh fixed it but still,

it is not working for me.

 

EntityType(MyController,1,1);

EntityType(CollisionBox,4,1);

Collisions(1,4,2);

SetEntityCallback(CollisionBox,@EntityCollisionCallback,ENTITYCALLBACK_COLLISION);

 

in my MainLoop i call this for testing:

MessageBox(CollisionInfo);

 

Here are some functions I made in order to make things easier for me:

 

procedure MessageBox(Text:string);

var Texture: TTexture;

begin

SetBlend( BLEND_ALPHA );

Texture := LoadTexture('abstract::textbox.dds');

DrawImage (Texture,10,10,600,120);

SetColor ( Vec4(255,255,255,255) );

DrawText(30,30,pChar(Text));

end;

 

procedure EntityCollisionCallback(entity0:TEntity;entity1:TEntity;position:Pointer;normal:Pointer;force:Pointer;speed:real );stdcall;

var VecPosition: TVec3;

begin

CollisionInfo:= GetEntityKey(entity0,'Name');

end;

 

 

Btw: The @T means the AdressOf(T) in Delphi

 

I hope someone can help me out, cause this is about to drive me crazy.

[Masterxilo]

Were you able to solve this? What about the calling convention (needs to be __stdcall)? Is it set correctly?