Przykładowe podstawowe procedury transmisji danych w środkowisku Embarcadero Delphi

​Procedura odczytu danych przez sieć LAN za pomocą komponentu TidTCPclient

 procedure TForm1.Read_idTCPClient_data(count: byte; buf_data : array of byte; Sender : TObject; var cc: integer);
  var c : byte;
      a: Integer;
      mbuf: TidBytes;
  begin
    if Form8.IdTCPClient1.Connected then
    begin
      SetLength(mbuf, 8);
      for a := 0 to 7 do
        mbuf[a] := buf_data[a];
      try
        Form8.IdTCPClient1.Socket.Write(mbuf, 8);
      except
      end;
      ProgressInfoForm1.Next;
      Form1.TMSFMXLED1.State := true;
      Form1.TMSFMXLED2.State := false;
      c := 0;
      repeat
        ProgressInfoForm1.Next;
        c := c + 1;
        Delay(ModbusTimeOut);
      until Form8.IdTCPClient1.Socket.CheckForDataOnSource(1000) or
        (c = ModbusProbes);
      Form1.TMSFMXLED1.State := false;
      ModBusFrame := false;
      if (c < ModbusProbes) and
        (Form8.IdTCPClient1.Socket.InputBuffer.Size > 0) then
        LanRxChar(count, Sender);
      if ModBusFrame then
        cc := 0
      else
        cc := ModbusProbes;
    end;
  end;

Procedura dekodowania ramki MODBUS

procedure TForm1.LanRxChar(ABytes: byte; Sender: TObject);
  var
    mbuf: TidBytes;
    crc: word;
    crc1: byte;
    crc2: byte;
    a: Integer;
  begin
    if not Firmware_upload then
    begin
      ModBusFrame := false;
      SetLength(mbuf, ABytes);
      a := 0;
      repeat
        Delay(100);
        a := a + 1;
        if not Form8.IdTCPClient1.Socket.InputBufferIsEmpty then
        begin
          if Form8.IdTCPClient1.Socket.InputBuffer.Size >= ABytes then
            Form8.IdTCPClient1.Socket.InputBuffer.ExtractToBytes(mbuf,
              ABytes, false);
          if Form8.IdTCPClient1.Socket.InputBuffer.Size < ABytes then
            Form8.IdTCPClient1.Socket.InputBuffer.Clear;
        end;
      until Form8.IdTCPClient1.Socket.InputBufferIsEmpty or (a = 5);
      if a < 5 then
      begin

        crc := Modbus.crc16(mbuf, ABytes);

        crc1 := Hi(crc);
        crc2 := Lo(crc);
        if (crc1 = mbuf[ABytes - 2]) and (crc2 = mbuf[ABytes - 1]) and
          ((crc1 > 0) or (crc2 > 0)) then
        begin
          for a := 1 to ABytes do
            ModBusBuf.buf[a] := mbuf[a - 1];
          ModBusBuf.count := ABytes;
          ModBusFrame := true;
        end
        else
        begin
          ModBusFrame := false;
        end;
      end;
    end;
  end;

Przykładowy odczyt Temperatury z ARM poprzez USB za pomocą programu Modbus Mat

02       Adres urządzenia - ARM: $02

03       Funkcja $03 - zapytanie X rejestrów

00 65  Pierwszy Adres odczytywanego rejestru

00 01  Ilość odczytywanych rejestrów: X = 1

94 26  Suma kontrolna CRC

02       Adres urządzenia - ARM: $02

03       Odpowiedź dla Funkcji $03

02       Ilość zwracanych bajtów z rejestrów: 2

00 FA  Wartość Temperatury = 25oC

7C 07  Suma kontrolna CRC

Procedura tworząca tabelę dekodowania danych MODBUS

procedure set_crc_table;
var
  crc_table: array [1 .. 512] of byte;

begin

  crc_table[1] := $00;
  crc_table[2] := $C1;
  crc_table[3] := $81;
  crc_table[4] := $40;
  crc_table[5] := $01;
  crc_table[6] := $C0;
  crc_table[7] := $80;
  crc_table[8] := $41;
  crc_table[9] := $01;
  crc_table[10] := $C0;
  crc_table[11] := $80;
  crc_table[12] := $41;
  crc_table[13] := $00;
  crc_table[14] := $C1;
  crc_table[15] := $81;
  crc_table[16] := $40;
  crc_table[17] := $01;
  crc_table[18] := $C0;
  crc_table[19] := $80;
  crc_table[20] := $41;
  crc_table[21] := $00;
  crc_table[22] := $C1;
  crc_table[23] := $81;
  crc_table[24] := $40;
  crc_table[25] := $00;
  crc_table[26] := $C1;
  crc_table[27] := $81;
  crc_table[28] := $40;
  crc_table[29] := $01;
  crc_table[30] := $C0;
  crc_table[31] := $80;
  crc_table[32] := $41;
  crc_table[33] := $01;
  crc_table[34] := $C0;
  crc_table[35] := $80;
  crc_table[36] := $41;
  crc_table[37] := $00;
  crc_table[38] := $C1;
  crc_table[39] := $81;
  crc_table[40] := $40;
  crc_table[41] := $00;
  crc_table[42] := $C1;
  crc_table[43] := $81;
  crc_table[44] := $40;
  crc_table[45] := $01;
  crc_table[46] := $C0;
  crc_table[47] := $80;
  crc_table[48] := $41;
  crc_table[49] := $00;
  crc_table[50] := $C1;
  crc_table[51] := $81;
  crc_table[52] := $40;
  crc_table[53] := $01;
  crc_table[54] := $C0;
  crc_table[55] := $80;
  crc_table[56] := $41;
  crc_table[57] := $01;
  crc_table[58] := $C0;
  crc_table[59] := $80;
  crc_table[60] := $41;
  crc_table[61] := $00;
  crc_table[62] := $C1;
  crc_table[63] := $81;
  crc_table[64] := $40;
  crc_table[65] := $01;
  crc_table[66] := $C0;
  crc_table[67] := $80;
  crc_table[68] := $41;
  crc_table[69] := $00;
  crc_table[70] := $C1;
  crc_table[71] := $81;
  crc_table[72] := $40;
  crc_table[73] := $00;
  crc_table[74] := $C1;
  crc_table[75] := $81;
  crc_table[76] := $40;
  crc_table[77] := $01;
  crc_table[78] := $C0;
  crc_table[79] := $80;
  crc_table[80] := $41;
  crc_table[81] := $00;
  crc_table[82] := $C1;
  crc_table[83] := $81;
  crc_table[84] := $40;
  crc_table[85] := $01;
  crc_table[86] := $C0;
  crc_table[87] := $80;
  crc_table[88] := $41;
  crc_table[89] := $01;
  crc_table[90] := $C0;
  crc_table[91] := $80;
  crc_table[92] := $41;
  crc_table[93] := $00;
  crc_table[94] := $C1;
  crc_table[95] := $81;
  crc_table[96] := $40;
  crc_table[97] := $00;
  crc_table[98] := $C1;
  crc_table[99] := $81;
  crc_table[100] := $40;
  crc_table[101] := $01;
  crc_table[102] := $C0;
  crc_table[103] := $80;
  crc_table[104] := $41;
  crc_table[105] := $01;
  crc_table[106] := $C0;
  crc_table[107] := $80;
  crc_table[108] := $41;
  crc_table[109] := $00;
  crc_table[110] := $C1;
  crc_table[111] := $81;
  crc_table[112] := $40;
  crc_table[113] := $01;
  crc_table[114] := $C0;
  crc_table[115] := $80;
  crc_table[116] := $41;
  crc_table[117] := $00;
  crc_table[118] := $C1;
  crc_table[119] := $81;
  crc_table[120] := $40;
  crc_table[121] := $00;
  crc_table[122] := $C1;
  crc_table[123] := $81;
  crc_table[124] := $40;
  crc_table[125] := $01;
  crc_table[126] := $C0;
  crc_table[127] := $80;
  crc_table[128] := $41;
  crc_table[129] := $01;
  crc_table[130] := $C0;
  crc_table[131] := $80;
  crc_table[132] := $41;
  crc_table[133] := $00;
  crc_table[134] := $C1;
  crc_table[135] := $81;
  crc_table[136] := $40;
  crc_table[137] := $00;
  crc_table[138] := $C1;
  crc_table[139] := $81;
  crc_table[140] := $40;
  crc_table[141] := $01;
  crc_table[142] := $C0;
  crc_table[143] := $80;
  crc_table[144] := $41;
  crc_table[145] := $00;
  crc_table[146] := $C1;
  crc_table[147] := $81;
  crc_table[148] := $40;
  crc_table[149] := $01;
  crc_table[150] := $C0;
  crc_table[151] := $80;
  crc_table[152] := $41;
  crc_table[153] := $01;
  crc_table[154] := $C0;
  crc_table[155] := $80;
  crc_table[156] := $41;
  crc_table[157] := $00;
  crc_table[158] := $C1;
  crc_table[159] := $81;
  crc_table[160] := $40;
  crc_table[161] := $00;
  crc_table[162] := $C1;
  crc_table[163] := $81;
  crc_table[164] := $40;
  crc_table[165] := $01;
  crc_table[166] := $C0;
  crc_table[167] := $80;
  crc_table[168] := $41;
  crc_table[169] := $01;
  crc_table[170] := $C0;
  crc_table[171] := $80;
  crc_table[172] := $41;
  crc_table[173] := $00;
  crc_table[174] := $C1;
  crc_table[175] := $81;
  crc_table[176] := $40;
  crc_table[177] := $01;
  crc_table[178] := $C0;
  crc_table[179] := $80;
  crc_table[180] := $41;
  crc_table[181] := $00;
  crc_table[182] := $C1;
  crc_table[183] := $81;
  crc_table[184] := $40;
  crc_table[185] := $00;
  crc_table[186] := $C1;
  crc_table[187] := $81;
  crc_table[188] := $40;
  crc_table[189] := $01;
  crc_table[190] := $C0;
  crc_table[191] := $80;
  crc_table[192] := $41;
  crc_table[193] := $00;
  crc_table[194] := $C1;
  crc_table[195] := $81;
  crc_table[196] := $40;
  crc_table[197] := $01;
  crc_table[198] := $C0;
  crc_table[199] := $80;
  crc_table[200] := $41;
  crc_table[201] := $01;
  crc_table[202] := $C0;
  crc_table[203] := $80;
  crc_table[204] := $41;
  crc_table[205] := $00;
  crc_table[206] := $C1;
  crc_table[207] := $81;
  crc_table[208] := $40;
  crc_table[209] := $01;
  crc_table[210] := $C0;
  crc_table[211] := $80;
  crc_table[212] := $41;
  crc_table[213] := $00;
  crc_table[214] := $C1;
  crc_table[215] := $81;
  crc_table[216] := $40;
  crc_table[217] := $00;
  crc_table[218] := $C1;
  crc_table[219] := $81;
  crc_table[220] := $40;
  crc_table[221] := $01;
  crc_table[222] := $C0;
  crc_table[223] := $80;
  crc_table[224] := $41;
  crc_table[225] := $01;
  crc_table[226] := $C0;
  crc_table[227] := $80;
  crc_table[228] := $41;
  crc_table[229] := $00;
  crc_table[230] := $C1;
  crc_table[231] := $81;
  crc_table[232] := $40;
  crc_table[233] := $00;
  crc_table[234] := $C1;
  crc_table[235] := $81;
  crc_table[236] := $40;
  crc_table[237] := $01;
  crc_table[238] := $C0;
  crc_table[239] := $80;
  crc_table[240] := $41;
  crc_table[241] := $00;
  crc_table[242] := $C1;
  crc_table[243] := $81;
  crc_table[244] := $40;
  crc_table[245] := $01;
  crc_table[246] := $C0;
  crc_table[247] := $80;
  crc_table[248] := $41;
  crc_table[249] := $01;
  crc_table[250] := $C0;
  crc_table[251] := $80;
  crc_table[252] := $41;
  crc_table[253] := $00;
  crc_table[254] := $C1;
  crc_table[255] := $81;
  crc_table[256] := $40;

  crc_table[257] := $00;
  crc_table[258] := $C0;
  crc_table[259] := $C1;
  crc_table[260] := $01;
  crc_table[261] := $C3;
  crc_table[262] := $03;
  crc_table[263] := $02;
  crc_table[264] := $C2;
  crc_table[265] := $C6;
  crc_table[266] := $06;
  crc_table[267] := $07;
  crc_table[268] := $C7;
  crc_table[269] := $05;
  crc_table[270] := $C5;
  crc_table[271] := $C4;
  crc_table[272] := $04;
  crc_table[273] := $CC;
  crc_table[274] := $0C;
  crc_table[275] := $0D;
  crc_table[276] := $CD;
  crc_table[277] := $0F;
  crc_table[278] := $CF;
  crc_table[279] := $CE;
  crc_table[280] := $0E;
  crc_table[281] := $0A;
  crc_table[282] := $CA;
  crc_table[283] := $CB;
  crc_table[284] := $0B;
  crc_table[285] := $C9;
  crc_table[286] := $09;
  crc_table[287] := $08;
  crc_table[288] := $C8;
  crc_table[289] := $D8;
  crc_table[290] := $18;
  crc_table[291] := $19;
  crc_table[292] := $D9;
  crc_table[293] := $1B;
  crc_table[294] := $DB;
  crc_table[295] := $DA;
  crc_table[296] := $1A;
  crc_table[297] := $1E;
  crc_table[298] := $DE;
  crc_table[299] := $DF;
  crc_table[300] := $1F;
  crc_table[301] := $DD;
  crc_table[302] := $1D;
  crc_table[303] := $1C;
  crc_table[304] := $DC;
  crc_table[305] := $14;
  crc_table[306] := $D4;
  crc_table[307] := $D5;
  crc_table[308] := $15;
  crc_table[309] := $D7;
  crc_table[310] := $17;
  crc_table[311] := $16;
  crc_table[312] := $D6;
  crc_table[313] := $D2;
  crc_table[314] := $12;
  crc_table[315] := $13;
  crc_table[316] := $D3;
  crc_table[317] := $11;
  crc_table[318] := $D1;
  crc_table[319] := $D0;
  crc_table[320] := $10;
  crc_table[321] := $F0;
  crc_table[322] := $30;
  crc_table[323] := $31;
  crc_table[324] := $F1;
  crc_table[325] := $33;
  crc_table[326] := $F3;
  crc_table[327] := $F2;
  crc_table[328] := $32;
  crc_table[329] := $36;
  crc_table[330] := $F6;
  crc_table[331] := $F7;
  crc_table[332] := $37;
  crc_table[333] := $F5;
  crc_table[334] := $35;
  crc_table[335] := $34;
  crc_table[336] := $F4;
  crc_table[337] := $3C;
  crc_table[338] := $FC;
  crc_table[339] := $FD;
  crc_table[340] := $3D;
  crc_table[341] := $FF;
  crc_table[342] := $3F;
  crc_table[343] := $3E;
  crc_table[344] := $FE;
  crc_table[345] := $FA;
  crc_table[346] := $3A;
  crc_table[347] := $3B;
  crc_table[348] := $FB;
  crc_table[349] := $39;
  crc_table[350] := $F9;
  crc_table[351] := $F8;
  crc_table[352] := $38;
  crc_table[353] := $28;
  crc_table[354] := $E8;
  crc_table[355] := $E9;
  crc_table[356] := $29;
  crc_table[357] := $EB;
  crc_table[358] := $2B;
  crc_table[359] := $2A;
  crc_table[360] := $EA;
  crc_table[361] := $EE;
  crc_table[362] := $2E;
  crc_table[363] := $2F;
  crc_table[364] := $EF;
  crc_table[365] := $2D;
  crc_table[366] := $ED;
  crc_table[367] := $EC;
  crc_table[368] := $2C;
  crc_table[369] := $E4;
  crc_table[370] := $24;
  crc_table[371] := $25;
  crc_table[372] := $E5;
  crc_table[373] := $27;
  crc_table[374] := $E7;
  crc_table[375] := $E6;
  crc_table[376] := $26;
  crc_table[377] := $22;
  crc_table[378] := $E2;
  crc_table[379] := $E3;
  crc_table[380] := $23;
  crc_table[381] := $E1;
  crc_table[382] := $21;
  crc_table[383] := $20;
  crc_table[384] := $E0;
  crc_table[385] := $A0;
  crc_table[386] := $60;
  crc_table[387] := $61;
  crc_table[388] := $A1;
  crc_table[389] := $63;
  crc_table[390] := $A3;
  crc_table[391] := $A2;
  crc_table[392] := $62;
  crc_table[393] := $66;
  crc_table[394] := $A6;
  crc_table[395] := $A7;
  crc_table[396] := $67;
  crc_table[397] := $A5;
  crc_table[398] := $65;
  crc_table[399] := $64;
  crc_table[400] := $A4;
  crc_table[401] := $6C;
  crc_table[402] := $AC;
  crc_table[403] := $AD;
  crc_table[404] := $6D;
  crc_table[405] := $AF;
  crc_table[406] := $6F;
  crc_table[407] := $6E;
  crc_table[408] := $AE;
  crc_table[409] := $AA;
  crc_table[410] := $6A;
  crc_table[411] := $6B;
  crc_table[412] := $AB;
  crc_table[413] := $69;
  crc_table[414] := $A9;
  crc_table[415] := $A8;
  crc_table[416] := $68;
  crc_table[417] := $78;
  crc_table[418] := $B8;
  crc_table[419] := $B9;
  crc_table[420] := $79;
  crc_table[421] := $BB;
  crc_table[422] := $7B;
  crc_table[423] := $7A;
  crc_table[424] := $BA;
  crc_table[425] := $BE;
  crc_table[426] := $7E;
  crc_table[427] := $7F;
  crc_table[428] := $BF;
  crc_table[429] := $7D;
  crc_table[430] := $BD;
  crc_table[431] := $BC;
  crc_table[432] := $7C;
  crc_table[433] := $B4;
  crc_table[434] := $74;
  crc_table[435] := $75;
  crc_table[436] := $B5;
  crc_table[437] := $77;
  crc_table[438] := $B7;
  crc_table[439] := $B6;
  crc_table[440] := $76;
  crc_table[441] := $72;
  crc_table[442] := $B2;
  crc_table[443] := $B3;
  crc_table[444] := $73;
  crc_table[445] := $B1;
  crc_table[446] := $71;
  crc_table[447] := $70;
  crc_table[448] := $B0;
  crc_table[449] := $50;
  crc_table[450] := $90;
  crc_table[451] := $91;
  crc_table[452] := $51;
  crc_table[453] := $93;
  crc_table[454] := $53;
  crc_table[455] := $52;
  crc_table[456] := $92;
  crc_table[457] := $96;
  crc_table[458] := $56;
  crc_table[459] := $57;
  crc_table[460] := $97;
  crc_table[461] := $55;
  crc_table[462] := $95;
  crc_table[463] := $94;
  crc_table[464] := $54;
  crc_table[465] := $9C;
  crc_table[466] := $5C;
  crc_table[467] := $5D;
  crc_table[468] := $9D;
  crc_table[469] := $5F;
  crc_table[470] := $9F;
  crc_table[471] := $9E;
  crc_table[472] := $5E;
  crc_table[473] := $5A;
  crc_table[474] := $9A;
  crc_table[475] := $9B;
  crc_table[476] := $5B;
  crc_table[477] := $99;
  crc_table[478] := $59;
  crc_table[479] := $58;
  crc_table[480] := $98;
  crc_table[481] := $88;
  crc_table[482] := $48;
  crc_table[483] := $49;
  crc_table[484] := $89;
  crc_table[485] := $4B;
  crc_table[486] := $8B;
  crc_table[487] := $8A;
  crc_table[488] := $4A;
  crc_table[489] := $4E;
  crc_table[490] := $8E;
  crc_table[491] := $8F;
  crc_table[492] := $4F;
  crc_table[493] := $8D;
  crc_table[494] := $4D;
  crc_table[495] := $4C;
  crc_table[496] := $8C;
  crc_table[497] := $44;
  crc_table[498] := $84;
  crc_table[499] := $85;
  crc_table[500] := $45;
  crc_table[501] := $87;
  crc_table[502] := $47;
  crc_table[503] := $46;
  crc_table[504] := $86;
  crc_table[505] := $82;
  crc_table[506] := $42;
  crc_table[507] := $43;
  crc_table[508] := $83;
  crc_table[509] := $41;
  crc_table[510] := $81;
  crc_table[511] := $80;
  crc_table[512] := $40;
end;

Funkcja obliczająca CRC dla ramki MODBUS

function crc16(buf: array of byte; count: integer): word;
var
  i: integer;
  index: integer;
  crc_low: byte;
  crc_high: byte;
begin
  crc_low := $FF;
  crc_high := $FF;
  for i := 0 to count - 3 do
  begin
    index := crc_high xor buf[i];
    crc_high := crc_low xor crc_table[index + 1];
    crc_low := crc_table[index + 257];
  end;
  result := (crc_high * 256) + crc_low;
end;

Procedura zapisu danych przez sieć LAN za pomocą komponentu TidTCPclient

procedure TForm6.Send_data_outs(buf_data : array of byte; Sender : TObject);
var
  buf: array [1 .. 30] of byte;
  mbuf: TidBytes;
  crc: word;
  crc1: byte;
  crc2: byte;
  a, c: byte;
  i: Integer;
begin
  repeat
    for i := 1 to 10 do
      ModBusBuf.buf[i] := 0;
    ModBusFrame := false;
    for a := 0 to 23 do
      buf[a+1] := buf_Data[a];

    crc := modbus.crc16(buf, 26);
    crc1 := Hi(crc);
    crc2 := Lo(crc);
    buf[25] := crc1;
    buf[26] := crc2;
    c := 0;

    if Form8.IdTCPClient1.Connected then
    begin
      SetLength(mbuf, 26);
      for a := 1 to 26 do
        mbuf[a - 1] := buf[a];
      Form8.IdTCPClient1.Socket.Write(mbuf, 26);
      c := 0;
      repeat
        c := c + 1;
        ModBusFrame := false;
        Form1.Delay(ModBusTimeOut);
      until Form8.IdTCPClient1.Socket.CheckForDataOnSource(1000) or (c = 5);
      ModBusFrame := false;
      if (Form8.IdTCPClient1.Socket.InputBuffer.Size > 0) then
        Form1.LanRxChar(8, Sender);
    end;
  until ModBusFrame and (ModBusBuf.buf[2] = 16) and (ModBusBuf.buf[6] = $0A) or (c = 5);
end;

Follow

Kontakt

Adres

ARMARX W.M.

ul. 3 Maja 55/16

34-220 Maków Podhalański

©2020 by ARMARX. Proudly created with Wix.com