Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Pointer to string / 10 сообщений из 10, страница 1 из 1
08.02.2020, 11:46
    #39924155
xarfan
xarfan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pointer to string
Добрый день.
Возникла необходимость поддержки старого кода. Сам я на Delphi не писал, поэтому все сложно:

Имеется компонент Comm32. У него есть событие
ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word).
Далее var RecivedStr: string и RecivedStr:=PChar(Buffer), после анализируем что пришло на com-порт

Изменился опрашиваемый прибор и теперь, в ответе от прибора присутствует нулевой символ. Как я понимаю, при загрузке его в RecivedStr строка заканчивается и в ней остается только то, что было до нулевого символа, все остальное отбрасывается.
Т.е. по порту пришло:
Read data (COM4) 40 03 06 00 00 08 12 00 00 bf 43 (@........їC), а в RecivedStr только первые 3 символа.

Как правильно прочитать Buffer? Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2020, 12:01
    #39924159
Kazantsev Alexey
Kazantsev Alexey
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pointer to string
xarfan,

Код: pascal
1.
2.
SetLength(RecivedStr, BufferLength);
Move(Buffer^, Pointer(ReciveStr)^, BufferLen);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2020, 12:42
    #39924166
makhaon
makhaon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pointer to string
xarfan,

всё сложно, потому что сделано плохо - использовать строки как буферы так себе идея. переписав на массив байт гарантированно получишь все данные в любой версии делфи. ну а как от байтов к строкам перейти уже нужно смотреть на версию delphi.
вот ссылки для ознакомления с вариантами (не всеми):
https://www.sql.ru/forum/698354/perevod-tbytes-v-stroku
https://www.sql.ru/forum/1200089/kak-stroku-sohranit-v-massiv-bayt-i-prochitat-ee-obratno
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2020, 13:08
    #39924173
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pointer to string
Kazantsev Alexey
xarfan,

Код: pascal
1.
2.
SetLength(RecivedStr, BufferLength);
Move(Buffer^, Pointer(ReciveStr)^, BufferLen);


Код: pascal
1.
SetString(RecivedStr, Buffer, BufferLen);


Разумеется, это всё справедливо для старых, не Unicode дельфи. Если 2009 и выше, то лучше использовать TBytes.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2020, 13:16
    #39924177
xarfan
xarfan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pointer to string
Kazantsev Alexey,
Благодарю за помощь!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2020, 15:28
    #39924704
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pointer to string
alekcvp
Если 2009 и выше, то лучше использовать TBytes.
Или TRawString
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2020, 16:00
    #39924725
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pointer to string
_Vasilisk_
alekcvp
Если 2009 и выше, то лучше использовать TBytes.
Или TRawString

И снова получить проблемы на нулях в строке...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2020, 16:18
    #39924739
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pointer to string
alekcvp
И снова получить проблемы на нулях в строке...
Зачем? Строки вполне могут содержать нули. У автора проблема в касте к PChar. Вот этот каст, а вернее цепочка Pointer -> PChar -> String и обрезает строку. Сделать SetString и никаких проблем
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2020, 18:52
    #39924864
Василий 2
Василий 2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pointer to string
Мб, RawByteString?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.02.2020, 19:16
    #39924886
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pointer to string
Василий 2
Мб, RawByteString?
Может. Не помню как точно тип называется.

Но это все придирки. Я обеими руками за
alekcvp
лучше использовать TBytes.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Pointer to string / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 489ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2038614]:
 0ms
get settings:
 6ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 178ms
get topic data:
 8ms
get forum data:
 3ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 237ms
total:  489ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]