[LLI.T.A.L.K.E.R.]

Проблема передачи данных (а так же текста) из Blitz3D в Delphi 7 и обратно.

Файл Delphi.bb

Graphics3D 800,600,32,2
MyText$=TextAdd("OTnpaBka")

Repeat
	Text 10,10,MyText$
	Flip
Until KeyHit(1)

Код файла 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.

Файл DelphiText.decls

.lib "DelphiText.dll"
TextAdd$(Text$) : "TextAdd"

При изменении на function TextAdd(TextChar)Char; в Blitz3D отображается такое:


При завершении программы, когда с Blitz3d отправляешь данные на обработку в скобках:

Graphics3D 800,600,32,2
MyText$=TextAdd("OTnpaBka")

выходит ошибка:


Основная проблема - Delphi не возвращает принятое, а Blitz3D при отправке данных, после завершении программы, пишет об ошибке.

А так же при пробе отправить integer 23423450 после обработке IntToStr()+'текст' - Blitz3D вообще как-то отобразил примерно "101021012 текст"