Форум программистов [Powered by Invision Power Board]

Код

if ReadHeader(Hdr) then
 begin

  try


       if hdr.DataSize = 0 then
       begin
               RecsCount := 0;


                {$IFDEF DEBUG}
                AssignFile(TMI_Hex, 'GPS_INFO.HEX');
                if FileExists('GPS_INFO.HEX') then Append(TMI_Hex) else Rewrite(TMI_Hex);

                write(TMI_Hex, '['+TimeToStr(Now)+']'+#32); { регистрируем время заголовка }
                { запись заголовка пакета в HEX-дамп }
                HdrByte := @Hdr;
                for j := 0 to SizeOf(TPacketHeader)-1 do
                begin
                  write(TMI_Hex, IntToHex(HdrByte^, 2)+#32);
                  Inc(HdrByte);
                end;

                // сколько GPS-записей принято?
                write(TMI_Hex, IntToHex(RecsCount, 2)+#32);

                // филлер для разделения блоков данных -
                for j := 0 to 15 do write(TMI_Hex, 'FF'+#32);

                Writeln(TMI_Hex);
                Writeln(TMI_Hex);


               {$ENDIF}

               { Если заголовок пустой - отвечаем, что не приняли ничего }
               ServerLogAddSync('ПУСТОЙ ПАКЕТ - отвечаем об этом');
               ServerLogAddSync(Format('Отвечаю, что принято %d записей', [RecsCount]));
               {$IFDEF DEBUG}
                 DebGPSDataReceived(ADevice, RecsCount);
               {$ELSE}
                 SayGPSDataReceived(ADevice, RecsCount);
               {$ENDIF}
                 CloseFile(TMI_Hex);

       end
       else
       begin

            
          AssignFile(TMI_Hex, 'GPS_INFO.HEX');
          if FileExists('GPS_INFO.HEX') then Append(TMI_Hex) else Rewrite(TMI_Hex);

          write(TMI_Hex, '['+TimeToStr(Now)+']'+#32); { регистрируем время заголовка }

          HdrByte := @Hdr;
          { Далее в отладочном дампе содержимое заголовка - 16 байт + пробел после каждого байта}
          for j := 0 to SizeOf(TPacketHeader)-1 do
          begin
            write(TMI_Hex, IntToHex(HdrByte^, 2)+#32);
            Inc(HdrByte);
          end;

          for j := 0 to 15 do write(tmi_hex, 'FF'+#32);

          writeln(TMI_Hex);
          writeln(TMI_Hex);

         RecsCount := 0;

         FillChar(RecvBuf, SizeOf(recvbuf), 0);

         { Тут принимаем собственно данные }
         mfile := TMemoryStream.Create;

         tr := 0;
         while (tr < hdr.DataSize) do
         begin
          br := FCliSock.Read(RecvBuf, 90);
          mfile.Write(recvbuf, br);
          tr := tr + br;
         end;
         { Тут принимаем собственно данные }

          { Анализ, что же получили, чтоб понять, что отвечать трекеру }
          mfile.Seek(0, soFromBeginning);
          mFile.Read(head, 3);

          if head = '*>A' then
           begin
            mFile.Read(RecsCount, 1);
            DebGPSDataReceived(ADevice, RecsCount); { ответ трекеру }
            ServerLogAddSync(Format('Считано записей ЧернЯщика: %d', [RecsCount]));
           end
           else if head = '*>T' then
            begin
              mFile.Seek(4, soFromBeginning); { 5-8-й байты = 0. Это при типе события FF00 }
              mFile.Read(CurIndex, 4);
              ServerLogAddSync(Format('Посылка индекса записи ТекСост. %d', [CurIndex]));
              SendCurrentStatusAnswer(Device, CurIndex);
            end;

          mfile.Seek(0, soFromBeginning);
          SetLength(TMI_Bytes, hdr.DataSize);
          mFile.Read(TMI_Bytes[0], hdr.DataSize);  { считываем весь пакет в массив }

          write(TMI_Hex, '['+TimeToStr(Now)+']'+#32); { записываем время приема пакета }

          for j := 0 to High(TMI_Bytes) do write(TMI_Hex, inttohex(tmi_bytes[j], 2)+#32);

          for j := 0 to 15 do write(TMI_Hex, 'FF'+#32);

          Writeln(TMI_Hex);
          Writeln(TMI_Hex);

          Finalize(TMI_Bytes);

          CloseFile(TMI_Hex);

          mfile.Free; { уничтожаем временный буфер }


       end;

  finally
   if TMI_Info <> nil then Finalize(TMI_Info);
  end;

end
else
 begin
  ServerLogAddSync('Заголовок пакета не удалось принять');
 end;