Передача PChar/* char между C++ и Delphi DLL

Question

У меня есть программа на C++, которая вызывает Delphi DLL для инициализации буфера, содержащего символы.

Я тестируя интерфейс, чтобы убедиться, что данные передаются правильно:

В C++ программе:

char * pMsg = (char*)malloc(3); //allocate buffer 

Init(pMsg * char); //Delphi DLL function 

В Delphi DLL:

procedure Init(pMsg:PChar); 
var 
    pHardcodedMsg:PChar; 
begin 
    pHardcodedMsg:= '123'; 
    CopyMemory(pMsg, pHardcodedMsg, Length(pHardcodedMsg)); 
end; 

Но , когда я пытаюсь сделать printf((const char*)pMsg) в C++, Показывает m e "123", за которым следуют некоторые символы мусора.

Почему это так? Как я могу успешно разместить массив символов в буфере и правильно напечатать строку?

Answer 1

Delphi не использует строки с завершающим NULL так что вам нужно пощеплять 0 в конце, поскольку C/C++ использует это, чтобы определить, где заканчиваются строковые данные (Pascal использует размер строки в начале IIRC).

Обычный символ '\ 0' - бежать значение 0.

Не забудьте вернуть 4-х символов, а не 3.

Answer 2

Ваша функция Init не работает, потому что

1) pHardcodedMsg является указателем, для которого не выделяет память

2) CopyMemory не добавляет 0 до конца ГСОК

3) заголовок процедуры из Init пропускает с запятой в конце строки

При использовании версии Юникода Delphi вы также должны учитывать длину строки и преобразование набора символов