FMod wrapper plugin - first working plugin in delphi!

Author

Message

nz0

AGK Developer

17

Years of Service

User Offline

Joined: 13th Jun 2007

Location: Cheshire,UK

Posted: 15th Apr 2017 20:20

Link

Yes! Finally you have MOD/S3M/XM support in AppGameKit tier 1 (windows only because it uses a plugin).

Plugin attached with instructions how to set it up in AppGameKit and an example project.

If there's interest, I'll extend the functionality of the plugin to wrap up some more FMOD goodness.

My Robotron remake
My I,Robot remake WIP
My Defender remake

Attachments

Login to view attachments

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 17th Apr 2017 15:16

Link

Nice, the first DLL out of the stables. I'm not an Fmod user, but I'm sure it's a worthwhile plugin.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

RickV

TGC Development Director

24

Years of Service

User Offline

Joined: 27th Apr 2000

Location: United Kingdom

Posted: 18th Apr 2017 10:59

Link

Great Job nz0!

Works fine on my PC here.

I think the plugins are going to expand the AppGameKit landscape significantly!

Rick

Development Director
TGC Team

Back to top

Profile PM Email Website

KISTech

16

Years of Service

User Offline

Joined: 8th Feb 2008

Location: Aloha, Oregon

Posted: 18th Apr 2017 18:48

Link

Is there documentation somewhere that shows the steps to make a plugin for AppGameKit Tier 1?
I would really love to port my SQL Database plugin over from DBPro. It was written in C#.

Back to top

Profile PM Email Website

nz0

AGK Developer

17

Years of Service

User Offline

Joined: 13th Jun 2007

Location: Cheshire,UK

Posted: 18th Apr 2017 22:28

Link

Here's the documentation I referenced:

http://appgamekit.com/documentation/guides/14_plugins.htm

I did install dependency walker, but didn't need it because I export clean undecorated references.

My Robotron remake
My I,Robot remake WIP
My Defender remake

Back to top

Profile PM Email Website

Qugurun

Valued Member

9

Years of Service

User Offline

Joined: 8th Dec 2014

Playing: AppGameKit

Posted: 4th May 2017 16:16

Link

Hi, can you give an example for the Delphi project? Thank you.

https://www.instagram.com/qugurun/

Back to top

Profile PM

nz0

AGK Developer

17

Years of Service

User Offline

Joined: 13th Jun 2007

Location: Cheshire,UK

Posted: 5th May 2017 19:57

Link

Hi,

Here are some example functions in Delphi.

+ Code Snippet

function AddIntegers(const _a, _b: integer): integer; stdcall;
begin
  Result := _a + _b;
end;

function CountChars(_s: Pchar): integer; StdCall;
begin
  Result := Length(_s);
end;


exports
   AddIntegers,
   CountChars;

My Robotron remake
My I,Robot remake WIP
My Defender remake

Back to top

Profile PM Email Website

Qugurun

Valued Member

9

Years of Service

User Offline

Joined: 8th Dec 2014

Playing: AppGameKit

Posted: 7th May 2017 00:07 Edited at: 7th May 2017 00:46

Link

Thank you.

Tell me what I'm doing is not right?

https://www.instagram.com/qugurun/

Back to top

Profile PM

nz0

AGK Developer

17

Years of Service

User Offline

Joined: 13th Jun 2007

Location: Cheshire,UK

Posted: 7th May 2017 22:14 Edited at: 7th May 2017 22:14

Link

You also need an empty ReceiveAGKPtr() function in your delphi code which is not used in T1, but still needs to be there.
Also add it to your export list, but do not add it to the commands.txt

+ Code Snippet

function ReceiveAGKPtr() : Integer; StdCall;
begin
end;

My Robotron remake
My I,Robot remake WIP
My Defender remake

Back to top

Profile PM Email Website

Qugurun

Valued Member

9

Years of Service

User Offline

Joined: 8th Dec 2014

Playing: AppGameKit

Posted: 8th May 2017 00:01

Link

Thank you very much for helping me understand this.

https://www.instagram.com/qugurun/

Back to top

Profile PM

Qugurun

Valued Member

9

Years of Service

User Offline

Joined: 8th Dec 2014

Playing: AppGameKit

Posted: 8th May 2017 01:40

Link

Tell how to send a string and return string ?

+ Code Snippet

function GetStr(_s: String): String; StdCall;
begin
  Result := 'GetStr:' + _s;
end;

exports
   GetStr;

Does not work

https://www.instagram.com/qugurun/

Back to top

Profile PM

nz0

AGK Developer

17

Years of Service

User Offline

Joined: 13th Jun 2007

Location: Cheshire,UK

Posted: 8th May 2017 19:18

Link

I think you'll need to use PChar in delphi.

My Robotron remake
My I,Robot remake WIP
My Defender remake

Back to top

Profile PM Email Website

Qugurun

Valued Member

9

Years of Service

User Offline

Joined: 8th Dec 2014

Playing: AppGameKit

Posted: 24th May 2017 18:38 Edited at: 24th May 2017 18:39

Link

I got a full string in the Dolphi.

+ Code Snippet

//Delphi

function text(p: ShortString): integer; stdcall; //integer ->string etc, not work.
var
  buf: string;
  i: Integer;
begin
  buf := '';
  for i := 0 to Length(p) do
  begin
    if Chr(Ord(p[i])) in [' '..'~'] then
    begin
      buf := buf + Chr(Ord(p[i]));
    end else
    begin
       Break;
    end;
  end;
  buf:=Trim(buf);
  ShowMessage(buf);
end;

function ReceiveAGKPtr(): Integer; stdcall;
begin
end;

exports
ReceiveAGKPtr,
text;

The most interesting thing is that if you change the type of result from numeric to another, it does not work

+ Code Snippet

//Commands.txt
text,0,S,text,0,0,0,0

+ Code Snippet

//AGK
 #import_plugin myplugin
 myplugin.text('Sum: '+str(1+2))

Tell me please how to get the string back to AGK.

https://www.instagram.com/qugurun/

Back to top

Profile PM

nz0

AGK Developer

17

Years of Service

User Offline

Joined: 13th Jun 2007

Location: Cheshire,UK

Posted: 27th May 2017 17:15

Link

Your example delphi function has an incoming string and returns an integer - that's never going to work.

I just added a function which returns a string to AppGameKit as I'd not tried if before. It worked first time

Here's the delphi code - just basically converting an integer passed in to a string result. The simplicity is down to using the generic PChar type, which is casted in the result.

+ Code Snippet

function TestString(a: Integer) : PChar; stdCall;
begin
 Result:=PChar(InttoStr(a));
end;

and the definition in the commands.txt of course with a S for return type:

+ Code Snippet

TestString,S,I,TestString,0,0,0,0

My Robotron remake
My I,Robot remake WIP
My Defender remake

Back to top

Profile PM Email Website

nz0

AGK Developer

17

Years of Service

User Offline

Joined: 13th Jun 2007

Location: Cheshire,UK

Posted: 1st Jun 2017 23:21

Link

So, did you get the string functions working then, Qugurun?

My Robotron remake
My I,Robot remake WIP
My Defender remake

Back to top

Profile PM Email Website

nz0

AGK Developer

17

Years of Service

User Offline

Joined: 13th Jun 2007

Location: Cheshire,UK

Posted: 3rd Jun 2017 23:59

Link

I'm going to switch this plugin to the BASS player.
I've been messing around with it and it's much more flexible for future expansion.

I'll be able to provide sync effects for instance so you can use peak info for channels, instruments or custom. Also the FFT and raw data functions would make spec analyzers a breeze, as well as peak meters, real-time effects (gargle, reverb) and not just MODS and XM etc, but MP3, OGG, WAV and others.
I'll have to put a disclaimer into it if I release it, as BASS is free for non-commercial. I'll have to ask them if I can even put an AppGameKit wrapper on it, as my own use is free (I don't charge for my games) but you might.

My Robotron remake
My I,Robot remake WIP
My Defender remake

Back to top

Profile PM Email Website

nz0

AGK Developer

17

Years of Service

User Offline

Joined: 13th Jun 2007

Location: Cheshire,UK

Posted: 6th Jun 2017 23:38

Link