Библиотечный модуль NetLibrary содержит
_con_NetLibrary.inc константы
_var_NetLibrary.inc переменные
_fun_NetLibrary.inc функции
относящиеся к сетевым протоколам.
В состав библиотеки входят модули:
NetModbus - протокол MODBUS.
Использование библиотеки предполагает использование следующего шаблона программы:
program Demo; { How to use NetLibrary }
const
{------------------------------}{ Declare uses program constants: }
{$I _con_StdLibrary} { Include all Standard constants, }
{------------------------------}{ And add User defined constants: }
{$I _con_NetLibrary} { NetLibrary constants }
// User code - constants...
var
{------------------------------}{ Declare uses program variables: }
{$I _var_StdLibrary} { Include all Standard variables, }
{------------------------------}{ And add User defined variables: }
{$I _var_NetLibrary} { NetLibrary variables }
// User code - variables...
{------------------------------}{ Declare procedures & functions: }
{$I _fun_StdLibrary} { Include all Standard functions, }
{------------------------------}{ And add User defined functions: }
{$I _fun_NetLibrary} { NetLibrary functions }
// User code - functions...
{
Clear user application strings...
}
procedure ClearApplication;
begin
ClearNetLibrary;
// User code - clear...
end;
{
User application Initialization...
}
procedure InitApplication;
begin
InitNetLibrary;
// User code - init...
end;
{
User application Finalization...
}
procedure FreeApplication;
begin
FreeNetLibrary;
// User code - free...
end;
{
User application Polling...
}
procedure PollApplication;
begin
PollNetLibrary;
// User code - poll...
end;
{
Process data coming from standard input...
}
procedure StdIn_Processor(var Data:String);
var cmd,arg:String; n:Integer;
begin
ViewImp('CON: '+Data);
{
Handle "@cmd=arg" or "@cmd arg" commands:
}
cmd:='';
arg:='';
if GotCommand(Data,cmd,arg) then begin
// User code - handle stdin...
{
Handle other commands by default handler...
}
StdIn_DefaultHandler(Data,cmd,arg);
end;
Data:='';
cmd:='';
arg:='';
end;
{***************************************************}
{***************************************************}
{*** ***}
{*** MMM MMM AAA IIII NNN NN ***}
{*** MMMM MMMM AAAA II NNNN NN ***}
{*** MM MMMM MM AA AA II NN NN NN ***}
{*** MM MM MM AA AA II NN NN NN ***}
{*** MM MM AAAAAAA II NN NNNN ***}
{*** MM MM AA AA IIII NN NNN ***}
{*** ***}
{***************************************************}
{$I _std_main}{*** Please never change this code ***}
{***************************************************}
Желаю успешного использования NetLibrary!