[cadil]

Программа - USB-термометр более-менее успешно компилируется DELPHI 7SE.
Этот же проект запускается (компилируется) редактором Delphi XE7, но COM-порт, к которому подключен термометр - не распознается.
Для наглядности - во вложении скрин. Из первой картинки видно, что при компиляции DELPHI 7SE порт СОМ1, к которому подключено устройство, распознается (порт в меню выделен цветом). С Delphi XE7 я не могу добиться распознавания порта (последняя картинка).
Помогите решить эту проблему с распознаванием порта. Заранее благодарю.
И еще ... Аналогичная проблема была и с Delphi 2009. Думаю - мудрит Embarcadero: более поздняя версия продукта не всегда поддерживает проекты, собранные на более ранних версиях.

[lmikle]

Видимо, опять непонятки с AnsiString и UnicodeString.

[cadil]

Сообщение от lmikle

Видимо, опять непонятки с AnsiString и UnicodeString.

Почитал об этой проблеме тут -Delphi и кодировка Unicode. Вопрос очень серьезный. Посоветуйте - как решить эту проблему? Спасибо!

[lmikle]

Принудительно указать тип AnsiString вместо String.

[cadil]

Сообщение от lmikle

Принудительно указать тип AnsiString вместо String.

Заменил тип String на AnsiString и Char на AnsiChar.
Проект на ХЕ7 компилируется, но с тем же отрицательным результатом - СОМ-порт не распознается, на 7SE - проект без проблем запускается и с новым типом переменных.
Какие версии еще стоит проверить, где копать?

[lmikle]

Покажи код - как ты определяешь порт.
Может там еще надо и др. функцию использовать принудительно (xxxA, а не xxxW, на которую замаплена оригинальная xxx).

И, кстати, вот еще почитай:
http://stackoverflow.com/questions/1...ports-in-win32

[cadil]

Сообщение от lmikle

Покажи код - как ты определяешь порт.

Практически оригинальный код - во вложении.

[lmikle]

Ну, у тебя в сырцах я все еще вижу вызов и декларацию функций с PChar.
И еще. Там, может, не boolean, а BOOL тип использоваться. Тоже на разных версиях могут быть расхождения... хотя это должно быть совместимо.

[cadil]

Сообщение от lmikle

Ну, у тебя в сырцах я все еще вижу вызов и декларацию функций с PChar.
И еще. Там, может, не boolean, а BOOL тип использоваться. Тоже на разных версиях могут быть расхождения... хотя это должно быть совместимо.

В D7SE при компиляции выводятся предупреждения:

Код:

[Warning] DS1820_Main.pas(112): Unsafe type 'PChar' 

в местах

Код:

function OpenCOM(P:PChar):boolean;

Раньше на них не обращал внимания - проект компилируется и проблем, вроде, нет. Сейчас, когда появились проблемы, начал присматриваться к предупреждениям.
Указал тип AnsiString вместо String, PAnsiChar вместо PChar, BOOL - BOOLEAN, но предупреждение как было так и осталось -

Код:

[Warning] DS1820_Main.pas(112): Unsafe type 'PAnsiChar'

Как устранить это предупреждение? Может в этом корень зла?

[lmikle]

нет, это специальное предупреждение.
Кстати, проверь-ка с какого символа у тебя строки начинаются в XE7? С 0 или с 1 (поиск в помощь, тут в какой-то теме уже писал про это).

[cadil]

Сообщение от lmikle

...
Кстати, проверь-ка с какого символа у тебя строки начинаются в XE7? С 0 или с 1 (поиск в помощь, тут в какой-то теме уже писал про это).

Спасибо!
Почитал о 0-индексированных строках тут.
1. Внешне простая рекомендация "...если вы добавите {$ZEROBASEDSTRINGS ON} перед кодом ..., то получите..." , но как ее выполнить?
2. Объясни, пожалуйста, популярно - как использовать следующий код в решении моих проблем?

Код:

var
  S: string; 
  I: Integer;
  ch1: Char;
begin
  // Универсальный, вариант 1
  // (работает для любых настроек, 
  // доступен, начиная с Delphi 2006)
  for ch1 in S do
    use(ch1);
 
  // Универсальный, вариант 2
  // (работает для любых настроек, 
  // доступен, начиная с Delphi XE3)
  for I := Low(S) to High(S) do
    use(S[i]);
end;

3. Как выяснить - с какого символа начинаются строки?
4. Еще одну версию прочитал в нете: Все зависит от того на какой версии Дельфи ты компилишь данный код, если на ANSI, то один символ = один байт, если на Unicode, то один символ - два байта. В этом направлении стоит что-то предпринимать? Если - да, то что?
Извини за большое количество вопросов. Понимаю, что вопросы ставить легче, чем отвечать на них, но самостоятельно ответы на эти вопросы я буду искать вечность!

[Aristarh Dark]

Я делал так, правда тестировалось только на XE, но проблем с длинными строками не наблюдал.

[cadil]

Сообщение от Aristarh Dark

Я делал так, правда тестировалось только на XE, но проблем с длинными строками не наблюдал.

Спасибо! Поясни, пожалуйста, работать только с {$IFDEF VER220} // для delphi xe ?
У меня с {$IFDEF VER220} ошибка:

[dcc32 Fatal Error] thermo_14XE3_.pas(145): E2280 Unterminated conditional directive

И еще ... Вчера бессистемно ставил {$ZEROBASEDSTRINGS ON} и где-то на 4-ом десятке добился компиляции проекта в полном объеме. Переименовал проект, но успех не закрепился. Такое ощущение, что проблема в чем-то другом. Может пробема в: подключении внешней библиотеки, файле .res, обнулении буфера устройства путем отключения? Такой эффект у меня был один раз в D2009 без использования {$ZEROBASEDSTRINGS ON}.

[Aristarh Dark]

{$IFDEF VER220}

Это конкретно XE, какое значение VERxxx для XE7 - я не знаю, смотри сам.
Правильнее будет для всех unicode версий сделать условие. Я не заморачивался, потому что у меня только XE.

[cadil]

Сообщение от Aristarh Dark

Правильнее будет для всех unicode версий сделать условие. ...

Как это условие сформулировать? А вариант работы с циклами не подойдет?

Код:

var
  S: string; 
  I: Integer;
  ch1: Char;
begin
  // Универсальный, вариант 1
  // (работает для любых настроек, 
  // доступен, начиная с Delphi 2006)
  for ch1 in S do
    use(ch1);
 
  // Универсальный, вариант 2
  // (работает для любых настроек, 
  // доступен, начиная с Delphi XE3)
  for I := Low(S) to High(S) do
    use(S[i]);
end;

В чем недостаток {$ZEROBASEDSTRINGS ON}?