function Load_tool ( no:Byte; name: {pointer} PChar; adr:{pointer} PChar): longint;stdcall; external 'w95_s7.dll' name 'load_tool'; function New_ss (no:Byte): longint stdcall;external 'w95_s7.dll' name 'new_ss'; function Unload_tool: longint; stdcall; external 'w95_s7.dll' name 'unload_tool'; function ag_info ( info:{pointer} PChar): longint;stdcall; external 'w95_s7.dll' name 'ag_info'; //function ag_zustand(no:Byte): longint;stdcall; function ag_zustand(no:Pchar): longint;stdcall; external 'w95_s7.dll' name 'ag_zustand'; function db_buch (no:integer): longint;stdcall; external 'w95_s7.dll' name 'db_buch'; //blockno, no, amount, value function DB_read ( dbno: longint; dwno: longint; var amount: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 'db_read'; function DB_write ( dbno: longint; dwno: longint;var amount: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 'db_write'; function d_field_read ( dbno: longint; dwno: longint; var amount: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 'd_field_read'; function d_field_write ( dbno: longint; dwno: longint;var amount: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 'd_field_write'; //no, amount, value function e_field_read ( dbno: longint; dwno: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 'e_field_read'; function a_field_read ( dbno: longint; dwno: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 'a_field_read'; function a_field_write ( dbno: longint; dwno: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 'a_field_write'; function m_field_read ( dbno: longint; dwno: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 'm_field_read'; function t_field_read ( dbno: longint; dwno: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 't_field_read'; function z_field_read ( dbno: longint; dwno: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 'z_field_read'; function z_field_write ( dbno: longint; dwno: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 'z_field_write'; // data, value function mix_read ( var buffer1; var buffer): longint stdcall; external 'w95_s7.dll' name 'mix_read'; function mix_write ( var buffer1; var buffer): longint stdcall;external 'w95_s7.dll' name 'mix_write'; //no, bitno function mb_setbit (dbno: longint; dwno: longint): longint;stdcall; external 'w95_s7.dll' name 'mb_setbit'; function mb_resetbit (dbno: longint; dwno: longint): longint;stdcall; external 'w95_s7.dll' name 'mb_resetbit'; //no, bitno, value function mb_bittest ( dbno: longint; dwno: longint; var buffer): longint stdcall;external 'w95_s7.dll' name 'mb_bittest'; //'**************************************************************************************************************************** //'declarations for komfort.dll //'**************************************************************************************************************************** //'errorno, errortext function error_message ( dbno: longint; var buffer): longint stdcall;external 'komfort.dll' name 'error_message'; //'buffer, amount bytes procedure swab_buffer (var buffer; dbno: longint) stdcall;external 'komfort.dll' name 'swab_buffer'; procedure copy_buffer (var buffer1; var buffer; dbno: longint) stdcall;external 'komfort.dll' name 'copy_buffer'; function kg_to_float ( dbno: longint; dwno: real): longint stdcall;external 'komfort.dll' name 'kg_to_float'; function float_to_kg ( dwno: real; dbno: longint): longint stdcall;external 'komfort.dll' name 'float_to_kg'; function kf_integer ( dwno: integer): integer stdcall;external '