SIEMENS AG PRODAVE S7
Toolbox for Data Link PGs/PCs to SIMATIC S7
13
3.5 Linking to Standard Tools
3.5.1 PRODAVE under Delphi (32-Bit) Example
To enable you to use the PRODAVE functions under Delphi, they must be
declared as follows:
function Load_tool ( no:Byte;
name: {pointer} PChar;
adr:{pointer} PChar): longint;
stdcall;
external ´w95_s7.dll´ name ´load_tool´;
function DB_read ( dbno: longint;
dwno: longint;
var amount: longint;
var buffer): longint
stdcall;
external ´w95_s7.dll´ name ´db_read´;
function Unload_tool: longint;
stdcall;
external ´w95_s7.dll´ name ´unload_tool´;
Example:
var
plc_adr_table : array [0..15] of byte;
name:array[0..255] of char;
res ,amount: longint;
buffer : array[0..255] of word;
plc_adr_table[0] := 2; {address}
plc_adr_table[1] := 0; {segment id}
plc_adr_table[2] := 2; {racktno}
plc_adr_table[3] := 0; {slotno}
plc_adr_table[4] := 0;
strcopy(name,'S7ONLINE');
res := Load_tool(1,addr(name),addr(plc_adr_table[0]));
res := DB_read(10,0,amount,buffer);
res := Unload_tool;