Компиляция старого проекта RAD Studio 10.2 - Общие вопросы Delphi

SoulSN · 12.11.2020, 13:18

Есть работающий проект. Использует PiritLib.DLL
Попробовал перекомпилировать в RAD Studio 10.2, выполнил без ошибок, но работает не правильно.
В частности функция

Код:

// Открыть порт
function Pirit_openPort(PortName:pchar; speed:integer):integer;stdcall;far;external 'PiritLib.dll' name 'openPort';

в старом срабатывает и возвращает 0
в новом возвращает код ошибки 2001
Подскажите как победить эту проблему

Pavia · 12.11.2020, 13:22

pchar заменить на PAnsiChar

SoulSN · 12.11.2020, 13:39

исправил, но не помогло.

Код:

// Открыть порт
function Pirit_openPort(PortName:PAnsiChar; speed:integer):integer;stdcall;far;external 'PiritLib.dll' name 'openPort';

так же возвращает ошибку 2001

SoulSN · 12.11.2020, 13:50

сорри

Код:

var cp : String;
begin
cp:='COM6';
errorCode := Pirit_openPort(Pansichar(cp),57600);

не работает,
а так работает

Код:

errorCode := Pirit_openPort(Pansichar('COM6'),57600);

уже легче

SoulSN · 12.11.2020, 13:53

да...
переменная тоже должна быть AnsiString

SoulSN · 12.11.2020, 13:53

Спасибо за пинок в нужном направлении!

12.11.2020, 13:18	#1
SoulSN Новичок Джуниор Регистрация: 12.11.2020 Сообщений: 5	Компиляция старого проекта RAD Studio 10.2 Есть работающий проект. Использует PiritLib.DLL Попробовал перекомпилировать в RAD Studio 10.2, выполнил без ошибок, но работает не правильно. В частности функция Код: `// Открыть порт function Pirit_openPort(PortName:pchar; speed:integer):integer;stdcall;far;external 'PiritLib.dll' name 'openPort';` в старом срабатывает и возвращает 0 в новом возвращает код ошибки 2001 Подскажите как победить эту проблему Последний раз редактировалось SoulSN; 12.11.2020 в 13:19. Причина: оформление

12.11.2020, 13:22	#2
Pavia Лис Старожил Регистрация: 18.09.2015 Сообщений: 2,409	pchar заменить на PAnsiChar Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. У дзен программиста программа делает то что он хотел, а не то что он написал .

12.11.2020, 13:39	#3
SoulSN Новичок Джуниор Регистрация: 12.11.2020 Сообщений: 5	исправил, но не помогло. Код: `// Открыть порт function Pirit_openPort(PortName:PAnsiChar; speed:integer):integer;stdcall;far;external 'PiritLib.dll' name 'openPort';` так же возвращает ошибку 2001

12.11.2020, 13:50	#4
SoulSN Новичок Джуниор Регистрация: 12.11.2020 Сообщений: 5	сорри Код: `var cp : String; begin cp:='COM6'; errorCode := Pirit_openPort(Pansichar(cp),57600);` не работает, а так работает Код: `errorCode := Pirit_openPort(Pansichar('COM6'),57600);` уже легче

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Компиляция проекта на Qt (С++)	mike246	Помощь студентам	0	06.04.2014 21:31
Компиляция проекта из нескольких проектов	Miller-1981	Visual C++	4	29.08.2012 20:15
компиляция проекта	Davidow	Общие вопросы C/C++	4	30.03.2010 11:01
компиляция проекта в Visual Studio 2008	kess	Visual C++	1	16.03.2010 12:36
Компиляция проекта без запуска Delphi	856100	Общие вопросы Delphi	3	06.05.2009 18:50

12.11.2020, 13:53	#5
SoulSN Новичок Джуниор Регистрация: 12.11.2020 Сообщений: 5	да... переменная тоже должна быть AnsiString