Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться в преобразовании [D7, XP]

Страницы: 1 2 3 4 5 6 7 8 9 10 11 >
Zheksonz © (2009-07-03 09:48:00)
Доброе утро. Помогите, застрял я(((
для записи в COM порт используется функция ComPort.WriteStr(String_); 01 06 00 04 5000 - это первые шесть байт, 5000 имеет 2х байтовое значение, завершающими двумя байтами станут байты контрольной суммы.
формат этой записи, правильно воспринимаемый COM портом, следующий: String_ := #01#06#00#04#19#136 + crc16(String_);// ф-ция crc16 возвращает ещё два байта, в которых контрольная сумма всего этого набора данных, которые представлены в таком же виде... Как мне преобразовывать String_овывые или Integer_овские значения в этот формат???

brother (2009-07-06 10:59:00) [1]
весело тут) только я так и не понял, почему автору с Write не работается?

Германн (2009-07-06 01:03:00) [2]

> Юрий Зотов © (05.07.09 11:00) [182]
>
> Народ, это либо развод, либо патология.

Это не развод. Ручаюсь.
Только работники финсчётного отдела Геркулеса способны были регулярно шутить одним и тем же способом.

Dennis I. Komarov_ (2009-07-05 20:10:00) [3]

> Сергей М. © (05.07.09 13:40) [197]

Не, так у нас "апендицит не удаляют" ;)

Zheksonz (2009-07-05 17:12:00) [4]
спасибо

Сергей М. (2009-07-05 13:40:00) [5]

> как мне с функцией CRC16 быть?

Переделать ее так чтобы она получала параметрами адрес и размер нетипизированного буфера и возвращала результат типа Word.
Т.е. чтобы там духу строкового не было !

Дел-то на минуту)

Вот тебе "заготовка":
type TCRC16 = Word; .. function GetCRC16(Buffer: Pointer; Size: Integer): TCRC16; begin .. end; .. var CmdPrefix: array[0..3] of byte = (01, 06, 00, 04); CmdData: Word = 5000; CmdCRC16: Word; ms: TMemoryStream; .. ms.WriteBuffer(CmdPrefix, SizeOf(CmdPrefix)); CmdData := Swap(CmdData); ms.WriteBuffer(CmdData, SizeOf(CmdData)); CmdCRC16 := Swap(GetCRC16(ms.Memory, ms.Size)); ms.WriteBuffer(CmdCRC16, SizeOf(CmdCRC16)); ComPort.Write(ms.Memory^, ms.Size);

Чеши репу !)

sniknik (2009-07-05 12:48:00) [6]
> бабка в автобусе с длинными волосами:
> бабка в автобусе парнюс длинными волосами:

sniknik (2009-07-05 12:47:00) [7]
> и в изобилии давали мне неправильные советы
тебе давали правильные советы, прямо начиная с [1], даже когда неясно, что нужно, кое кто "бил" в точку.
правда зря, т.к. ты глядя на правильное решение/или близкое к нему не понимал его. т.к.
> уж я то тупить умею...
ну, нашла чем гордиться.

-----------------
бабка в автобусе с длинными волосами:
- девушка передай за проезд.
парень гордо
- я не девушка!
..
- нашла чем гордиться.

p.s. а вообще не думаю, что будет еще интересное... все уже поняли с кем имеют дело. никаких бессмысленных попыток объяснить больше делать не будут, и "задача" исчерпала себя. т.что...

Anatoly Podgoretsky (2009-07-05 12:41:00) [8]
> sniknik (05.07.2009 12:35:13) [193]

Силу воли надо воспитывать.

sniknik (2009-07-05 12:35:00) [9]
> А потому и не закрыто, как берспективное.
а уж как хотелось!... прямо руки по локоть чесались. ;)

Zheksonz (2009-07-05 11:47:00) [10]
ну а за мной дело не постоит... уж я то тупить умею...

Zheksonz (2009-07-05 11:32:00) [11]
слушайте, так может мне сделать шоу!!! под названием "кто первый определит что это паталогия"???

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

Anatoly Podgoretsky (2009-07-05 11:28:00) [12]
> Zheksonz (05.07.2009 11:12:07) [187]

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

Юрий Зотов (2009-07-05 11:25:00) [13]
> Zheksonz (05.07.09 11:12) [187]
> значит ничего лучше, в этот момент, у них не было...
Действительно. По ящику всякую ерунду показывают.

> Sha © (05.07.09 11:21) [188]
> тем не менее досмотрю до конца.
Я тоже. Веселое шоу.

Sha (2009-07-05 11:21:00) [14]
> Zheksonz (05.07.09 11:00) [181]
> тогда почему столько времени мне пришлось объяснять, что '#19#136' меня не устраивает???

Ты не так ставишь вопрос. Все давно поняли, что требуется.
И здесь я за другим. Мне интересно,
почему ты прямо не отвечаешь на поставленные вопросы?
почему тебе никак не удается сформулировать, что тебе надо?
Заинтриговал.

> Юрий Зотов © (05.07.09 11:00) [182]
> Народ, это либо развод, либо патология.

Пожалуй соглашусь, но тем не менее досмотрю до конца. )

Zheksonz (2009-07-05 11:12:00) [15]
Anatoly Podgoretsky © (05.07.09 11:07) [185]

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

Zheksonz (2009-07-05 11:10:00) [16]
признаюсь и себе и Вам запудрило мозги то, что я как, баранище отпирался от #$13'€', но как я уже говорил, этот вариант у меня не прошёл, видать из-за невнимательности.

Anatoly Podgoretsky (2009-07-05 11:07:00) [17]
> Юрий Зотов (05.07.2009 11:00:02) [182]

А я предупреждал.

Zheksonz (2009-07-05 11:06:00) [18]
Юрий Зотов © (05.07.09 11:00) [182]
скорее паталогия, т.к. не верю я что можно так неумышленно разводить)))

Ну вот и Вы и Sha давали мне ф-ции, которые возвращали '#19#136' - скорее всего это было моей виной, но я же с самого начала признался, что к Вам я пришёл с вопросом, что это за формат #19#136 и как из 5000 получить #19#136, а не '#19#136'???

Zheksonz (2009-07-05 11:01:00) [19]
// обойтись без chr??? и возвращать word???

Zheksonz (2009-07-05 11:00:00) [20]

> Думаю, что мало кто, кроме тебя, не знает, что такое код
> #19#136.

тогда почему столько времени мне пришлось объяснять, что '#19#136' меня не устраивает???

Страницы: 1 2 3 4 5 6 7 8 9 10 11 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »