Mitsubish FX 3U PLC 串口 连接单元

前段时间遇到一个Mitsubish FX 3U PLC ,现将PLC连接单元分享一下，希望对其他人有所启示。

unit PLC_MitsubishiFX;interfaceuses  Windows, Messages, SysUtils, Classes, syncobjs,UnitCom, ACTPCCOMLib_TLB,  PLC_Base, PLCCommonFunc;type  TPLC_MitsubishiFX=class(TPLC)  private    FMyCom:TActFXCPU;{定义串口通信对象}  public    ConStructor Create; override; {构造函数}    destructor Destroy; override; {析构函数}    function Open(ComName,IpAddress: string):Integer;override;{打开PLC}    function Close:Integer;override;  {关闭PLC}    //读PLC函数    function DoRead(Station:Integer; StartAddress:Integer; Count:Integer; Buffer:Pointer; DataType:array of TPLCDataType): Integer;override;    //写PLC函数    function DoWrite(Station:Integer; StartAddress:Integer; Count:Integer; Buffer:Pointer; DataType: TPLCDataType):Integer;override;{返回值为写入成功与否}end;implementation{ TPLC_Mitsubishi }constructor TPLC_MitsubishiFX.Create;begin  Inherited;  FMyCom:=TActFXCPU.Create(nil); {创建串口通信对象}  FMyCom.ActTimeOut:=10000;end;destructor TPLC_MitsubishiFX.Destroy;begin  FMyCom.Free ;{释放串口通信对象}  inherited;end;function TPLC_MitsubishiFX.Open(ComName,IpAddress: string): Integer;begin  FMyCom.ActPortNumber :=strtoint(copy(comname,4,length(comname)-3));     //com1  Result:=FMyCom.Open; //该函数返回0为成功  if Result = 0 then    Result := SUCCESS;end;function TPLC_MitsubishiFX.Close: Integer;begin  Result := FMyCom.Close;{关闭串口通信对象}  if Result = 0 then    Result := SUCCESS;end;function TPLC_MitsubishiFX.DoRead(Station:Integer; StartAddress:Integer; Count:Integer; Buffer:Pointer; DataType:array of TPLCDataType): Integer;var  DataInfo:TPLCStruct; //接收从Buffer传来的参数  lpdata: array[0..99] of integer;  i:integer;  LState:integer;begin  DataInfo := PTPLCStruct(Buffer)^;  try    LState:=FMyCom.ReadDeviceBlock('D'+ConvertStartAddr(StartAddress),Count,lpdata[0]) ;  except    LState:=-1;  end;  FLinkState := LState =0;  if LState<>0 then  //读取失败的情况  begin    Result:=UNSUCCESS;    exit;  end;  for i:=0 to Count-1 do  begin      DataInfo.PLCInteger[i]:=lpdata[i];  end;  PTPLCStruct(Buffer)^:=DataInfo; //传出读取的PLC数据  Result:=SUCCESS;end;function TPLC_MitsubishiFX.DoWrite(Station:Integer; StartAddress:Integer;  Count:Integer; Buffer:Pointer; DataType: TPLCDataType): Integer;var  DataInfo:TPLCStruct; //接收从Buffer传来的参数  LDataInfo :array[0..100] of integer;  i:integer;  LState:integer;begin  DataInfo := PTPLCStruct(Buffer)^;//  if DataType = dtHexInt then//    for i:=0 to Count - 1 do//      LDataInfo[i]:=StrToint('$'+DataInfo.PLCChar[i]) //十六进制//  else    for i:=0 to Count - 1 do      LDataInfo[i]:=DataInfo.PLCInteger[i];  //十进制  try    LState:=FMyCom.WriteDeviceBlock('D'+ConvertStartAddr(StartAddress),Count,LDataInfo[0]) ;  except    LState:=-1;  end;  FLinkState := LState = 0;  if LState = 0 then    result:= SUCCESS  else    result:=UNSUCCESS;end;end.