最近一个项目牵扯到软件和硬件的接口程序,需要实现称重的重量读取到软件中在.net中嵌入delphi硬件接口函数。 客户提供的delphi函数如下 1.将cKmtMeter.dll,Meter.dll,pComm.dll,Zhuanhuan.Txt,unit.txt放到程序目录下。 2.uses ComObj; 3.包含头文件cKmtMeter_TLB.pas // //定义仪表对象 COMSvr_Meter : IcomMeter; //创建仪表对象 COMSvr_Meter := CreateComObject(CLASS_comMeter) as IcomMeter; //初始化仪表参数 COMSvr_Meter.Init('A'); //连接仪表 COMSvr_Meter.Open(); //仪表设置 COMSvr_Meter.Setup(); //使用完关闭 COMSvr_Meter.Close(); COMSvr_Meter:=nil; /通讯 procedure TForm1.Timer1Timer(Sender: TObject); var iStat:Integer; sWgt:String; begin if COMSvr_Meter<>nil then Begin iStat:=-1; COMSvr_Meter.GetMeterData(iStat,sWgt); if iStat<>-1 then panLed.Caption:=sWgt; end; end; // COMSvr_Meter.GetStopStat(); /