我没有用midas做了个简单的服务器,用typelib定义一个Test(out Re: OleVariant)
在服务器上配置好了DCOM.
在客户端用tregsvr.exe注册了服务器的tlb文件。
private
{ Private declarations }
TCOMTW:ICOMTW;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
v:oleVariant;
begin
TComTW.Test(v);
Edit1.Text:=v;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
TCOMTW:=COCOMTW.CreateRemote('\\tw');
end;
怎么还是连接不上。
在服务器上配置好了DCOM.
在客户端用tregsvr.exe注册了服务器的tlb文件。
private
{ Private declarations }
TCOMTW:ICOMTW;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
v:oleVariant;
begin
TComTW.Test(v);
Edit1.Text:=v;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
TCOMTW:=COCOMTW.CreateRemote('\\tw');
end;
怎么还是连接不上。
解决方案 »
- 用delphi7写的程序生成.exe文件点击运行 无法运行的问题 急用 谢谢!
- 有什么好用的多语言的控件?
- cxGrid如何展开前面的+
- 无法开机,这个是什么原因呢。我觉得可能是BOIS大家看下。内详 大家帮帮我啊。分不够可以加
- Delphi与Bcp(在线等候)
- 问个问题啊!!
- 请问如何用自己的按钮事件实现移动查询后的数据?
- 普通喷墨打印机能不能打印发票大小的纸张?
- 各位大侠,delphi中有没有从指定内存位置中读取数据流的函数--解决就给分
- ^_^ 如何dephi中调用excel中的数据?
- 关于DBGrid 在 MultiSelect时一次选择全部记录的问题
- How to add string to TListBox through API funciton?
这样我也试过,也是不行,不知道,哪位能知道是为什么,
不要让我困惑!~~!~~
http://www.swm.com.cn/rj/2001-1/4.htm