Is Delphi/VB6 no longer COM compatible with .Net 4.0

procedure TForm1.Button1Click(Sender: TObject);
const
  DOTNETDLL = 'dnetTestDivideByZero';
  DOTNETCOMTYPE = 'dnetTestDivideByZero.dnetTestDivideByZeroInterface';
var
  ADotNetObject: Variant;
  CW: Word;
  a, b: Double;
begin
  CW:= Get8087CW;

  // Disable FPU exceptions
  Set8087CW( $133f );
  try
    try
      ADotNetObject:= CreateOleObject( DOTNETCOMTYPE );
    except on E: Exception do
      begin
        ShowMessage( 'Please register this dll by calling C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe dnetTestDivideByZero.dll.'+
        '  This will register the dll for COM.  You will notice that if you compile the vinlib.dll for .net 2.0 or 3.5 and regasm the dll, that the problem does not occur.' );
        Exit;
      end;
    end;

    try
      ADotNetObject.DummyMethodThatDoesNothing;
    finally
      varClear( ADotNetObject );
    end;

  finally
    Set8087CW( CW );
  end;


  try
    b := 0;
    a := 1 / b;   // wont throw
    a := 1 / b;   // will throw...this is b/c of FPU design
  except
    on E: Exception do
      // never get here
      ShowMessage('This should be Divide by zero error. However, it goes uncaught b/c of stack overflow error when using .net 4.0.  Failed with Error = '+  E.Message );
  end;

 ShowMessage('Success')
end;

Select allOpen in new window