Перевод проекта с Delphi 7 на Delphi RAD Studio 10.1 Berlin

1inkin1 · Регистрация: 13.03.2014

Студворк — интернет-сервис помощи студентам

Приветствую. Пришлось вспомнить студенческие годы и заняться уже готовым проектом, который был сделан в Delphi 7. Проект компилируется в dll, который используется при работе макроса в CorelDraw. В общем, задача состоит в обновлении проекта и последующей его доработке. После открытия проекта в Delphi RAD Studio 10.1 Berlin вылезли несколько ошибок, но они были связаны с изменениями в принадлежности некоторых функций к библиотекам. Всё быстро поправил и без ошибок и предупреждений скомпирировал новую dll. Вроде бы всё легко и хорошо, но, когда я заменил старую dll на новую в CorelDraw, при обращении к ней макроса ничего не происходит, а иногда CorelDraw просто зависает или экстренно завершает работу. Что могло пойти не так? Вроде бы один и тот же проект, просто скомпилированный в разных версиях среды разработки, но в новой версии он перестает работать. Не могу даже придумать как бы отследить, что не так, потому что не выдается никаких ошибок. Что можно сделать в данной ситуации, чтобы решить проблему?

@OpXiv · 11.02.2021, 17:00

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

Ты уверен?

Я понял что проблема в кодировках у него не должна возникнуть, ибо VBA не даст начудить, хоть и поддерживает перекодировки строк.

Verevkin · 11.02.2021, 17:05

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

Я понял что проблема в кодировках у него не должна возникнуть, ибо VBA не даст начудить, хоть и поддерживает перекодировки строк.

И чо?

@OpXiv · 11.02.2021, 17:54

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

И чо?

И то

1inkin1 · 12.02.2021, 13:50 **[ТС]**

В общем, вроде бы у меня получилось согласовать строковые типы в макросе и в dll x64, чтобы передаваемая строка нормально воспринималась и не ломала процессы. Так как в Delphi у меня используется везде тип string, который работает с юникодом, то я, перед передачей строки, в макросе перевел ее в юникод.

Visual Basic
1
Dir = StrConv(ActiveDocument.FilePath, vbUnicode)

А в dll в принимающей функции вместо string поставил WideString, который работает с юникодом и совместим BSTR, который используется в string в VBA.

Delphi
1
function GetParams(DestDir: WideString): boolean; stdcall;

К тому же WideString без проблем взаимодействует с обычным string в Delphi, поэтому не пришлось больше выполнять никаких перекодировок. вроде бы теперь всё работает. честно говоря, никогда не подумал бы, что со строками могут быть такие проблемы. спасибо всем большое за помощь.

@OpXiv · 12.02.2021, 14:12

Сообщение от 1inkin1

перед передачей строки, в макросе перевел ее в юникод.

Если у тебя в VBS никогда не будет никакого юникода, типа китайских иероглифов. То мог бы просто на него забить. А так ты возможно просто тратишь процессорное время на бесполезные вещи.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

1inkin1 2 / 2 / 2 Регистрация: 13.03.2014 Сообщений: 458

	Перевод проекта с Delphi 7 на Delphi RAD Studio 10.1 Berlin 05.02.2021, 21:40. Показов 8519. Ответов 24 Метки нет (Все метки) Приветствую. Пришлось вспомнить студенческие годы и заняться уже готовым проектом, который был сделан в Delphi 7. Проект компилируется в dll, который используется при работе макроса в CorelDraw. В общем, задача состоит в обновлении проекта и последующей его доработке. После открытия проекта в Delphi RAD Studio 10.1 Berlin вылезли несколько ошибок, но они были связаны с изменениями в принадлежности некоторых функций к библиотекам. Всё быстро поправил и без ошибок и предупреждений скомпирировал новую dll. Вроде бы всё легко и хорошо, но, когда я заменил старую dll на новую в CorelDraw, при обращении к ней макроса ничего не происходит, а иногда CorelDraw просто зависает или экстренно завершает работу. Что могло пойти не так? Вроде бы один и тот же проект, просто скомпилированный в разных версиях среды разработки, но в новой версии он перестает работать. Не могу даже придумать как бы отследить, что не так, потому что не выдается никаких ошибок. Что можно сделать в данной ситуации, чтобы решить проблему? 0