Сообщение от LLI.T.A.L.K.E.R.
Код файла DelphiText.dll
library DelphiText;
uses
SysUtils, Classes;
{$R *.res}
function TextAdd(Text:String):PChar;
var OutText:String;
begin
OutText:=Text+'. Принято!';
Result:=PChar(OutText);
end;
exports TextAdd;
begin
end.
|
По идее, нужно попробовать заменить тип переменной Text на PChar, чтобы вообще избавиться от типа String в параметрах.