Can you post a sample of code which doesn't work?
--
Marc Rohloff [TeamB]
marc rohloff -at- myrealbox -dot- com
Here is the Assembly code:
type
[ComVisible(True), ClassInterface(ClassInterfaceType.AutoDual)]
TDotNetObj = class
private
{ Private Declarations }
public
constructor Create;
function ShowWinForm: string;
procedure ShowVCLForm;
end;
implementation
uses WinForm, MyVCL;
constructor TDotNetObj.Create;
begin
inherited Create;
// TODO: Add any constructor code here
end;
procedure TDotNetObj.ShowVCLForm;
var
a: TmyVCLForm;
begin
a := TmyVCLForm.Create(nil);
a.ShowModal;
end;
Here is the code in the COM Client:
procedure TForm1.Button2Click(Sender: TObject);
var
fc: TDotNetObj;
begin
fc := CoTDotNetObj.Create;
fc.ShowVCLForm;
fc.Free;
fc := nil;
end;
CoTDotNetObj was defined by Delphi when I imported the type
library generated by regasm.
The only ideas that I had were that I would need certain borland specific dlls registered with the OS in some way that
the delphi install does not automatically do for me.
I appreciate any help.