Lua 5.1 for Delphi 2010

Monday, September 28th, 2009 | Delphi 2009, Delphi 2010, Delphi Programming, Lua

This is a Lua 5.1 Wrapper for Delphi 2009 and Delphi 2010 which automatically creates OOP callback functions.

“Lua
is a powerful, fast, lightweight, embeddable scripting language, it has been used in many industrial applications (e.g., Adobe’s Photoshop Lightroom), with an emphasis on embedded systems (e.g., the Ginga middleware for digital TV in Brazil) and games (e.g., World of Warcraft). Lua is currently the leading scripting language in games and it has a deserved reputation for performance. To claim to be “as fast as Lua” is an aspiration of other scripting languages.”

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);

Tags: ,

34 Comments to Lua 5.1 for Delphi 2010

Jolyon Smith
September 28, 2009

You might like to link to the Lua site so that people unfamiliar with Lua (as I was) can find out what it is.

http://www.lua.org/home.html

Dennis
September 28, 2009

Sure. Thanks for that hint!

FrancisR
September 28, 2009

Nothing in the download link

Dennis
September 29, 2009

Fixed. Download is working now, sorry.

Tony Danby
December 24, 2009

Tried this, good work, works nice ( had to recompile for D6 ). By the way, LUA has all of these IO,Math,OS etc.. libraries and it seems that I cannot use them in my lua scripts for this wrapper.

I have tried adding luaopen_io(LuaInstance );
under your luaopen_base(LuaInstance); line in the constructor, but to no avail.

Any ideas?

Dennis
December 25, 2009

luaL_openlibs(LuaInstance);

should load all libs

Gerhard Zintel
February 24, 2010

I can not compile this under Linux using Free pascal in Delphi mode. First error:
> fpc -Mdelphi LuaTest.dpr
LuaLib.pas(522,1) Fatal: Syntax error, “identifier” expected but “;” found
could easily be fixed by shifting the last comma from line 518 in front of line 520.

but than I have no idea how to fix the following errors:
Compiling ../Lib/LuaLib.pas
LuaLib.pas(283,3) Warning: cdecl’ared functions have no high parameter
LuaLib.pas(394,3) Warning: cdecl’ared functions have no high parameter
LuaLib.pas(397,3) Warning: cdecl’ared functions have no high parameter
LuaLib.pas(539,27) Error: Identifier not found “GetProcAddress”
LuaLib.pas(574,28) Error: Identifier not found “LoadLibrary”
LuaLib.pas(839,17) Error: Identifier not found “FreeLibrary”
LuaLib.pas(1146) Fatal: There were 3 errors compiling module, stopping

Any help is truly appreciated
Gerhard

Gerhard Zintel
February 24, 2010

To answer partly my own question:
To be compatible with Delphi/Windows I have to use the unit dynlibs that offers the missing functions.

Now your test program compiles with warnings but I get an access violation:
> ./LuaTest
EAccessViolation: Access violation

Program seems not to load the shared library im line 547 of LuaLib.pas

regards
Gerhard

Yaroslav
May 14, 2010

nice work!
I test your example on Delphi 6, and it works!
After some little changes to example program, not Lua units.
So, you may say that works not only 2009+ version.

Dennis
May 14, 2010

Yaroslav, thanks for your info!

ACID-LABS
June 14, 2010

:o,

ya, this is exactly what i was looking for! Thanks! Works fine on Delphi 2009 (DE/US). My boss will love this too xD

[...] Другая реализация (на базе LuaPascal) DelphiLua v1.3. Скачать. [...]

Frankie Espinoza
October 22, 2010

This is a great blog. Thanks for all your hard work and the info you give. I am hoping you post again soon.I wish u keep on.
Thank you
http://frankieespinoza.livejournal.com/878.html

Baty Kindt
January 28, 2011

Hi. I am a Pascal programmer. Been one all my life. All my code is in Pascal. Don’t know anything about C.
Now the world is turning ‘Mobile’. And I have to develop for Apple IOS and Android.
I am now trying Lua, specifically, Corona.
But I _need_ to use a lot of my Pascal code in the apps. I was hoping that with a LuaDelphi system, I could generate _pre-compiled_ modules, or whatever you want to call them, which can then be loaded into Lua and used in iPhone, iPad and Android devices.

Is there ANY way this could be done?

Thanks

Dennis
January 28, 2011

Corona is very nice (I use it, too!). It is not possible to load standard lua binary compiled modules (luac) into Corona. But with the new Windows version of Corona you don’t even need a Mac. You may develop with LuaDelphi and copy&paste the Lua-source code (not the binaries) into corona editor. But this doesn’t make anything easier – you’re programming with LUA (not pascal)…

Dennis
January 28, 2011

oh and btw: any extensions to the Lua language (or object interaction) you’re building with LuaDelphi aren’t available in the Corona-LuaCore-system…

maxiducoli
April 4, 2011

hi, i’m not a great programer for delphi, but is the only language i know :p
can you send to my mail some compile code with source.
I want to know how luadelphi works and try to do something.
thank you and sorry my poor english, i’m from Argentina.
maxiducoli@gmail.com is my mail.

Dennis
April 4, 2011

@maxiducoli:
Just download the ZIP, extract and load “LuaTest.dpr” in the folder “\Examples”. It’s a ready-to-compile Test project with the LUA.DLL already included in the folder.

Yaroslav
November 9, 2011

Now I fully appreciate your work :)
All existing delphi-to-lua bindings is only for before-unicode delphi.
Thanx for your job!

Dennis
November 9, 2011

You make take a look at Lua4Delphi, too:
http://www.simonjstuart.com/lua-projects/lua4delphi/

Yaroslav
November 10, 2011

2 Dennis
it isnt’t ready still :(((

Yaroslav
November 10, 2011

2 Dennis
it still not ready :(

Simon J Stuart
December 12, 2011

It’ll be ready VERY soon :)

I even have experimental (will develop it further after release) Unicode support with Lua (as in, actually passing Unicode values between Lua and Delphi).

Mars
December 25, 2011

Is it possible to pass a an object from Delphi to Lua?

Nikolai
April 28, 2012

Hi, Dennis!
Can I use your Lua Wrapper (LuaDelphi2010-v1.3) in a commercial game project, with closed source? Do I need to buy a license for this?
And can I change a small part of your code at the same time? For compatibility with my code.

Dennis
April 28, 2012

@nikolai:
do whatever you want with it – no license required (even for commercial use). It would be nice to get a short note if used in a project. thanks!

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

Nikolai
April 28, 2012

Thanks. It is excellent :) I am notifying you if my project will be completed.

won
December 26, 2012

How to use “require” ?

like this :

local mongodb = require “mongodb”

laggyluk
March 8, 2013

Hi
Great to see lua working with delphi :D
Any hints how to get current script line?
I tried something like that but it returns garbage:

procedure TLuaClass.printErr(s: string);
var
d:lua_Debug;
begin
lua_getstack(self.LuaInstance,1,d);
lua_getinfo(self.LuaInstance,pansichar(‘nS1′),d);
print(inttostr(d.currentline)+’: ‘+s);
end;

[...] [...]

lf
April 2, 2013

Dennis, hele me , how to read this file, i want read all table and number

MaxID = 7
Tax1 =1
Tax2 =2

Object GoldName = 1
{

Object Gold = 2
{

Object Gold = 3
{
ID = 2001
cast = 1
}
}

Object Silver = 4
{

Object Silver = 5
{
ID = 2002
broadcast = 1
}
}

Object Copper = 6
{

Object Copper = 7
{
ID = 2003
broadcast = 1
}
}
}

Dennis
April 2, 2013

@lf: this does not look like an xml file

parcel
June 29, 2013
parcel
June 30, 2013

Leave a comment

About Dennis D. Spreen

I'm an avid programmer working on a variety of platforms in a variety of languages with a wide technical interest.

QR Code

Search

Categories