This Lua Wrapper is based on Lua-Pascal v0.2 by Marco Antonio Abreu
- converted PChar to PAnsiChar
- converted Char to AnsiChar
- added function LuaLibLoaded: Boolean;
- added a new base class (TLua) with OOP call back functions

Download
LuaDelphi2010-v1.3

History
1.3 Improved Callback, now uses pointer instead of object index. Modified RegisterFunctions to allow methods from other class to be registered, moved object table into TLua class
1.2  Added example on how to extend lua with a delphi dll
1.1  Improved global object table, optimized delphi function calls
1.0  Initial Release

Example
TLua automatically creates OOP callback functions for Delphi <-> Lua:

uses
  Lua, LuaLib;
 
type
  TMyLua = class(TLua)
  published
    function HelloWorld(LuaState: TLuaState): Integer;
  end;
 
function TMyLua.HelloWorld: Integer;
var
  ArgCount: Integer;
  I: integer;
begin
  writeln('Delphi: Hello World');
 
  ArgCount := Lua_GetTop(LuaState);
  writeln('Arguments: ', ArgCount);
  for I := 1 to ArgCount do
    writeln('Arg1', I, ': ', Lua_ToInteger(LuaState, I));
 
  // Clear stack
  Lua_Pop(LuaState, Lua_GetTop(LuaState));
 
  // Push return values
  Lua_PushInteger(LuaState, 101);
  Lua_PushInteger(LuaState, 102);
  Result := 2;
end;
 
var
  MyLua: TLua;
 
begin
  MyLua := TMyLua.Create;
  MyLua.DoFile('Helloworld.lua');
  MyLua.Free;
end;

helloworld.lua

print("LuaDelphi Test");
p1,p2 = HelloWorld(1,2,3)
print "Results:";
print (p1);
print (p2);

Some of them I really would like to see in Delphi Win32 and some I don’t like and disallowed it in our internal code creation rules. The most important I dislike is

“Variable everywhere and create a instance at the same time you declare.”

var
  path : String := System.IO.Path.GetFullPath(tbDatabase.Text);
  db : DataContext := new DataContext(path);
begin
  var i : Integer := 0;
  var contacts := from contact in db.GetTable<Contact>() select contact;
end.

Looks awkful to me (like VB). This is the code written by our long term code creation rules:

var
  Path: String;
  Db: DataContext;
  I: Integer := 0;
begin
  Path := System.IO.Path.GetFullPath(tbDatabase.Text);
  Db := new DataContext(Path);
  Contacts := from contact in db.GetTable<Contact>() select contact;
end;

I like the separation from var declaration and code.

You’ll get this error:  Expecting resource name or resource type name

The Solution is very simple (though it kept me searching some hours :

Use

cgrc.exe

(CodeGear Resource Compiler/Binder) instead!

Override the CreateParams method and insert

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_LEFT or WS_EX_RTLREADING or
    WS_EX_LEFTSCROLLBAR or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT;
end;

Now take a look at your BiDiMode settings – it may have the contrary effect if set to “bdRightToLeft”…


function TreeView1JSClick($sender, $params)
{

?>
//Add your javascript code here
tag=event.getTarget().tag;
alert(tag);

return(false);
<?php
}