Pachr в Delphi 7 и XE7

[-Jack-]

Всем привет. Ситуация такая, пишу библиотеку для приложения, которое написало вроде как на delphi7.


Пишу библиотеку на Delphi XE7. Но наткнулся на проблему с входящими данными.

Входящие данные выглядят в виде строки из цифр и англ букв.

Код функции библиотеки

function testDlllFunc(sKey: PChar): PChar; stdcall;
begin

ShowMessage(sKey);

end;

Но входящие данные библиотекой воспринимаются не корректно, а в виде каких то китайских символов.

Пример входящих данных
23CFDDDD52EA2AFF2DB2DD456198C75ADE2 66E372B8B809C55C976637313131

Пример сообщения прикрепил к посту.

Подскажите, пожалуйста, в чем может быть загвоздка ??

[Аватар]

PAnsiChar ?

[-Jack-]

Поменял на PAnsiChar

function testDlllFunc(sKey: PAnsiChar): PAnsiChar; stdcall;
var
ResString: STring;
begin

ShowMessage(sKey);
...
ShowMessage(ResString);
Result:=PAnsiChar(ResString);

end;

Сработало, теперь входящие данные воспринимает правильно. Но, результат функции передает не верно:
ResString - строка, которая имеет приблизительно такой же формат, что и sKey.


Но когда библиотека передает результат, программа видит только первый символ строки ...

[Аватар]

ResString: STring;

Чего не AnsiString? String юникодный

[-Jack-]

Аватар, спасибо огромное, с AnsiString заработало ...

Но к сожалению вернулся к тому, от чего уходил.

Access violation at address 0A2553A5

function testDlllFunc(sKey: PAnsiChar): PAnsiChar; stdcall;
var
myInt: integer;
param: String;
begin
param:= sKey;

myInt:=StrToInt('x' + Copy(param, i, 2)); // Ошибка

При небольших нагрузках, всё работает нормально. Но при повышенных нагрузках, с теми же данными, вылезает ошибка ...

[BARNEY]

-Jack-
Ты не с полисом ОМС играешься? Если да Напиши подскажу.

[VerdanaCe]

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

-Jack-
Ты не с полисом ОМС играешься? Если да Напиши подскажу.

Я с полисами ОМС играюсь) Как с тобой связаться?

[BARNEY]

Аська, есть почта barney (гав) list.ru.