|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Перенос библотеки AsyncFree104
Доброго времени суток.
Имеется библиотека AsyncFree104 для работы с COM портом под Delphi 7 Хотелось бы установить её под Embarcadero RAD Studio 10.2.3 Но в процессе компиляции я получаю ошибки типа: Код:
[dcc32 Error] AfComPort.pas(655): E2010 Incompatible types: 'Char' and 'AnsiChar' [dcc32 Error] AfComPort.pas(656): E2010 Incompatible types: 'Char' and 'AnsiChar' [dcc32 Error] AfComPort.pas(830): E2010 Incompatible types: 'AnsiChar' and 'Char' [dcc32 Error] AfComPort.pas(831): E2010 Incompatible types: 'AnsiChar' and 'Char' Пробовал подставлять разные типы но к рабочему результату это не привело( |
#2
|
|||
|
|||
Ожидаемо.
Дело в том, что версии с 2009 являются юникодными, т.е. sizeOf(Char) = 2. Тип AnsiChar обратно совместим с Char для версий младше 2009, т.е. sizeOf(AnsiChar) = 1. Т.О., тебе надо посмотреть где и на какой тип надо изменить типы данных для исправления. Как я полагаю, надо в этой библиотеке везде использовать AnsiChar (т.к. скорее все там расчитано на однобайтовые данные) и, возможно, поднаписать врапперов для использования с юникодными символами. |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Amilman (08.06.2018)
|
#3
|
||||
|
||||
Ошибки ушли но есть еще один вопрос.
В pas файле AfComPortCore Встречаются строки типа Код:
constructor TAfComPortEventThread.Create(AComPortCore: TAfComPortCore); begin inherited Create(AComPortCore); FOnPortEvent := AComPortCore.FOnPortEvent; Resume; end; constructor TAfComPortWriteThread.Create(AComPortCore: TAfComPortCore); begin inherited Create(AComPortCore); FlushDoneEvent := CreateEvent(nil, False, False, nil); FlushEvent := CreateEvent(nil, False, False, nil); WriteEvent := CreateEvent(nil, False, False, nil); WriteBuffer := TAfCircularBuffer.Create(AComPortCore.FOutBuffSize); Resume; end; Так как Resume больше не используюется, пользуемся start. Но тогда при попытке запуска потока я получаю ошибку: Cannot call Start on a running or suspended thread. А если я просто удаляю Resume то программа компилируется и даже вроде как работает но как-то не корректно. Может нужно был сделать все как-то иначе? |
#4
|
|||
|
|||
Ну правильно тебе говорят. Start - это для рестарта потока, а вот Resume - для возобновления работы потока. Так что оставь Resume.
|
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Amilman (08.06.2018)
|
#5
|
||||
|
||||
Скомпилировал терминал. Отправляю команды на устройство но оно не отвечает.
В итоге выяснилось что при отправке уходят исковерканные команды.. Пример: Прибор должен был получить команду вида: Код:
24 57 50 2B 55 4E 43 46 47 2B 35 36 38 3D 30 30 $WP+UNCFG+568=00 30 30 2C 3F 00,? Код:
24 00 57 00 50 00 2B 00 55 00 4E 00 43 00 46 00 $.W.P.+.U.N.C.F. 47 00 2B 00 G.+. |
#6
|
||||
|
||||
Может ли это зависеть от того что Char заменили на AnsiChar?
|
#7
|
|||
|
|||
нет, это где-то внутри библиотеки все еще сидят Char и String вместо AnsiChar и AnsiString. Delphi автоматически их кастит. Придется лезть внутрь сырцов.
А что, новой версии, поддерживающей unicode, нету? |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Amilman (08.06.2018)
|
#8
|
||||
|
||||
Данную версию, перестали поддерживать еще вроде как году 2002, есть чуть новее версия, но там и компонентов прибавилось а соответственно и исправление кода да и копание в исходниках еще больше, еще дольше. Мне же нужно просто подключиться к прибору, считать команды, отослать свои команды да и все на этом.
А если будут встречаться строки с типом PChar их менять на PAnsiChar? Пример: FData: PChar; Последний раз редактировалось Amilman, 08.06.2018 в 04:11. |
#9
|
||||
|
||||
То есть не PAnsiChar а PWideChar
|
#10
|
|||
|
|||
Цитата:
Именно. WideChar это фактически тоже самое, что и Char в юникодеых Дельфях. А тебе нужен, походу, именно Char - однобайтовый. |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Amilman (08.06.2018)
|
#11
|
||||
|
||||
Все! После дополнительных правок, терминал начал отправлять команды корректно.
Если кому пригодится, то я залил рабочую библиотеку (покрайней мере рабочую для моих нужд) на mail.диск: https://cloud.mail.ru/public/4pit/6XuZpXWRi lmikle, спасибо вам большое за за ценную информацию, без вас бы наверно еще долго разбирался что к чему. Последний раз редактировалось Amilman, 08.06.2018 в 06:45. |
#12
|
|||
|
|||
Да всегда пожалуйста. Выложи что-ли в исходники на сайте, а то вдруг подохнет на диске...
|