Delphi .Net and Irrlicht

[Specis]

Hello all,

Its a rather simple question i have, Irrlicht http://irrlicht.sourceforge.net claims to support Delphi via the .net versions and the usage of the irrlicht.net.dll

Now here's the question has anyone actually got this to work from delphi?

I can get the IDE to pickup the namespaces etc but when i try to compile anything with the DLL in the references Delphi just throws strange errors like
[Fatal Error] F1026 File not found: '.dll'
[Fatal Error] E2202 Required package '' not found

or

[Fatal Error] F1026 File not found: '<
.dll'
[Fatal Error] E2202 Required package '<
' not found

just seems to be random.

Im using Delphi 2005 for this and the irrlicht.net works with C# from within delphi 2005.

[Sly]

You are venturing into unfamiliar territory there. You're the first I've heard using Irrlicht with Delphi .NET.

[savage]

Where does you irrlicht.net.dll exist? It could be that it needs to exist in your GAC. The other possibility is to checkl that the irrlicht assembly is for the version of .NET you have installed on your machine.

So much for gettting rid of DLL hell .

[Specis]

Honestly im not sure what you mean by GAC.

But i have the assembly imported as local copy and the DLL exists in the same dir as the source and also a copy in the 'bin\Debug\' Dir for the project

It imports fine, no errors at all. i can browse the clr interface for the DLL all that works fine, The ide will even work with the DLL showing procedures functions etc in the Code Completion.

Its just when you actually try to compile that it throws a slight fit with the above errors.

Same DLL used works with the C# builder built into Delphi 2005 so its kinda a stumping problem.

[savage]

GAC should be Global Assembly Cache.

I can test it out this evening. What do I need to try it out with Delphi 2005 ( a special Irrlicht installation )??

[Specis]

Erm you dont, you could try it in Delphi 8, i just have Delphi 2005 is all

[savage]

Did you use something simialar to the following program to test it...

program HelloWorld;

{$APPTYPE CONSOLE}

{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Data.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Windows.Forms.dll'}
{%DelphiDotNetAssemblyCompiler '..\..\bin\delphi 2005\Irrlicht.NET.dll'}// You will probably have to change this path.


uses
  System.Windows.Forms,
  Irrlicht,
  Irrlicht.Video,
  Irrlicht.Core,
  Irrlicht.Scene;

var
  device : IrrlichtDevice;
  texSydney, texWall, texLogo : ITexture;
  mesh : Irrlicht.Scene.IAnimatedMesh;
  cam : ICameraSceneNode;
  node : ISceneNode;
  fps : integer;
begin
  // start up the engine
  device := IrrlichtDevice.Create(DriverType.OPENGL);

  device.ResizeAble := true;
  device.WindowCaption := 'Irrlicht.NET Delphi.NET example 01 - Hello World';

  // load some textures 

  texSydney := device.VideoDriver.GetTexture('..\..\media\sydney.bmp');
  texWall := device.VideoDriver.GetTexture('..\..\media\wall.bmp');
  texLogo := device.VideoDriver.GetTexture('..\..\media\irrlichtlogoaligned.jpg');

  // load the animated mesh of sydney

  mesh := device.SceneManager.GetMesh('..\..\media\sydney.md2');

  if (mesh = nil) then
  begin
    System.Windows.Forms.MessageBox.Show(
      'Could not load mesh ..\..\media\sydney.md2, exiting.',
      'Problem starting program');
    exit;
  end;

  // add a camera, a test scene node and the animated mesh to the scene	

  cam := device.SceneManager.AddCameraSceneNodeFPS(nil, 100, 100, -1);
  cam.Position := Vector3D.Create(20,0,-50);


  node := device.SceneManager.AddTestSceneNode(15, nil, -1, Vector3D.Create(30,-15,0));
  node.SetMaterialTexture(0, texWall);

  node := device.SceneManager.AddAnimatedMeshSceneNode(mesh, nil, -1);
  node.SetMaterialTexture(0, texSydney);
  node.SetMaterialFlag(MaterialFlag.LIGHTING, false);

  // make cursor invisible
  device.CursorControl.Visible := false;

  // start drawing loop

  fps := 0;

  while( device.Run ) do
  begin
    if (device.WindowActive) then
    begin
      device.VideoDriver.BeginScene( true, true, Color.Create( 0, 100, 100, 100 ) );

      device.SceneManager.DrawAll();
				
      // draw the logo
      device.VideoDriver.Draw2DImage(
        texLogo, Position2D.Create( 10, 10 ),
        Rect.Create( 0,0,88,31 ),
        Rect.Create( Position2D.Create( 0, 0 ),device.VideoDriver.ScreenSize),
        Color.Create($ffffff), false);

      device.VideoDriver.EndScene();

      if &#40;fps <> device.VideoDriver.FPS&#41; then
      begin
        fps &#58;= device.VideoDriver.FPS;
        device.WindowCaption &#58;= 'Irrlicht.NET Delphi.NET example 01 - Hello World &#91;'+ device.VideoDriver.Name + '&#93; fps&#58;' + fps.ToString;
      end;
    end;
  end; // end drawing-loop
end.

I can confirm that the problem occurs in Delphi 8 ( with all the patches ) as well (. I have sent the assembly to Borland in the hope that it will help them fix the problem.

[Specis]

no i went for something simple like just creating the irrlicht device.

But i tried your code there and same thing With Delphi 2005 as with my own code.

I'll await any news you hear and continue to use GLScene atm.

[savage]

GOOD NEWS!! It appears that Borland have already fixed the problem in Delphi 20005 Service Pack 2 which was released on March the 8th. I have just tested it and it works perfectly with the code I ported and posted earlier.

I hope this helps.

[Specis]

Nice

Had'nt even looked at Delphi 2005 again since trying that

Got it working nice to have Directx 9 without having to write everything yourself