Delphi, TTVMesh.UpdateWater causes error [6.2]

[Migajek]

I've translated "Water ripples and cubic environment mapping (for T&L cards only)" from VB to Delphi, and in runtime it causes error ... firstof them  is on TTVMesh'es UpdateWater : method ("Type mismatch"), stops in TrueVision3d.pas, line 9676 :

Code:

procedure TTVMesh.UpdateWater;
begin
  DefaultInterface.UpdateWater(EmptyParam);
end;

called in here :
TV.Clear(false);
Water.UpdateWater;
Land.Render(false,true);



and second is on  EndEnvRender method of TTVRenderSurface (Access violation in tvutil62, address: 1002288A, read of address 000000 [empty pointer ] )

[LAO88]

you need an environment map. use the tv3d environment map tutorial

[Migajek]

you need an environment map. use the tv3d environment map tutorial

there is no environment mapping tutorial for Delphi ... and the only I have found is for VB, and as I said, after translation to delphi it causes errors :/

[SylvainTV]

There is a problem in Delphi because unfortunately there was an error in VB dll with the optional argument of the UpdateWater function. It asks for a "Variant" instead of a "boolean". I think it's the problem, i don't know delphi too much so i can't propose a solution...

Passing a "Variant" in delphi to the VB dll anyone?

[Migajek]

There is a problem in Delphi because unfortunately there was an error in VB dll with the optional argument of the UpdateWater function. It asks for a "Variant" instead of a "boolean". I think it's the problem, i don't know delphi too much so i can't propose a solution...

Passing a "Variant" in delphi to the VB dll anyone?

I found a declaration

Code:

procedure UpdateWater(UpdateTexcoords: OleVariant); safecall;

so it's sending to dll a variant ... but "EmptyParam' is not a boolean ... it is a variant ...
OK I've changed this line to

Code:

DefaultInterface.UpdateWater(true);

and it works

And how about EndEnvRender ?