prodave.pas

西门子与计算机通讯程序包括源代码 程序说明 控件 及控件使用手册 使用西门子prodave 控件 这是第一版

Unit Prodave;

interface

{*** Allgemeine Deklarationen *********************************************************************}

type
 AgInfo = Record
   AgSw: Integer;
   PgSw: Integer;
   MLFB: Array[0..30] of Char;
 end;

 MixDataInfo = Record
   Typ: Byte;
   Size: Byte;
   BstNr: Integer;
   Nr: Integer;
 end;

 AgAdrInfo = Record
     MPI: Byte;
     SegmentID: Byte;
     SlotNr: Byte;
     RackNr: Byte;
 end;
  adr_table_type=Record
     	adr:Byte;       //* stationsadresse     default 2          */
      segmentid:byte;    //* segment id          default 0          */
	    slotno:byte;       // /* slot no             default 2          */
	    rackno:byte;     // /* rack no             default 0          */
      end0:byte       //0
 end;
var
  LinkInfo: Array[0..16] of AgAdrInfo;
  MixInfo: Array[0..20] of MixDataInfo;
  WordBuffer: Array[0..512] of Word;
  ByteBuffer: Array[0..512] of Byte;

const
  BST_IN_RAM: Integer = 16;
  BST_IN_EPROM: Integer = 32;

{*** Allgemeine Funktionen ************************************************************************}

function Load_Tool (LinkNr: Byte; LinkName, LinkBlock: PChar): Integer; StdCall;
//连接数量；
function Unload_Tool: Integer; StdCall;

{*** S7-300 / S7-400 Funktionen *******************************************************************}

function New_SS(AgNr: Byte): Integer; StdCall;
function AG_Info(var Buffer: AgInfo): Integer; StdCall;
function AG_Zustand(var Buffer): Integer; StdCall;
function A_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function A_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function DB_Buch(var Buffer): Integer; StdCall;
function DB_Read(DBNr, AbWort: Integer;  var Anzahl: Integer; var Buffer): Integer; StdCall;
function DB_Write(DBNr, AbWort: Integer; var Anzahl: Integer; var Buffer): Integer; StdCall;
function D_Field_Read(DBNr, AbWort, Anzahl: Integer; var Buffer): Integer; StdCall;
function D_Field_Write(DBNr, AbWort, Anzahl: Integer; var Buffer): Integer; StdCall;
function E_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function M_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function M_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function MB_BitTest(MBNr, BitNr: Integer; var RetWert: Byte): Integer; StdCall;
function MB_SetBit(MBNr, BitNr: Integer): Integer; StdCall;
function MB_ResetBit(MBNr, BitNr: Integer): Integer; StdCall;
function T_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function Z_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function Z_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function Mix_Read(InfoBlock: PChar; var Buffer): Integer; StdCall;
function Mix_Write(InfoBlock: PChar; var Buffer): Integer; StdCall;

{*** S7-200 Funktionen ****************************************************************************}

function AS200_AG_Info(var Buffer: AgInfo): Integer; StdCall;
function AS200_AG_Zustand(var Buffer): Integer; StdCall;
function AS200_A_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_A_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_VS_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_VS_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_SM_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_SM_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_E_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_M_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_M_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_MB_BitTest(MBNr, BitNr: Integer; var RetWert: Byte): Integer; StdCall;
function AS200_MB_SetBit(MBNr, BitNr: Integer): Integer; StdCall;
function AS200_MB_ResetBit(MBNr, BitNr: Integer): Integer; StdCall;
function AS200_T_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_Z_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_Z_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; StdCall;
function AS200_Mix_Read(InfoBlock: PChar; var Buffer): Integer; StdCall;
function AS200_Mix_Write(InfoBlock: PChar; var Buffer): Integer; StdCall;

{*** Komfort - Funktionen *************************************************************************}

function Error_Message(ErrorNr: Integer; var Buffer): Integer; StdCall;

implementation

uses
  SysUtils;

{*** Interne Deklarationen ************************************************************************}

const
  S7DLL = 'W95_S7.DLL';
  KomfortDLL = 'KOMFORT.DLL';

{*** Allgemeine Funktionen ************************************************************************}

function Load_Tool(LinkNr: Byte; LinkName, LinkBlock: PChar): Integer; external S7DLL Name 'load_tool';
function Unload_Tool: Integer; external S7DLL Name 'unload_tool';

{*** S7-300 / S7-400 Funktionen *******************************************************************}

function New_SS(AgNr: Byte): Integer; external S7DLL Name 'new_ss';
function AG_Info(var Buffer: AgInfo): Integer; external S7DLL Name 'ag_info';
function AG_Zustand(var Buffer): Integer; external S7DLL Name 'ag_zustand';
function A_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'a_field_read';
function A_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'a_field_write';
function DB_Buch(var Buffer): Integer; external S7DLL Name 'db_buch';
function DB_Read(DBNr, AbWort: integer; var Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'db_read';
function DB_Write(DBNr, AbWort: integer; var Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'db_write';
function D_Field_Read(DBNr, AbWort, Anzahl: Integer; var Buffer): Integer;  external S7DLL Name 'd_field_read';
function D_Field_Write(DBNr, AbWort, Anzahl: Integer; var Buffer): Integer;  external S7DLL Name 'd_field_read';
function E_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'e_field_read';
function M_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'm_field_read';
function M_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'm_field_write';
function MB_BitTest(MBNr, BitNr: Integer; var RetWert: Byte): Integer; external S7DLL Name 'mb_bittest';
function MB_SetBit(MBNr, BitNr: Integer): Integer; external S7DLL Name 'mb_setbit';
function MB_ResetBit(MBNr, BitNr: Integer): Integer; external S7DLL Name 'mb_resetbit'
function T_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 't_field_read';
function Z_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'z_field_read';
function Z_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'z_field_write';
function Mix_Read(InfoBlock: PChar; var Buffer): Integer; external S7DLL Name 'mix_read';
function Mix_Write(InfoBlock: PChar; var Buffer): Integer; external S7DLL Name 'mix_write';

{*** S7-200 Funktionen ****************************************************************************}

function AS200_AG_Info(var Buffer: AgInfo): Integer; external S7DLL Name 'as200_ag_info';
function AS200_AG_Zustand(var Buffer): Integer; external S7DLL Name 'as200_ag_zustand';
function AS200_A_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_a_field_read';
function AS200_A_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_a_field_write';
function AS200_VS_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_vs_field_read';
function AS200_VS_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_vs_field_write';
function AS200_SM_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_m_field_read';
function AS200_SM_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_m_field_write';
function AS200_E_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_e_field_read';
function AS200_M_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_m_field_read';
function AS200_M_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_m_field_write';
function AS200_MB_BitTest(MBNr, BitNr: Integer; var RetWert: Byte): Integer; external S7DLL Name 'as200_mb_bittest';
function AS200_MB_SetBit(MBNr, BitNr: Integer): Integer; external S7DLL Name 'as200_mb_setbit';
function AS200_MB_ResetBit(MBNr, BitNr: Integer): Integer; external S7DLL Name 'as200_mb_resetbit'
function AS200_T_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_t_field_read';
function AS200_Z_Field_Read(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_z_field_read';
function AS200_Z_Field_Write(AbByte, Anzahl: Integer; var Buffer): Integer; external S7DLL Name 'as200_z_field_write';
function AS200_Mix_Read(InfoBlock: PChar; var Buffer): Integer; external S7DLL Name 'as200_mix_read';
function AS200_Mix_Write(InfoBlock: PChar; var Buffer): Integer; external S7DLL Name 'as200_mix_write';

{*** Komfort - Funktionen *************************************************************************}

function Error_Message(ErrorNr: Integer; var Buffer): Integer; external KomfortDLL Name 'error_message';

end.