Print Page - DLL call with 'ARRAY OF PCHAR' possible?

Title: DLL call with 'ARRAY OF PCHAR' possible?
Post by: HPW on December 07, 2004, 11:55:59 PM

I want to call such a exported delphi function:

Code Select Expand

FUNCTION MyExportedFunction( Param1 : INTEGER;  VAR Params : ARRAY OF PChar ) : BOOLEAN;

Is it possible to call a function with an 'ARRAY OF PCHAR' from newLISP?

Title:
Post by: Lutz on December 08, 2004, 05:05:58 AM

I assume "ARRAY of PCHAR" means "char * string[]". There is an example about this here: http://www.newlisp.org/index.cgi?page=Compiling_and_Importing_Libraries

towards the end of the page:

Code Select Expand

parameter   newLISP Call                      called function
type

String []    (foo (pack "ld ld ld 
                     (address "one")           foo(char * string[])
                     (address "two")
                     (assress "three")))

So you basically pack 32bit addresses of strings one after the other. I assume that "Param1":

MyExportedFunction( Param1 : INTEGER; VAR Params : ARRAY OF PChar )

contains the size of the array? or perhaps you have to pass the last member of the array as a null/0 ? somehow the Dephi function must know how big the array is!

Lutz

Title:
Post by: HPW on December 08, 2004, 12:43:06 PM

In fact it is not my function, it is the original neobook interface:

Code Select Expand

(import "hpwImage.nbp" "nbExecAction")

(nbExecAction (pack "ld" (address 3))(pack "ld ld ld ld ld ld" (address "RImage1")(address "10")(address "10")(address "50")(address "50")(address "clRed")))

And the integer is a function identifier to know which function is called.

But no success, it get only a ZERO back.

I am thinking to make a special wrapper-function for this.

Title:
Post by: Lutz on December 08, 2004, 01:01:55 PM

You dont need to pack the first parameter you can just pass the '3':

(nbExecAction 3 (pack "ld ld ld ld ld ld" (address "RImage1")(address "10")(address "10")(address "50")(address "50")(address "clRed")))

if the function is:

nbExecAction( Param1 : INTEGER; VAR Params : ARRAY OF PChar )

Lutz

Title:
Post by: HPW on December 09, 2004, 12:39:50 AM

Still no success with that.

I have asked on a delphi forum what so special with 'ARRAY OF PCHAR'

In the meantime I have made a solution, based on only using simple PCHAR. That is working fine.

Now I search a elegant LISP which does this:

From a list like this:

~~Quote~~
(("DllCmd1" "1" 3)

("DllCmd2" "2" 4)

("DllCmd3" "3" 5))

1: Commandname

2: Commandindex

3: Number of Param

generate this:

Code Select Expand

(set (sym "DllCmd1") (lambda (nbpara1 nbpara2 nbpara3)
              (DllExec "1" nbpara1 nbpara2 nbpara3)))
(set (sym "DllCmd2") (lambda (nbpara1 nbpara2 nbpara3 nbpara4)
              (DllExec "2" nbpara1 nbpara2 nbpara3 nbpara4)))
(set (sym "DllCmd3") (lambda (nbpara1 nbpara2 nbpara3 nbpara4 nbpara5)
              (DllExec "3" nbpara1 nbpara2 nbpara3 nbpara4 nbpara5)))

What is the best way?

Title:
Post by: HPW on December 09, 2004, 04:03:59 AM

My first try:

Code Select Expand

(setq dllcmdlst '(("DllCmd1" "1" 3)("DllCmd2" "2" 4)("DllCmd3" "3" 5)))

(define (test )
 (dolist (cmdlst dllcmdlst)
	(begin
	(setq nbparastr1 "")
	(setq nbparastr2 (string "DllExec "" (nth 1 cmdlst) "" "))
	(for (x 1 (last cmdlst)1)
		(begin
		(setq nbparastr1 (string nbparastr1 "nbpara" x " "))
		(setq nbparastr2 (string nbparastr2 "nbpara" x " "))))
	(set(sym (first cmdlst))
		(eval-string (string "'(lambda (" nbparastr1 ")(" nbparastr2 "))")))
	)
 )
)

Suggestions?

newLISP Fan Club

Forum => newLISP and the O.S. => Topic started by: HPW on December 07, 2004, 11:55:59 PM