Calling Db functions in Pb - GameCreators Forum

Author

Message

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 20th Oct 2004 19:14

Link

Hello,

How can I do this? I mean for exemple call Make Object box Object, Width, Height, Depth in Pb.

Thanks in advance

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 20th Oct 2004 20:18 Edited at: 20th Oct 2004 20:20

Link

Firstly, you must look into the dbpro DLL string table

for your example, make objct is in DBProBasic3DDebug.dll
Open it with a software like Resource Hacker.

Here, you'll find in the string table the full command :
91, "MAKE OBJECT BOX%LFFF%?MakeBox@@YAXHMMM@Z%Object Number, Width, Height, Depth"

You see the final DBPro command : MAKE OBJECT BOX.
You also see that it ask for 1 integer ( L = Object number ) and 3 floats numbers ( FFF = Sizes )
You also see the internal DLL function : ?MakeBox@@YAXHMMM@Z

Under purebasic, you must open DLL , call function and close DLL
This way :

+ Code Snippet

If OpenLibrary( 1 , "DBProBasic3DDebug.dll" )
  funct_handler.l = IsFunction( 1 , "?MakeBox@@YAXHMMM@Z" )
  CallCFunctionFast( funct_handler , object.l , XSize.l , YSize.l , ZSize.l )
  CloseLibrary( 1 )
 EndIf

You can also directly create sub functions to help

+ Code Snippet

Procedure DBPMakeObjectBox( number.l , Xsize.f , Ysize.f , ZSize.f )
  If OpenLibrary( 1 , "DBProBasic3DDebug.dll" )
    funct_handler.l = IsFunction( 1 , "?MakeBox@@YAXHMMM@Z" )
    CallCFunctionFast( funct_handler , number , Xsize , Ysize , ZSize )
    CloseLibrary( 1 )
   EndIf
 EndProcedure

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 20th Oct 2004 20:37 Edited at: 20th Oct 2004 20:37

Link

I've no Pc around me Freddix. If this working using a dll ?

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 20th Oct 2004 20:39

Link

yes, you can create your own DLL in purebasic and call dbpro's API ... It's what I've done for X-Quad Editor.

All source code is inside my Purebasic's DLL and call all dbpro's DLL to work ....

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 20th Oct 2004 20:41

Link

Ok, Thanks

. I'll try this soon.

Back to top

Profile PM

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 21st Oct 2004 00:13

Link

I've tried your procedure and just converted it for a Dll :

+ Code Snippet


ProcedureCdll DBPMakeObjectBox( number.l , Xsize.f , Ysize.f , ZSize.f )
  If OpenLibrary( 1 , "DBProBasic3DDebug.dll" )
    funct_handler.l = IsFunction( 1 , "?MakeBox@@YAXHMMM@Z" )
    CallCFunctionFast( funct_handler , number , Xsize , Ysize , ZSize )
    CloseLibrary( 1 )
   EndIf
 EndProcedure

I've made the string table, no problem with the command under Db, but It don't display anything. I've made a sphere using the same number number after the function and Dbpro says me that the object already exist, but nothing on the screen.

Thanks for any help

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 21st Oct 2004 01:24

Link

normal.

your new procedure create the object calling DBPro's DLL

if you create another object using the same number, the object exist.

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 21st Oct 2004 01:44

Link

I don't understand, the problem is not with the number, but there's no box on the screen

Back to top

Profile PM

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 21st Oct 2004 06:53

Link

Nobody ?

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 21st Oct 2004 08:34

Link

send me your DLL source code and the dbpro source code that'll use the DLL
and I'll find the solution

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 21st Oct 2004 21:00

Link

Pb source code:

+ Code Snippet

ProcedureCdll DBPMakeObjectBox( number.l , Xsize.f , Ysize.f , ZSize.f )
  If OpenLibrary( 1 , "DBProBasic3DDebug.dll" )
    funct_handler.l = IsFunction( 1 , "?MakeBox@@YAXHMMM@Z" )
    CallCFunctionFast( funct_handler , number , Xsize , Ysize , ZSize )
    CloseLibrary( 1 )
   EndIf
 EndProcedure

String Table:

+ Code Snippet


STRINGTABLE
LANGUAGE LANG_FRENCH, SUBLANG_FRENCH
{
1, 	"Test Box%LFFF%DBPMakeObjectBox"
}

Dbpro source:

+ Code Snippet


Sync On 
Sync Rate 60

Test Box 1, 10.0, 10.0, 10.0

Do

Sync
Loop

Back to top

Profile PM

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 22nd Oct 2004 05:04

Link

Ok I see I'd forgotten the Glob Struct

. I like to know where the Glob struct can be found. I know It's in the last tutorial or in others threads, but where the list is originally taken from?

Thanks.

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 22nd Oct 2004 08:57

Link

Download the TPC tutorial available in Newsletter 22 and you'll get ALL you need to develop TPC using PureBasic

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 22nd Oct 2004 17:30

Link

Thanks !

Back to top

Profile PM

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 23rd Oct 2004 04:21 Edited at: 23rd Oct 2004 05:15

Link

I've Test the tutorial. All works fine except that I've have to use a 3d command like color backdrop, before I can see my 3d box created with the Pure Basic Dll ( using a Dbpro Command

).

Any Suggestions to fix that ?

Edit : Is It best to call DBProBasic3DDebug.dll each time I have a Procedure with a Db command or calling only one time at the beginning of the code ( in a procedure ) ?

Thanks

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 23rd Oct 2004 08:01 Edited at: 23rd Oct 2004 08:02

Link

your problem for the box is that if you call a DBPro's DLL from your plugin, compiler cannot actually know which DLL you'll call so, if there are no command that use the same DLL inside the DBPro source code, compiler will simply not include the required DLL ...
Result is that your DLL's calls make nothing
Simply add a 3D command inside your dbpro source code and the box should appear

What I've done for X4E is to create sub functions that does not open/close the library like :

+ Code Snippet

; ***************************************************************************************
Procedure.f ObjectSizeX( OBJECT.l )
  commandptr_handle.l = IsFunction( 1 , "?GetXSize@@YAKH@Z" )
  Flt.l = CallCFunctionFast( commandptr_handle, OBJECT )  
  Result.f = PeekF( @Flt )
  ProcedureReturn Result
 EndProcedure  
; ***************************************************************************************
Procedure.f ObjectSizeY( OBJECT.l )
  commandptr_handle.l = IsFunction( 1 , "?GetYSize@@YAKH@Z" )
  Flt.l = CallCFunctionFast( commandptr_handle, OBJECT )  
  Result.f = PeekF( @Flt )
  ProcedureReturn Result
 EndProcedure  
; ***************************************************************************************
Procedure.f ObjectSizeZ( OBJECT.l )  
  commandptr_handle.l = IsFunction( 1 , "?GetZSize@@YAKH@Z" )
  Flt.l = CallCFunctionFast( commandptr_handle, OBJECT )  
  Result.f = PeekF( @Flt )
  ProcedureReturn Result
 EndProcedure

so, in the main DLL procedures, I use something like :

+ Code Snippet

ProcedureCDLL.l SizesSum( ObjectNumber.l )
  If OpenLibrary( 1 , "DBProBasic3DDebug.dll" )
    X.f = ObjectSizeX( ObjectNumber )
    Y.f = ObjectSizeY( ObjectNumber )
    Z.f = ObjectSizeZ( ObjectNumber )
    Sum.l = X + Y + Z
    CloseLibrary( 1 )
   Else
    Sum.l = 0
   Endif
  ProcedureReturn Sum
 EndProcedure

I think it's faster

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 23rd Oct 2004 18:36 Edited at: 23rd Oct 2004 18:43

Link

I see.

Last Question : How do you know that a procedure needs the DBPro Core pointer ?

Thanks

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 24th Oct 2004 01:19 Edited at: 24th Oct 2004 01:21

Link

in fact, it's usefull for advanced ( and more optimised ) work.

You can send/receive string like it's mentionned in the tutorial but, the true correct way is this one for strings send/receive :
Here is the InitialiseCore functions to get *GlobPtr pointer.

+ Code Snippet

; *************************************************************************************** Initialize DarkBasicPro Core Pointer
Procedure InitialiseCorePtr()
  If OpenLibrary( 3 , "DBProCore.dll" ) 
    coreptr_handle.l = IsFunction( 3 , "?GetGlobPtr@@YAKXZ" )
    *GlobPtr = CallCFunctionFast( coreptr_handle );
    CloseLibrary( 3 );
  EndIf
EndProcedure

Here are 2 small functions that send/receive Strings to/from DBPro using the *GlobPtr and CreateDeleteString :

+ Code Snippet

; ProcedureCDLL ReceiveString( CFichier.l )
  If *GlobPtr = 0 : InitialiseCorePtr() : EndIf
  MyString.s = PeekS( CFichier.l )
  CallCFunctionFast(*GlobPtrCreateDeleteString, CFichier.l, 0 )
 EndProcedure

+ Code Snippet

ProcedureCDLL.l SendString( Teste.l )
  If *GlobPtr = 0 : InitialiseCorePtr() : EndIf
  Texto.s = "TRY"
  CallCFunctionFast(*GlobPtrCreateDeleteString, @temp.l, Len( Texto ) + 1 ) ; CreateString
  PokeS( Temp , Texto )
  ProcedureReturn Temp
 EndProcedure

Here is the perfect way for no problem inside dbpro

In first case, you must clear memory used by string sended by dbpro ( entering 0 for string length )
In second case, you must allocate string memory ( entering string length + 1 )

Sorry but I did take these informations from LEE after giving tutorial to TGC

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 24th Oct 2004 19:41

Link

1/ So the *GlobPtr is only for handle strings ?

2/ Why the TGC officials dlls are crypted? I know about the security but now, many users are using EzRotate for instance, and no way for using them in a Tpc ?

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 25th Oct 2004 02:15

Link

1 / Actually, it's the only USE I've found for *GlobPtr ... I'm sure it can be used for others things because the structure contain many things

2 / Even if they are crypted, you can look into the String Table to find the correct syntax to use to diectly call functions

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 25th Oct 2004 02:37

Link

But the string Table is Made with ???????++??????? ...

Don't know the syntax with this ...

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 25th Oct 2004 06:30

Link

look in the TPC tutorial in the last newsletter.
All is explained . I use Resource Hacker to insert my string tables inside the TPC Plugin
and, to found native String Table, I rip them from the DBP's DLL and modify them to fit my needs

The syntax is explained inside the TPC tutorial

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 25th Oct 2004 07:21

Link

Ok I'll Take a Look. Thanks for All Freddix

Back to top

Profile PM

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 25th Oct 2004 08:25 Edited at: 29th Oct 2004 04:33

Link

1/ I Don't understand. I know there's a way to found the build-in dbp commands, but I don't know how to get the eZrotate ( for instance, but the 3d Cloth/Physics and Enhancement Pack too), decorated functions names in the Dll ... because there's no one ....

here's one of the Enhancement Pack from the string Table ( using Res Hacker ):

16, "??+???????????

Can you see Something ?

[Edit]

2/ How do you exit from a point of a procedure without ending the program?

3/ Is a long can be used for a dword in Db?

Thanks.

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 26th Oct 2004 05:43 Edited at: 26th Oct 2004 05:45

Link

1 / use standard DLL not the extnesion that are crypted .
try to open DBProBasiC3DDEbug.dll with Resource Hacker for example
you'll find many string table containing all commands ...
Try to use DLL Undecorator for EZRotate ... maybe it'll work

It directly gives internal commands ...

2 / Don't know

3 / Yes

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 26th Oct 2004 08:09

Link

Ok thanks for answers

Back to top

Profile PM

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 29th Oct 2004 04:32

Link

Using DBProBasic3DDEbug.dll work correctly Using DBProBasic3DDEbug.dll work correctly, but I've try to open the DBProMemblocksDebug.dll in Pb, but it doesn't seems to work.

+ Code Snippet


If OpenLibrary(1, "DBProMemblocksDebug.dll")



Endif

The code inside the if statement is not executed...

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 29th Oct 2004 04:35

Link

I recommend you to open 1 library / channel
I always open DBProBasic3DDebug.dll in channel 1
DBProCore.Dll in Channel 3
...

so use the good channel for calls ...

I use memblocks in x4E to create grounds and it work perfectly from purebasic

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 29th Oct 2004 05:21

Link

I'm using the same channels as you for the DBProBasic3DDebug.dll and DBProCore.Dll

+ Code Snippet


If OpenLibrary(1, "DBProBasic3DDebug.dll")

Anything 
If OpenLibrary(2, "DBProMemblocksDebug.dll")
Anything 
Endif 

Endif

Is this working fine ?

Can you give me a simple exemple using DBProBasic3DDebug.dll and DBProMemblocksDebug.dll using the same scheme?

Thanks

Back to top

Profile PM

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 29th Oct 2004 22:43

Link

Oh I see my problem same as above, need to initialize Dlls :

+ Code Snippet

make object sphere 1, 1
make memblock 1, 1

If OpenLibrary(1, "DBProBasic3DDebug.dll")

Anything 
If OpenLibrary(2, "DBProMemblocksDebug.dll")
Anything 
Endif 

Endif

No way to do that inside dlls ?

Back to top

Profile PM

Freddix

AGK Developer

21

Years of Service

User Offline

Joined: 19th Sep 2002

Location: France

Posted: 30th Oct 2004 01:26

Link

don't forget to close dll when you finished your work with them !!!!

+ Code Snippet

If OpenLibrary( 1 , "DBProBasic3DDebug.dll" )
  ( do stuffs with Basic 3D )
  If OpenLibrary( 2 , "DBProMemblocksDebug.dll" )
    ( do stuffs with memblocks and basic 3D if you want )
    CloseLibrary( 2 )
   Endif
  CloseLibrary( 1 )
 Endif

Back to top

Profile PM Email Website

Tartopom

19

Years of Service

User Offline

Joined: 27th Jun 2004

Location:

Posted: 30th Oct 2004 04:00

Link

Thanks

Back to top

Profile PM

Sorry your browser is not supported!

DLL Talk / Calling Db functions in Pb