发布于 2009-04-18 21:22:31
0楼
我在DLEPHI下用以下代码调试通过,当然首先要在DELPHI中导入此控件。
procedure TForm1.Button1Click(Sender: TObject);
var
Ctrl:IDispatch;
Data:olevariant;
State:integer;
begin
dmc1.Connect(Ctrl);
dmc1.Read('ALM1',100,Data,State);//ALM1是TAG名称
edit1.Text:=string(Data)
end;
因为我的电脑里没装VB,但我在EXECL的VB里编写类似代码,不能调试通过,不知道为什么??