Mitsubish FX 3U PLC 串口 连接单元

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

unit PLC_MitsubishiFX;

interface

uses
  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.