отправлено / posted                  

code:

---

procedure TForm1.FormShow(Sender: TObject);
begin
  // TCP_Init вызывается при запуске проги
  Hnd_Bl:=nil;
// В этом примере для хоста 172.28.72.2 используется порт 9123.
// А вообще по умолчанию везде порт 9000
  Hnd_Bl:=TCP_Init('192.168.7.5',9000,5000,5000); // IP, port, timeout_connect, timeout_read
  if Hnd_Bl=nil then begin
    MessageDlg('Ошибка TCP_Init',mtError,[mbOK],0);
    Close;
  end;
  ReadAndShow;
  CNT:=0;
end;
//---
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Hnd_Bl<>nil then TCP_Close(Hnd_Bl);
end;
//---
procedure TForm1.ReadAndShow;
const cOK=$0080FFFF;
      cER=clGray;
var D:TDat;
begin
  // TCP_RdAllAn читает значения всех параметров во внутренний буфер
  // Если TCP_RdAllAn возвр. 0 - ОК, если <0 - error
  if TCP_RdAllAn(Hnd_Bl)=0 then begin
    StBar1.SimpleText:=FormatDateTime('dd-mm-yyyy  hh:nn:ss',Now)+' - чтение данных - ОК';
  end else StBar1.SimpleText:=FormatDateTime('dd-mm-yyyy  hh:nn:ss',Now)+' - чтение данных - ERROR !!!';

  // А дальше вытаскиваем значения параметров по их идентификаторам
  D:=TCP_GetAnPar(Hnd_Bl,'BLT_TG1_PSUM');
  if D.IsOK=1 then stP1.Color:=cOK else stP1.Color:=cER;
  stP1.Caption:=FloatToStrF(D.PVal,ffFixed,5,1)+' ';
end;

---

Сообщения / Posts 8 | Из / From: RF  |  IP / IP: IP адрес / IP address |