Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2012.05.06;
Скачать: [xml.tar.bz2];

Вниз

CRC   Найти похожие ветки 

 
defen ©   (2012-01-03 11:58) [0]

Всем доброго времени суток. Подскажите пожалуйста, как быстро реализовать подсчет CRC для передаваемого пакета? Длинна пакета 136 байт  Заголовок 2 байта, Счетчик 2байта, Длинна пакета 2байта, Данные 128байт. В конце CRC тоже 2 байта. по гуглу нашел только проверку CRC для готового файла, но применить к своей проге не смог, увы... :(


 
Андреевич   (2012-01-03 12:14) [1]

снимает crc32 с потока
function MemoryStream_CRC32(mou:Tstream): Cardinal;
const BufLen = 32768;
const
 CRC32_Table: array[0..255] of LongWord =
   ($00000000,$77073096,$EE0E612C,$990951BA,$076DC419,$706AF48F,$E963A535,$9E6495A3 ,
    $0EDB8832,$79DCB8A4,$E0D5E91E,$97D2D988,$09B64C2B,$7EB17CBD,$E7B82D07,$90BF1D91,
    $1DB71064,$6AB020F2,$F3B97148,$84BE41DE,$1ADAD47D,$6DDDE4EB,$F4D4B551,$83D385C7,
    $136C9856,$646BA8C0,$FD62F97A,$8A65C9EC,$14015C4F,$63066CD9,$FA0F3D63,$8D080DF5,
    $3B6E20C8,$4C69105E,$D56041E4,$A2677172,$3C03E4D1,$4B04D447,$D20D85FD,$A50AB56B,
    $35B5A8FA,$42B2986C,$DBBBC9D6,$ACBCF940,$32D86CE3,$45DF5C75,$DCD60DCF,$ABD13D59,
    $26D930AC,$51DE003A,$C8D75180,$BFD06116,$21B4F4B5,$56B3C423,$CFBA9599,$B8BDA50F,
    $2802B89E,$5F058808,$C60CD9B2,$B10BE924,$2F6F7C87,$58684C11,$C1611DAB,$B6662D3D,
    $76DC4190,$01DB7106,$98D220BC,$EFD5102A,$71B18589,$06B6B51F,$9FBFE4A5,$E8B8D433,
    $7807C9A2,$0F00F934,$9609A88E,$E10E9818,$7F6A0DBB,$086D3D2D,$91646C97,$E6635C01,
    $6B6B51F4,$1C6C6162,$856530D8,$F262004E,$6C0695ED,$1B01A57B,$8208F4C1,$F50FC457,
    $65B0D9C6,$12B7E950,$8BBEB8EA,$FCB9887C,$62DD1DDF,$15DA2D49,$8CD37CF3,$FBD44C65,
    $4DB26158,$3AB551CE,$A3BC0074,$D4BB30E2,$4ADFA541,$3DD895D7,$A4D1C46D,$D3D6F4FB,
    $4369E96A,$346ED9FC,$AD678846,$DA60B8D0,$44042D73,$33031DE5,$AA0A4C5F,$DD0D7CC9,
    $5005713C,$270241AA,$BE0B1010,$C90C2086,$5768B525,$206F85B3,$B966D409,$CE61E49F,
    $5EDEF90E,$29D9C998,$B0D09822,$C7D7A8B4,$59B33D17,$2EB40D81,$B7BD5C3B,$C0BA6CAD,
    $EDB88320,$9ABFB3B6,$03B6E20C,$74B1D29A,$EAD54739,$9DD277AF,$04DB2615,$73DC1683,
    $E3630B12,$94643B84,$0D6D6A3E,$7A6A5AA8,$E40ECF0B,$9309FF9D,$0A00AE27,$7D079EB1,
    $F00F9344,$8708A3D2,$1E01F268,$6906C2FE,$F762575D,$806567CB,$196C3671,$6E6B06E7,
    $FED41B76,$89D32BE0,$10DA7A5A,$67DD4ACC,$F9B9DF6F,$8EBEEFF9,$17B7BE43,$60B08ED5,
    $D6D6A3E8,$A1D1937E,$38D8C2C4,$4FDFF252,$D1BB67F1,$A6BC5767,$3FB506DD,$48B2364B,
    $D80D2BDA,$AF0A1B4C,$36034AF6,$41047A60,$DF60EFC3,$A867DF55,$316E8EEF,$4669BE79,
    $CB61B38C,$BC66831A,$256FD2A0,$5268E236,$CC0C7795,$BB0B4703,$220216B9,$5505262F,
    $C5BA3BBE,$B2BD0B28,$2BB45A92,$5CB36A04,$C2D7FFA7,$B5D0CF31,$2CD99E8B,$5BDEAE1D,
    $9B64C2B0,$EC63F226,$756AA39C,$026D930A,$9C0906A9,$EB0E363F,$72076785,$05005713,
    $95BF4A82,$E2B87A14,$7BB12BAE,$0CB61B38,$92D28E9B,$E5D5BE0D,$7CDCEFB7,$0BDBDF21,
    $86D3D2D4,$F1D4E242,$68DDB3F8,$1FDA836E,$81BE16CD,$F6B9265B,$6FB077E1,$18B74777,
    $88085AE6,$FF0F6A70,$66063BCA,$11010B5C,$8F659EFF,$F862AE69,$616BFFD3,$166CCF45,
    $A00AE278,$D70DD2EE,$4E048354,$3903B3C2,$A7672661,$D06016F7,$4969474D,$3E6E77DB,
    $AED16A4A,$D9D65ADC,$40DF0B66,$37D83BF0,$A9BCAE53,$DEBB9EC5,$47B2CF7F,$30B5FFE9,
    $BDBDF21C,$CABAC28A,$53B39330,$24B4A3A6,$BAD03605,$CDD70693,$54DE5729,$23D967BF,
    $B3667A2E,$C4614AB8,$5D681B02,$2A6F2B94,$B40BBE37,$C30C8EA1,$5A05DF1B,$2D02EF8D) ;

var Res:Integer; BufPtr:Pointer; crcnew:longword; Buf: array[0..BufLen-1] of Byte;

   function G_NextCRC32(var CRC32: LongWord; P: Pointer; L: Cardinal): LongWord;
    asm
            TEST    ECX,ECX
            JE      @@qt
            PUSH    EBX
            PUSH    EAX
            MOV     EAX,[EAX]
            NOT     EAX
            PUSH    ESI
    @@lp:   MOVZX   ESI,BYTE PTR [EDX]
            MOVZX   EBX,AL
            SHR     EAX,8
            XOR     EBX,ESI
            XOR     EAX,DWORD PTR [EBX*4+CRC32_Table]
            INC     EDX
            DEC     ECX
            JNE     @@lp
            POP     ESI
            POP     EDX
            NOT     EAX
            MOV     [EDX],EAX
            POP     EBX
            RET
    @@qt:   MOV     EAX,[EAX]
    end;

begin
 BufPtr := @Buf;
 crcnew:=0;
 mou.Position:=0;
 Res:=mou.Read(Buf,sizeof(Buf));
 while (Res<>0) do begin
     G_NextCRC32(crcnew,BufPtr,res);
     Res:=mou.Read(Buf,sizeof(Buf));
 end;
 Result:=crcnew;
end;


 
defen ©   (2012-01-03 12:25) [2]

дело в том, что я не стал использовать потоки... Файл считывается побайтно и передается в массив типа byte, затем из этого массива считываются данные и отправляются в массив для передаваемого пакета. когда пакет готов к отправке он записывается в переменную типа AnsiString и пуляется в канал. Поэтому очень хотелось бы работать уже с готовыми данными, а не переделывать все заново.  извиняюсь, что не уточнил сразу...


 
sniknik ©   (2012-01-03 12:48) [3]

за целостность пакета вообще то отвечает протокол... т.е. если взять UDP то он без гарантированной доставки, но раз пришел то с верными/проверенными данными.
т.е. ты изобретаешь велосипед там где он не нужен, поверх существующего, а вот собственную сборку целого из пакетов не проверяешь... хотя при "выпадении", или изменении очередности пакетов (и то и то вполне вероятно), получишь "криво" собранное целое.

> а не переделывать все заново.
лучше переделай. ошибки в основе это очень серьезно, и гораздо больше времени тратится потом на выискивание странных глюков в уже готовой программе, чем более готовой, тем больше времени потратишь.


 
defen ©   (2012-01-03 13:12) [4]

канал узкий, я не могу использовать стандартные протоколы передачи данных. Единственное, что подошло - это Hiper Terminal с проверкой ошибочных пакетов или что-то в этом духе. Но он работает весьма глючно...


 
defen ©   (2012-01-03 13:13) [5]

просто с потоками не работал, а времени в обрез...


 
defen ©   (2012-01-03 13:22) [6]


>  а вот собственную сборку целого из пакетов не проверяешь.
> ..

я так понял имеется ввиду уже конечный продукт.
Естественно, что  буду его проверять и очередность пакетов тоже, но сейчас важно именно принятие правильного пакета...


 
sniknik ©   (2012-01-03 13:36) [7]

> но сейчас важно именно принятие правильного пакета...
функция проверки
function isProperPackage(const ValuePackage: string): boolean;
begin
 result:= true;
end;

пользуйся.


 
defen ©   (2012-01-03 13:50) [8]

а что это за функция?


 
Sha ©   (2012-01-03 15:03) [9]

crc32   http://guildalfa.ru/alsha/node/2
crc64   http://guildalfa.ru/alsha/node/4

скорость на разных компах см. в комментариях


 
defen ©   (2012-01-03 15:11) [10]

спасибо, буду пробовать....


 
Андреевич   (2012-01-03 18:00) [11]


> за целостность пакета вообще то отвечает протокол... т.е.
>  если взять UDP то он без гарантированной доставки, но раз
> пришел то с верными/проверенными данными.
> т.е. ты изобретаешь велосипед там где он не нужен, поверх
> существующего,

не редко делают в играх, наворачивая сверху свою проверку на доставку и очередность, быстрее чем tcp


 
sniknik ©   (2012-01-03 20:13) [12]

> наворачивая сверху свою проверку на доставку и очередность, быстрее чем tcp
???
"навернутое" сверху не может быть быстрее стандартного, т.к. его включает. может быть "вместо", но тут уровень программиста должен быть другой, кто-то досконально знающий стандартный и поэтому знающий за счет чего можно ускорить (скорость за счет надежности, если она где то не нужна. и т.д.).


 
antonn ©   (2012-01-03 23:03) [13]

игроделы таким занимаются


> "навернутое" сверху не может быть быстрее стандартного,

навернутое над upd бывает оптимальнее tcp, я про это


 
DVM ©   (2012-01-03 23:31) [14]


> antonn ©   (03.01.12 23:03) [13]


> навернутое над upd бывает оптимальнее tcp, я про это

Только там, где можно смириться с потерей части данных (игры, видео, звук) и где порция данных целиком помещается в пакет. Иначе будет тот же TCP только в профиль.


 
DVM ©   (2012-01-03 23:47) [15]


> defen ©

в IP пакете есть уже CRC:


{  Internet Datagram Header (RFC 791)

   0                   1                   2                   3
   0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  |Version|  IHL  |Type of Service|          Total Length         |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  |         Identification        |Flags|      Fragment Offset    |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  |  Time to Live |    Protocol   |         Header Checksum       |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  |                       Source Address                          |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  |                    Destination Address                        |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  |                    Options                    |    Padding    |
  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+

}


 
DVM ©   (2012-01-03 23:49) [16]

и в UDP есть, еще одна.

про TCP я уж молчу.


 
sniknik ©   (2012-01-03 23:53) [17]

> навернутое над upd бывает оптимальнее tcp, я про это
а зачем ты "про это"? "клиент" про пакеты, ответ про пакеты, сказано почему для пакетов это лишнее. зачем приплетать отвлекающее "а вот если бы, то ...".
решил запутать "клиента"?


 
Sha ©   (2012-01-04 00:34) [18]

Checksum <> CRC
16 <> 32


 
Sha ©   (2012-01-04 00:34) [19]

Удалено модератором


 
DVM ©   (2012-01-04 00:39) [20]


> Sha ©  

Да, все верно CRC это конечно же не Checksum, но корректность передаваемых данных с некоторой долей вероятности позволяет проверить и то и другое.


 
sniknik ©   (2012-01-04 00:56) [21]

легковушка <> белаз
ее размер <> его размеру
вывод - чтобы ездить нужно помешать легковушку в кузов белаза... да, так, и только так! пойти что ли поучить водителей, как надо?


 
Sha ©   (2012-01-04 01:14) [22]

> sniknik ©   (04.01.12 00:56) [21]
> вывод - чтобы ездить нужно помешать легковушку в кузов белаза...
> да, так, и только так! пойти что ли поучить водителей, как надо?

Мешать не буду.

А что не так в [18] ?


 
sniknik ©   (2012-01-04 01:23) [23]

да все так, все правильно, но какой в этом смысл? для заявленной задачи. или мы опять до коня в вакууме скатились?


 
Sha ©   (2012-01-04 01:29) [24]

если я скажу, что у меня была похожая задача - такой ответ устроит?


 
Германн ©   (2012-01-04 02:01) [25]

Добавлю ещё одну ложку дёгтя в вашу бочку. Даже CRCnn существует несколько вариантов. Имхо по крайней мере где nn=8 или nn=16.

Но задача ТС действительно не вполне ясна.
Кто, как, какие пакеты передаёт - только аллаху известно.
ТС не привёл ни единой строчки своего кода. И где и как он считает некую контрольную сумму для отправки данных и где и как он при приёме данных её проверяет?


 
Германн ©   (2012-01-04 02:17) [26]

Если вдуматься, я тоже своим железякам передаю "пакеты". И контрольную сумму ака CRC8 в конце добавляю. (Чтоб железяка не исполнила чёрт знает что в случае ошибки передачи/приёма.)
Я правда привык называть это передачей команд.


 
defen ©   (2012-01-04 03:31) [27]

вот код отправки пакета.  Проверку при приеме еще не написал, так как не знаю как посчитать CRC


Procedure Send_File;
Var
 CheckPAck:Integer;
 Send_File:File;
 Fpointer, BytesRead, File_Size:Integer;
 Length_Name_And_FileSize, Temp_Length_Name_And_FileSize, I,i2: Integer;
 Counter:Word;
 Name_And_File_Size, Data_Paket_For_Send, File_Name :AnsiString;
Begin
CheckPAck:=0;
 General.GenForm.ComPort.BaudRate := TBaudRate(General.GenForm.CbPort.ItemIndex);
 If not  General.GenForm.ComPort.Open Then Exit;  // Открываем порт
  General.GenForm.BtnBreak.Enabled := True;

    //////////////// Определяем размер и имя файла ///////////////////////
    File_Name:=General.GenForm.OD.FileName;
    AssignFile(Send_File, File_Name);
    Reset(Send_File, 1);
    File_Size:=FileSize(Send_File);
     General.GenForm.Progress.Position :=0;
     General.GenForm.Progress.Max:=File_Size;

   //////_Отправляем_имя_файла_и_размер_/////
   Begin
   // Заголовок пакета 2 байта (255 означает, что это данные)
      File_Paket [1]:=255;
      File_Paket [2]:=255;
      Counter:=0;
   // Счетчик 2 байта ("00" означает начало передачи имени и размера файла)
      PWord(@File_paket[3])^ :=counter;
   // Полезная длинна пакета (старший 2 байт)
   // Считываем количество символов в имени файла и размер
      Length_Name_And_FileSize:=Length(General.GenForm.OD.FileName+"_"+IntTostr(File_Size)); // Считываем количество символов
      File_paket[5]:=Length_Name_And_FileSize;
      Name_And_File_Size:= General.GenForm.OD.FileName+"_"+IntTostr(File_Size);
      Temp_Length_Name_And_FileSize:=7+Length_Name_And_fileSize;
      For i:=7 To Temp_Length_Name_And_fileSize Do
      File_Paket[i]:=ord(Name_And_File_Size[i-6]);
      For i:=0 to 136 do
      Data_Paket_For_Send:=Data_Paket_For_Send+chr(File_Paket[i+1]);
      General.GenForm.ComPort.WriteStr(Data_Paket_For_Send);
      End;    ///////////////////////////////////////////////
    //////////////_Отправляем_Файл_///////////////////////////////////////
                   While Not Eof(Send_File) Do
                   Begin
                   counter:=counter+1;
                   Fpointer:=FilePos(Send_File);
                   BlockRead(Send_File, Block_File, 128, BytesRead);
                  // Counter > 0 начинаем передачу файла
      // Заголовок пакета 2 байта (255 означает, что отправляюся данные)
      File_Paket [1]:=255;
      File_Paket [2]:=255;

      // Счетчик 2 байта
      PWord(@File_paket[3])^ :=counter;
      // Полезная длинна пакета (старший 2 байт)
      // Переменная BytesRead хранит в себе данные о реально считанных байтах
      // файла. Берем её как значение для 6 байта пакета
      File_paket[5]:=BytesRead;

      ////////////////////////////////////////////////////////////////////////
      i2:=0;
      For i:=7 To BytesRead+6 Do
      Begin
      i2:=i2+1;
      File_Paket[i]:=Block_File[i2];
      end;
      Data_Paket_For_Send:="";
      For i:=1 to 136 do
      Data_Paket_For_Send:=Data_Paket_For_Send+chr(File_Paket[i]);
      General.GenForm.ComPort.WriteStr(Data_Paket_For_Send);

      //BlockWrite(DpoQOutFile, mplexkadri, 267);
      Application.ProcessMessages;
      CheckPAck:=CheckPAck+1;
      General.GenForm.Progress.Position:=General.GenForm.Progress.Position+128;
      General.GenForm.Label7.Caption:=inttostr(CheckPAck);
      seek (Send_File, Fpointer+128);
      End;
      CloseFile (Send_File);

   end;


 
DVM ©   (2012-01-04 11:03) [28]


> Германн ©   (04.01.12 02:01) [25]
>
> Добавлю ещё одну ложку дёгтя в вашу бочку. Даже CRCnn существует
> несколько вариантов. Имхо по крайней мере где nn=8 или nn=16.
>

Да. Их не менее десятка вариантов только распространенных, а вообще может быть сколько угодно много. Как то от нечего делать писал модуль, где реализовал большинство известных методов вычисления.
CRC8-SMBUS, CRC8-DALLAS-MAXIM, CRC-16(Standard), CRC16-IBM, CRC-16-BISYNCH, CRC-16-CCITT,  CRC16-XMODEM, CRC-32(Standard), CRC-32C, и т.д. Отличаются полиномами, инвертацией входных и-или выходных данных, и т.д.


 
DVM ©   (2012-01-04 11:06) [29]


> defen ©   (04.01.12 03:31) [27]
>
> вот код отправки пакета.  Проверку при приеме еще не написал,
>  так как не знаю как посчитать CRC
>

Тебе конкретно какой алгоритм нужен, дай название или хотя бы где он используется скажи, или полином назови. Будет тебе алгоритм. Или все равно?


 
sniknik ©   (2012-01-04 11:53) [30]

> ComPort
COM порт значит..., модем наверное? старый. ну так у портов насколько помню каждый переданный байт проверяется, там типа бит четности, и вообще система с коррекцией ошибок передачи... в модеме тоже самое, протокол либо с коррекцией/или просто с прерыванием по ошибке.

фигней короче занимаешься.

> Или все равно?
судя по всему да, он просто добавляет "солидности" программе, на деле это просто такой странный "паскалевский delay".


 
antonn ©   (2012-01-04 12:51) [31]


> Sha ©   (04.01.12 01:29) [24]
>
> если я скажу, что у меня была похожая задача - такой ответ
> устроит?

они сейчас попросят расписать в чем была суть задачи, а потом профессионально скажут что это небыло нужно или что это все рюшечки и архитектуру нужно менять.


 
DVM ©   (2012-01-04 13:28) [32]


> antonn ©   (04.01.12 12:51) [31]


> они сейчас попросят расписать в чем была суть задачи

Они это кто?

Ты хочешь дать ответ на вопрос автора? Тебе не кажется, что вместо нытья какие плохие отвечающие на делфимастере пора бы уже начать самому отвечать так как считаешь это должно быть в идеале. А пока одно нытье какое то.


 
Андреевич   (2012-01-04 15:34) [33]


> пора бы уже начать самому отвечать так как считаешь это
> должно быть в идеале

как только мне опишут в идеале суть задачи.
а разговор не про автора, а за [12][13]

ах да, за [14]

> > навернутое над upd бывает оптимальнее tcp, я про это
>
> Только там, где можно смириться с потерей части данных (игры,
>  видео, звук) и где порция данных целиком помещается в пакет.
>  Иначе будет тот же TCP только в профиль.

оно бывает быстрее, даже со своими очередями и проверками на гарантию доставки, на основе udp


 
Андреевич   (2012-01-04 15:37) [34]

ну и еще вырву из контекста:

> Тебе не кажется, что вместо нытья какие плохие отвечающие
> на делфимастере пора бы уже начать самому отвечать


я в [1] дал пример crc32, его не сложно переделать под чтение из файла, т.к. переменные в том примере позволяют сделать это без особых изменений, нужно лишь другую функцию подсчета crc (которая, вроде бы, автором где-то виделась). Это был ответ или оффтоп?


 
_   (2012-01-04 16:12) [35]

function  Crc16(Buff:PByte;Len:Integer):Word;
const
cCrcTab:array [0..255] of Word=     // ($A001)
($0000,$C0C1,$C181,$0140,$C301,$03C0,$0280,$C241,$C601,$06C0,$0780,$C741,$0500,$ C5C1,$C481,$0440
,$CC01,$0CC0,$0D80,$CD41,$0F00,$CFC1,$CE81,$0E40,$0A00,$CAC1,$CB81,$0B40,$C901,$ 09C0,$0880,$C841
,$D801,$18C0,$1980,$D941,$1B00,$DBC1,$DA81,$1A40,$1E00,$DEC1,$DF81,$1F40,$DD01,$ 1DC0,$1C80,$DC41
,$1400,$D4C1,$D581,$1540,$D701,$17C0,$1680,$D641,$D201,$12C0,$1380,$D341,$1100,$ D1C1,$D081,$1040
,$F001,$30C0,$3180,$F141,$3300,$F3C1,$F281,$3240,$3600,$F6C1,$F781,$3740,$F501,$ 35C0,$3480,$F441
,$3C00,$FCC1,$FD81,$3D40,$FF01,$3FC0,$3E80,$FE41,$FA01,$3AC0,$3B80,$FB41,$3900,$ F9C1,$F881,$3840
,$2800,$E8C1,$E981,$2940,$EB01,$2BC0,$2A80,$EA41,$EE01,$2EC0,$2F80,$EF41,$2D00,$ EDC1,$EC81,$2C40
,$E401,$24C0,$2580,$E541,$2700,$E7C1,$E681,$2640,$2200,$E2C1,$E381,$2340,$E101,$ 21C0,$2080,$E041
,$A001,$60C0,$6180,$A141,$6300,$A3C1,$A281,$6240,$6600,$A6C1,$A781,$6740,$A501,$ 65C0,$6480,$A441
,$6C00,$ACC1,$AD81,$6D40,$AF01,$6FC0,$6E80,$AE41,$AA01,$6AC0,$6B80,$AB41,$6900,$ A9C1,$A881,$6840
,$7800,$B8C1,$B981,$7940,$BB01,$7BC0,$7A80,$BA41,$BE01,$7EC0,$7F80,$BF41,$7D00,$ BDC1,$BC81,$7C40
,$B401,$74C0,$7580,$B541,$7700,$B7C1,$B681,$7640,$7200,$B2C1,$B381,$7340,$B101,$ 71C0,$7080,$B041
,$5000,$90C1,$9181,$5140,$9301,$53C0,$5280,$9241,$9601,$56C0,$5780,$9741,$5500,$ 95C1,$9481,$5440
,$9C01,$5CC0,$5D80,$9D41,$5F00,$9FC1,$9E81,$5E40,$5A00,$9AC1,$9B81,$5B40,$9901,$ 59C0,$5880,$9841
,$8801,$48C0,$4980,$8941,$4B00,$8BC1,$8A81,$4A40,$4E00,$8EC1,$8F81,$4F40,$8D01,$ 4DC0,$4C80,$8C41
,$4400,$84C1,$8581,$4540,$8701,$47C0,$4680,$8641,$8201,$42C0,$4380,$8341,$4100,$ 81C1,$8081,$4040);
var
Crc :Word;
i   :Integer;
begin
Crc:=$FFFF;
for i := Len-1 downto 0 do begin
 Crc:=cCrcTab[Crc and $FF xor Buff^] xor (Crc shr 8);
 Inc(Buff);
end;
Result:=Crc;
end;


 
DVM ©   (2012-01-04 16:15) [36]


> Андреевич   (04.01.12 15:34) [33]


> оно бывает быстрее, даже со своими очередями и проверками
> на гарантию доставки, на основе udp

Про ограничения подобного я уже написал. Конечно оно будет быстрее пока уступает функционально TCP. Как только оно начнет выполнять все функции TCP оно в лучшем случае сравняется с ним по быстродействию.

Вся потеря скорости в TCP по сравнению с UDP имхо возникает в основном при реконструкции оригинального потока на основе номеров последовательности пакетов. При приеме очередного пакета так или иначе происходит просмотр внутренних списков, аккумулирующих пакеты, как только появляется блок, в котором нет "дыр" он отдается принимающей стороне. Там сложно придумать что либо более оптимальное, чем уже есть при том же функционале.


 
DVM ©   (2012-01-04 16:25) [37]


> Андреевич   (04.01.12 15:37) [34]


> ну и еще вырву из контекста:

фраза была адресована не тебе.


> Это был ответ или оффтоп?

у меня к [1] вопросов нет. Хотя нет, есть один, что за метод вычисления CRC там? Какой полином? Желательно использовать методы рассчета, которые можно идентифицировать, иначе потом очень сложно будет с совместимостью и поддержкой.


 
Андреевич   (2012-01-04 16:37) [38]


> фраза была адресована не тебе.

в кому?


 
DVM ©   (2012-01-04 17:32) [39]


>  Андреевич   (04.01.12 16:37) [38]
>
>
> > фраза была адресована не тебе.
>
> в кому?

Там написано было кому - antonn ©   (04.01.12 12:51) [31].


 
Андреевич   (2012-01-04 21:06) [40]

значит мне



Страницы: 1 2 вся ветка

Форум: "Начинающим";
Текущий архив: 2012.05.06;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.58 MB
Время: 0.003 c
15-1325337132
Кто б сомневался
2011-12-31 17:12
2012.05.06
Что означает жест


2-1325577531
defen
2012-01-03 11:58
2012.05.06
CRC


2-1325748771
de_guta
2012-01-05 11:32
2012.05.06
3 позиции checkbox


2-1325978911
Gu
2012-01-08 03:28
2012.05.06
Exception dll


15-1325241253
Jeer
2011-12-30 14:34
2012.05.06
С наступающим Новым Годом, друзья !





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский