Перекодировать текст из Delphi5 в Delphi10

Добрый день

Существует проблема

проект написанный на delphi5 должен использовать dll, реализованную на delphi10.
в dll из проекта передаётся некоторое количество переменных типа string, необходимых для работы dll

Проблема заключается в том, что стандартные методы перекодировки не помогают(например, сохранение в поток с tencoding.coding)

Подскажите варианты решения. Ибо на данный момент - это полный тупик.

0

Сообщение от E_Punk передаётся некоторое количество переменных типа string

Хм-м, думал, со времен Д5 что-то изменилось - но нет...
E_Punk, вот этот здоровенный комментарий при создании DLL - он вообще для кого написан?

{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. }

В двух словах: DLL не должна ни получать в качестве параметров ни отдавать как результат функции тип String. Ну или делать то, что там, в комментарии написано...

1

Я всё-всё понимаю , НО система(проект в d5) уже реализована таким образом, и мне не могут передать ничего другого, кроме string,
кроме того в этой системе успешный опыт использования других dll написанных на d5 - и конкретно под мою ничего меняться не будет

если варианты перекодирования отсутствуют, то видимо придётся переписать на d5 или d7

0

А dll переписать можно?

0

мою - без проблем.

Добавлено через 19 минут
просто не очень, конечно, хотелось переписывать в d5/7...
свою dll я делала на подобие тех, что написаны на d5
и до сообщения уважаемого d1973 пребывала в уверенности, что дело в несоответствии кодировок
(пыталась widestring-->unicode по всякому) - бессмысленно, безуспешно, беспощадно =(

0

а может AnsiString? там символы однобайтные.

а если проанализировать поступающие данные и понять в какую сторону копать?

0

Сообщение от E_Punk мою - без проблем.

Так и перепишите её на Д10 просто заменив тип string в dll на тип AnsiString. И тогда у программы на Д5 возможно не будет никаких проблем с приемом/передачей строк из dll.

0

Проверяла, там в однобайтовая кодировка, просто привести к ansistring ничего не дало.

Добавлено через 4 минуты
Проблема не в программе на д5, она вполне себе отличненько мне все передаёт,проблема внутри моей длл, не читается то что прога передала, (но до шага вернуть ещё не дошли,но если все останется на д10,то возвращать буду Анси)
Похоже реально все дело в парадигме длл, то есть максимум что в неё можно отправить это шорт или чар...

Добавлено через 18 минут
Моей длл на д10 позрез надо хотя бы два параметра обработать, переданные в виде стрингов из д5.
при подключении длл к аттач то процесс,выяснилось что передаваемое д5 - полнейшие кракозябры, я мудрила и потоками, и просто переводами, и из доса пыталась перекодировать, но ничего. Все что удалось выяснить передаваемое - однобайтавая кодировка

Добавлено через 19 минут
Просто переопределить как Анси не получится, класс,определённый с такими полями(стрингами, используется в 10 длл, но написанных га д5

0

Сообщение от E_Punk Просто переопределить как Анси не получится

Почему не получится? dll вы точно сами писали или переделывали что-то надыбанное?

0

Ну,что имеется в виду
Входным переменным сделать ansitoutf8, ?
Не помогает

Добавлено через 12 минут
В длл создаётся класс с определёнными полями,этот класс используется в 10е других длл(но написанных на 5), потом в длл даётся описание методов этого класса(частности распарсивание xml) где и нужно делать сравнение со стрингами,но они отображаются в виде "?".

Объясните, пожалуйста ,тогда конкретнее что Вы имеете в виду?


Потому что,вчера передела на д5, и теперь вылезла обратная ситуация я не могу из юникодa xml вернуть результат в нормальной кодировке,это опять иероглифы(как вариант: xml переходить в Анси или вайдстринг до того как парсить его)

Помогите, скажите хоть что-нибудь. Не исключено,что я чего-то не знаю/не понимаю, ибо абсурдность ситуации на лицо.

Добавлено через 3 минуты
Ну, или сделать потомка класса,где ПОЛНОСТЬЮ ПЕРЕОПРЕДЕЛИТЬ все поля и методы?.

Добавлено через 5 секунд
Ну, или сделать потомка класса,где ПОЛНОСТЬЮ ПЕРЕОПРЕДЕЛИТЬ все поля и методы?.

0

Для того чтобы решить проблему нужна ясность происходящего.. а именно, пакет входных данных и пакет выходных данных, а не каша из слов пытающихся объяснить что-то про Д5 и Д10... использовать надо эквивалетные типы данных это во первых для начала.. да и слово "кодировка" меня тут смушает почему-то..

Сообщение от E_Punk Похоже реально все дело в парадигме длл, то есть максимум что в неё можно отправить это шорт или чар...

дак уж опредись. чар или шорт или вообще стринг.... а может массив байт??? что было бы логичнее)

0

Если не использовать слово кодировка- в чем тогда проблема?

Мне передают string,до вызова функций из моей dll в д5 - это нормальная читабельная строка
,после захода в dll эта же строка становится вопросами(если я ей делаю ansitoutf8),иероглифами,если вообще ничего не делаю.
Из попыток решить проблему: Пытались подключить sharemem ,и насколько я знаю ,мне пытались передать shortstring(на счёт этого я не уверена - проект на д5 ,я в глаза не видела. ).-это то ,что делалось со стороны проекта, я со своей стороны уперлась в то, что простейшие способы не помогают,сохранение в memorystream c encoding - то же не помогло.
Кроме того что мне передают переменную в однобайтовом представлении,я ничего не могу понять.

Скажите ,тогда в чем проблема.

Добавлено через 18 минут
Проблема как минимум в том ,что стринг в Дельфи 5 это не Та стринг,что в Дельфи 10,потому что в Дельфи 10 стринг=юникодстринг.

0

ну вот тупой пример
dll Пишу на XE10.2.3

гружу дальше функцию тоже в XE10.2.3


гружу тоже самое в старой дельфи, 2006, где String еще не юникоднутая


уже проблема выскочила...

далее

меняем тип в DLL на AnsiString

дело обстоит в ХЕ10.2.3


а вот как теперь обстоит дело в 2006


дальше поиграться с типами и увидеть, в чем же именно проблема там...

1

а вообще, не надо String посылать.. указатель надо посылать и будет счастье всегда)))

0

Сообщение от Arcor а вообще, не надо String посылать.. указатель надо посылать и будет счастье всегда

Именно!!!

0

Спасибо всем
Мой последний шанс угас с конкретным примером.

Я видимо ужасно изъясняюсь, но как-бы я пыталась сказать что в моей длл реализуются методы, объявление которых реализовано string'ами и используется в живом проекте в живых д5 длльках...
Тк результат длл - фактически материальный, то программист, который заведует этим проектом не очень хочет там что-то менять.


Еще раз спасибо.

0

Сообщение от E_Punk проект написанный на delphi5 должен использовать dll, реализованную на delphi10.

ты пишешь DLL на д10? а использование сей идет на д5? я это так понимаю... д10 это которая д2006?? или которая хе10?

ну так и сделай сразу нормульную архитектуру библиотеки, где выкинутся все стринги! Или я не понимаю написанного))))

Сообщение от E_Punk Из попыток решить проблему: Пытались подключить sharemem ,и насколько я знаю ,мне пытались передать shortstring

ну так как ты администратор протокола обмена данных, ТЫ пишешь правила обмена данных между программами, и все ИСпользователи твоего продукта обязаны подчиняться правилам, которые ТЫ создаешь. Иначе коммуникация не работает, даже на уровне логики)

объясни по пунктам:
- что дано
- что искомо

не в предложениях

0

под дельфи 10 я как-бы понимала версию рад студии сеатл(метка в названии темы), конечно, если быть точным, то это Version 23.0.22248.5795

Добавлено через 17 минут
значит дано

Этот unit Class написан в дельфи5(именно том,которое было до дельфи6, дельфи7) и используется в КУЧЕ(от 10 и больше) dll написанных на дельфи5 для Глобального проекта,который тоже реализован в дельфи5.

Моей задачей было написать очередную длл со своей реализацией методов(в этом конкретном случае нужно было распарсить xml), с учетом того, что проект на д5 умеет брать только стринглист определенного формата(с этим походу тоже возникают траблы), при чем настояли, чтоб в радстудии все было.

локально я unit Class - переделала, и оно заработало(вместо string пообъявляла shortstring - как D1973 советовал)

сейчас - походу единственное решение для этого КОНКРЕТНОГО случая придется делать свой особый Class и в д5 программисту допиливать кусок...

Добавлено через 6 минут
я уж пыталась в д5 все переделать,(удачно оказалось - даже парсер доступен в нем),
но xml на юникоде выдает свои кракозябры, а функция utf8toansi(которой по ФАКТУ не оказалось в д5, но которая УДАЧНО была в модуле парсера) - не сработала....

Добавлено через 5 минут
хотелось бы конечно, такое решение, которое бы позволяло использовать unit Class, в том виде в каком он существует сейчас и в д5, чтоб не доделывать...

но видимо - увы. (мне кажется реально все дело в парадигме длл

Сообщение от D1973 Хм-м, думал, со времен Д5 что-то изменилось - но нет... E_Punk, вот этот здоровенный комментарий при создании DLL - он вообще для кого написан? { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. } В двух словах: DLL не должна ни получать в качестве параметров ни отдавать как результат функции тип String. Ну или делать то, что там, в комментарии написано...

)

0

я еще раз прочитал тему, думал может что прояснится спустя пару дней.. но вот снова наткнулся на сие писание

Сообщение от E_Punk Я всё-всё понимаю , НО система(проект в d5) уже реализована таким образом, и мне не могут передать ничего другого, кроме string,

и задался вопросом, а это как? кто-то написал хост приложение, а только теперь надо написать, что программа должна использовать. Очень странная реализация программы, обычно наоборот делают. пишут инструментарий, а уж затем используют его в программе, а тут наоборот.. бррр

Сообщение от E_Punk constructor Class(n1,n2,n3...n8:STRING)

ну и параметром бы уж массив или список передавать.
Переделывайте архитектуру пока не поздно))

я тут один проект пишу уже 4 года.. ну так.. между делом, и мне самому не ясна была суть того, что я в итоге хочу получить) в итоге я раз 30 уже начинал проект с нуля писать))) делает конечно мало удовольствия, но зато с каждым разом обрастает новым функционалом и подтачивается все четче к расширяемости)

а у вас там какой-то парсинг XML)) и вы боитесь переделать программу, чтобы уж сразу было хорошо. Ну ваше дело)

0

Да,уже приняли ответственное решение все в shortstring переделать и char. Уже хорошо.
Будем улучшать, тем более руководство за попытки перетащить огромездный проект во что-то более свежее ,чем дельфи5.

Спасибо большое,учту замечания)


PS в основном проблема была в том,что я с другого проекта,где я чуть больше понимаю,чем здесь и я далеко не главный программист в обоих
Этих проектах.

0