помогите подружить делфи с луа через длл

rad studio дельфи 11,квик

Спасибо огромное за наводку, попробую за выхи разобраться.

а как в дельфи отобразить переменные из луа?
делаю переменную типа s:pansichar;
для луа 2 функции одна записывает в нее , вторая читает.
на когда я хочу дельфи ее прочитать из длл там либо нил либо любое значение присвоенное вне функций луа??
при этом в луа все работает как часы... всю голову изломал)
function str():pansichar;cdecl;
  begin
  result:=s;
  end;
   exports str;

голова кругом) пожалуйста ткните носом  мне надо lua--> dll-->delphi обратка то у меня работает а вот выдернуть из длл переменную не получается(
вот 2 функции  записать считать строковый параметр.
s переменная где он хранится, ee хочу выденуть, но не получается
function forLua_str(L: Plua_State): Integer; cdecl;
var
    n,i: Integer;
    isNumberFound: Boolean;
    res:pansichar;
begin
   n := lua_gettop(L);  // количество переданных аргументов
   res := '';
   isNumberFound := false;
    for i := 1 to n do
      begin
        if lua_type(L,i) = LUA_TSTRING then
          begin
            res :=lua_tostring(L,i);
            isNumberFound := true;
          end;
      end;

    if isNumberFound then
       begin
       lua_pushstring(L, res);  // если найдено хоть однa строка в аргументах - возвращаем ее
       s:=res;
       end
    else
        lua_pushnil(L);         // если список аргументов пуст или в нем нет строк - функция вернет nil
      Result := 1;  // возвращаемое количество результатов
end;
     function forLua_rstr(L: Plua_State): Integer; cdecl;    //*чтение с переменной
  begin
if s<>nil then
       lua_pushstring(L,s)
       else lua_pushstring(L,pansichar('нет параметра')); // возвращаемое количество результатов
     Result := 1;
end;

pansichar, возможно то что я задумал в принципе не возможно почитал тут умных людей;) получается что квик и делфи имеют разные области памяти в этой длл поэтому при обращение к одним и тем же переменным из дельфи и квика получаем разные данные. в этом случае фиаско) Мне нужно было именно передать из дельфи в луа и обратно данные.
пять раз перечитал ваш пост,правильно я понимаю, что переменная s не является данными записанными или считываемы в луа?
тогда мне надо писать процедуру по типу луа и как то выковыривать данные но уже для дельфи, хммм...

    function dll:PansiChar;stdcall
begin
Result:=lua_tostring(ldel,idel);
end;
exports dll;
разве вот такая функция не должна отдавать в дельфи значение строки в переменной?
хотя это масло масляное...

вот интересно) а я уже через реестр заморочился ... причем выводит в реестр на ура, но если без костылей эт просто кайф получится,спасибо сейчас затестим....
на сколько я понял данная функция имеет отношение только к луа то есть она не забирает строку а наоборот отдает ее в луа.
работает  lua_tostring(L,i);(только при вызове из луа) где l указатель на переменную луа а i порядковый номер ее в стеке  отсюда сделал дельфи функцию которая просто заносит переменную в реестр виндовс . То есть я в луа вызываю функцию в длл которая с помощью дельфи функции заносит переменную в реестр)) если я из дельфи вызываю переменную в длл она просто пуста либо значение если ей задать то для дельфи луа его не меняет .печаль. тоска уныние.  остановлюсь тогда на реестре.

unit LuaFuncImpl;
interface

uses lua53, lauxlib, lualib,Registry;
  function forLua_str(L: Plua_State): Integer; cdecl;
  function forLua_rstr(L: Plua_State): Integer; cdecl;

var s:pansistring;
implementation

uses Windows, SysUtils;

procedure Regstring(name, param : string); // реестр  запись
var
  reg  : TRegIniFile;
begin
  reg := TRegIniFile.Create('');
  reg.RootKey := HKEY_LOCAL_MACHINE;
     //   добавляем
   try
   reg.WriteString('Software\Leopold',name,param) ;
   except    //если нет такого ключа создаем
    begin
    reg.CreateKey('Leopold');
    reg.WriteString('Software\Leopold',name,param) ;
    end;
   end;
  //освобождаем память
  reg.Free;
end;
function Regstringread(name : string):string; // реестр  чтение
var
  reg  : TRegIniFile;
begin
reg := TRegIniFile.Create('');
reg.RootKey := HKEY_LOCAL_MACHINE;
   try    //   читаем
   result:=reg.readString('Software\Leopold',name,'') ;
   except   //ловим
   result:='ошибка чтения реестра';
   end;
  //освобождаем память
reg.Free;
end;
function forLua_str(L: Plua_State): Integer; cdecl;//пишем строку в реестр пытаемся записать для дельфи в переменную
//первый  аргумент название второй строка
//вызываем в луа  названиедлл.str("имя параметра","значение")
var
    n,i: Integer;
    ISTRFOUND: Boolean;
    name,res: pansichar;

begin
   n := lua_gettop(L);  // количество переданных аргументов из луа
      ISTRFOUND := false;
    for i := 1 to n do
      begin
        if lua_type(L,i) = LUA_TSTRING then //проверка на стринг
          begin
            res :=lua_tostring(L,i); //записываем строку
            if i=1 then name:=res;//первай аргумент  имя в реестре
            ISTRFOUND := true; //если аргументов более 2х в принципе можно сделать мультизапись пока не нужно
          end;
      end;

    if ISTRFOUND then
       begin
         // если найдено хоть однa строка
       Regstring(name,res); //добавляем в реестр
       s:=pansistring(res);// лажа не работает
       //lua_pushstring(L,pansichar(s)) это пишет в луа по указателю l данные s
       end
      else
      lua_pushnil(L);// если список аргументов пуст или в нем нет строки - функция вернет nil
      Result := 1;  // возвращаемое количество результатов
end;

function forLua_rstr(L: Plua_State): Integer; cdecl;//*чтение с реестра переменной
//вызываем в луа  названиедлл.str("имя параметра")
     var n:integer;
  begin   //данная функция запишет параметр из реестра в луа
if lua_type(L,1) = LUA_TSTRING then //параметр из луа строка
lua_pushstring(L,Regstringread(lua_tostring(L,1)))//параметр будет являтся именем переменной в реестре
else lua_pushstring(L,pansichar('имя аргумента не является строкой'));// при ошибке возвращаем в луа
Result := 1;// возвращаемое количество результатов
end;
     function strtodelphi():string;stdcall //это вызываем из дельфи получаем строго 'неудача'
begin
if s<>nil then Result:=string(s) else result:='неудача';
end;
exports strtodelphi;
end.

через реестр все прекрасно вносится напрямую дельфи с длл читать не хочет
dll=require "SimpleDelphiLua"
local is_run = true
function onclose()
    is_run = false
end
function main()
    while is_run do
  wrreestr()
  sleep(3000)
    end
end

function wrreestr() -- запись текущих значен в реестр для обработки отображения параметров  для делфи
if dll.rstr('какоето_название')~='какая то строка' then
     dll.str('какоето_название','какая то строка')
end
end

function strtodelphi():string;stdcall //это вызываем из дельфи получаем строго 'неудача'
begin
if s<>nil then Result:=string(s) else result:='неудача';
end;
exports strtodelphi;

Этот кусок я не совсем понял.
А где осуществляется вызов strtodelphi?

implementation

function strtodelphi():ansistring; external 'SimpleDelphiLua.dll' ;

procedure TForm1.buferDblClick(Sender: TObject);
begin
bufer.lines.add(string(strtodelphi));
end;

поправил ничего не изменилось
 
вызов осуществляется из проги дельфи