dennis1000 / verysimplelua Goto Github PK

Want to back this issue? Post a bounty on it! We accept bounties via Bountysource.

Hello! It isn't an issue, but rather a request for a code example.

I would like to call a Lua function from my Delphi program, and get the result, 
as you can see in the attached example. What would my code look like, if I 
would use VerySimple.Lua?

Best regards.

Roland Chastain

Original issue reported on code.google.com by [email protected] on 21 Feb 2015 at 6:12

Attachments:

• calllua.dpr

api returns a pointer to lua_Number, not a value

Want to back this issue? Post a bounty on it! We accept bounties via Bountysource.

Is it possible to supress a command shell poping up, when using something like io.popen in the lua script ?

Want to back this issue? Post a bounty on it! We accept bounties via Bountysource.

lua code
test = TTest.new();
test.dosomething();
print(test.somevalue);

The function reads as such:

procedure luaL_testudata(L: lua_State; ud: Integer; const tname: MarshaledAString);

However the lua 5.3 documentation declares it with a return type of void *. I suggest this change:

function luaL_testudata(L: lua_State; ud: Integer; const tname: MarshaledAString): Integer;

Thanks for your great work in translating the C headers, it helped me tremendously.

Hello,
thanks for your very nice units.
I adapted them to work with Delphi XE2. The only modifications required are:

1. substitute $ENDIF with $IFEND in the conditional compilation beginning with $IF defined(...)

2. insert this conditional block in VerySimple.Lua.Lib in Interface types part:
   // Compile for Delphi <= XE2
   {$IF CompilerVersion<=23}
   MarshaledAString = PAnsiChar;
   PMarshaledAString = ^PAnsiChar;
   TMarshString = record
   s: string;
   function ToPointer(): PAnsiChar;
   end;
   TMarshaller = record
   s: string;
   function AsAnsi(s: string): TMarshString;
   end;
   {$ifend}

3. insert this conditional block in VerySimple.Lua.Lib under Implementation part:
   // Compile for Delphi <= XE2
   {$IF CompilerVersion<=23}
   function TMarshString.ToPointer(): PAnsiChar;
   begin
   Result:=PAnsiChar(AnsiString(s));
   end;
   function TMarshaller.AsAnsi(s: string): TMarshString;
   var
   ms: TMarshString;
   begin
   ms.s:= s;
   Result:= ms;
   end;
   {$ifend}

Of course it emulates types MarshaledAString and TMarshaller that are present only in newer versions of Delphi.
Regards

Giandomenico De Sanctis

Want to back this issue? Post a bounty on it! We accept bounties via Bountysource.

lua code
test = TTest.new();
test.dosomething();

how code the TTest in delphi?

delphi code

function TTest.new(L:lua_State):Integer;
var
obj:TTest;
begin
obj:=TTest.Create;
lua_pushobject(L,obj);
return 1;
end;

Want to back this issue? Post a bounty on it! We accept bounties via Bountysource.

1. Lua.LibraryPath is invalid
2. After fixing #1 nothing is printed in Memo. print function is not called at all.