Convertion VC++ -> PureBasic

Phlos · Post by **Phlos** » Fri May 16, 2003 7:20 pm

Salut,

J'ai besoin d'aide. Il faut que je convertisse ce code en Pure Basic, mais je sais pas du tout le faire. C'est une sorte de structure (ou tableau je ne sais pas) dont le pointeur est renvoyÃ© par la fonction "GetMyAPIInfo".

Je prÃ©cise que la fonction "GetMyAPIInfo" est une fonction dans une dll

Merci d'avance.

--------------------------------------------------------------------
IN ENGLISH:
Hello,

I need help. I need to make a convertion of this code to Pure Basic, but i dont know how to do this. It is a structure (or an array, i dont know...lol).

The function "GetMyAPIInfo" is a function of a DLL

Thanks.

Code: Select all

typedef struct
{
	char *module_name;
	char *function_name;
	char *myfunc_name;
}MYAPIINFO;

MYAPIINFO myapi_info[] =
{
	{"WSOCK32.DLL", "socket(a, b, c)", "mysocket"},
	{"WSOCK32.DLL", "closesocket(a)", "myclosesocket"},
	{NULL,NULL,NULL}
};

MYAPIINFO *GetMyAPIInfo()
{
	return &myapi_info[0];
}

ebs · Post by **ebs** » Fri May 16, 2003 10:05 pm

Phlos,

Here is my translation:

Code: Select all

Structure MYAPIINFO
  module_name.l
  function_name.l
  myfunc_name.l
EndStructure

Dim myapi_info.MYAPIINFO(3)

myapi_info(0)\module_name = @"WSOCK32.DLL"
myapi_info(0)\function_name = @"socket(a, b, c)"
myapi_info(0)\myfunc_name = @"mysocket"

myapi_info(1)\module_name = @"WSOCK32.DLL"
myapi_info(1)\function_name = @"closesocket(a)"
myapi_info(1)\myfunc_name = @"myclosesocket"

myapi_info(2)\module_name = 0
myapi_info(2)\function_name = 0
myapi_info(2)\myfunc_name = 0

Procedure.l GetMyAPIInfo()
  ProcedureReturn @myapi_info(0)
EndProcedure

; just to be sure its all there!
Debug PeekS(myapi_info(0)\module_name)
Debug PeekS(myapi_info(0)\function_name)
Debug PeekS(myapi_info(0)\myfunc_name)

Debug PeekS(myapi_info(1)\module_name)
Debug PeekS(myapi_info(1)\function_name)
Debug PeekS(myapi_info(1)\myfunc_name)

Debug GetMyAPIInfo()
Debug PeekS(PeekL(GetMyAPIInfo()))

If anyone can find errors, please post them.

Regards,
Eric

dmoc · Post by **dmoc** » Fri May 16, 2003 10:18 pm

Excuse me Eric if I'm wrong, can't check at the mo:

I think these are pointers anyway?

Code: Select all

Structure MYAPIINFO 
  module_name.s
  function_name.s 
  myfunc_name.s
EndStructure

So...

Code: Select all

myapi_info(0)\module_name = "WSOCK32.DLL" 
myapi_info(0)\function_name = "socket(a, b, c)" 
myapi_info(0)\myfunc_name = "mysocket" 

myapi_info(1)\module_name = "WSOCK32.DLL" 
myapi_info(1)\function_name = "closesocket(a)" 
myapi_info(1)\myfunc_name = "myclosesocket" 

myapi_info(2)\module_name = 0 
myapi_info(2)\function_name = 0 
myapi_info(2)\myfunc_name = 0 
...
Procedure.l GetMyAPIInfo() 
  ProcedureReturn @myapi_info(0)\module_name
EndProcedure

...and if that doesn't work do this...

Code: Select all

Structure MYAPIINFO
  dummy.l
  module_name.s
  function_name.s 
  myfunc_name.s
EndStructure
...
Procedure.l GetMyAPIInfo() 
  ProcedureReturn @myapi_info(0)\dummy+4
EndProcedure

PS: "Dummy" may refer to me, it's been a long day

ebs · Post by **ebs** » Fri May 16, 2003 10:27 pm

dmoc,

That was my first attempt. It will work when you assign strings (array elements 0 and 1), but you'll get an error when you try to assign a number (0) to a string variable (array element 2):

Code: Select all

; this is OK
myapi_info(0)\module_name = "WSOCK32.DLL"
myapi_info(0)\function_name = "socket(a, b, c)"
myapi_info(0)\myfunc_name = "mysocket"

; so is this
myapi_info(1)\module_name = "WSOCK32.DLL"
myapi_info(1)\function_name = "closesocket(a)"
myapi_info(1)\myfunc_name = "myclosesocket"

; this gives an error
myapi_info(2)\module_name = 0
myapi_info(2)\function_name = 0
myapi_info(2)\myfunc_name = 0

That's why I went with long variables instead of strings. If there is a way to assign a NULL string (not an empty string ""), then I think using the string variables is the better way to go. Do you know how?

Eric

Phlos · Post by **Phlos** » Fri May 16, 2003 11:01 pm

Thanks a lot guys, but after debugging the right code is here :

Code: Select all

Structure MYAPIINFO 
  module_name.s
  function_name.s 
  myfunc_name.s
EndStructure 

Dim myapi_info .MYAPIINFO(3) 

myapi_info(0)\module_name = "WSOCK32.DLL" 
myapi_info(0)\function_name = "socket(a, b, c)" 
myapi_info(0)\myfunc_name = "mysocket" 

myapi_info(1)\module_name = "WSOCK32.DLL" 
myapi_info(1)\function_name = "closesocket(a)" 
myapi_info(1)\myfunc_name = "myclosesocket" 

Procedure GetMyAPIInfo() 
  ProcedureReturn myapi_info()
EndProcedure

Other question : Can we use a list of strings like C++ ? I mean for example :

Code: Select all

 myapi_info(0) = "WSOCK32.DLL",  "socket(a, b, c)",  "mysocket"

Because it is boring to do :

Code: Select all

myapi_info(0)\module_name = "WSOCK32.DLL" 
myapi_info(0)\function_name = "socket(a, b, c)" 
myapi_info(0)\myfunc_name = "mysocket"

dmoc · Post by **dmoc** » Fri May 16, 2003 11:13 pm

Can we use a list of strings like...

We wish! You could read it in as data (see the manual for details) but it's still not as convenient.

Null? I supose for Phlos's purpose it's now academic (and maybe best avoided anyway?) but there is #NULL defined, but as zero, so that's no use. Try this and see if you can make any sense of it :roll:

Code: Select all

a.s
b.s = ""
Debug (a = b)
End

dmoc · Post by **dmoc** » Fri May 16, 2003 11:17 pm

Ha! Just had an idea...

PokeS(@myapi_info(0), "WSOCK32.DLL"+chr(0)+"socket(a, b, c)"+chr(0)+"mysocket")

Maybe have to frigg about with the @myapi_info(0)

On second thoughts... what a crap idea! Time for bed... See ya!

Phlos · Post by **Phlos** » Sat May 17, 2003 8:56 am

Thanks.