uglobdata.pas

西门子Prodave6.0 的Delphi 版本, 需要安装 Prodave60软件,支持以太网通讯

unit UGlobdata;

interface
   uses windows,Forms,Messages;
const
    CM_COMMSG = WM_USER + $1200; {读写错误}
    DBReadERR=100;
    FieldReadERR=101;
    ConError=102;
    AGInfoERR=103;
    DBCountERR=105;
    DBWriteERR=106;
    DBWriteOK=107;
    FieldWriteERR=108;
    FieldWriteOK=109;
    MBBitTestERR=110;
    MBBitReadERR=111;
    DiagBufERR=112;
    ConActiveOK=113;
    ConDelete=114;
    SetBufLen=1024*64;
 type
   PDataBuffer=array[1..64*1024] of byte;
 type
   TLoadCon=Packed Record
        Connr:boolean;
        ConNo:Smallint;
        ConTyp:String;
        Addr:String;
        Rack:String;
        Slot:String;
        CpuTyp:String;
  end;
   
var
    Buffer:PDataBuffer;
    PwriteBuf:array[1..1024] of byte;
    ConNr,DBNO,DBStart:integer;
    DatType:byte;
    LoadCon:Array[0..63] of TLoadCon;
    AppHWD:Tform;
    AHWND:HWND;
    Amount,ReadBUFLen:integer;
    FieldType:Char;
    CalacTim:String;
    mainFormHWG:Dword;
    CurConNumber:Integer;
implementation

end.