OpenEuphoria

This does not work on XP

• Posted by Rod Damon <roddamon at bellsouth.net> Jan 07, 2006
• 546 views

The following routine works just fine on WIN98 but bombs on my XP. WHY?
I can program Euphoria just fine, but not API.
Can someone with API programming knowlege help me.
This is part of my windows printing package that I posted awhile back.
Now I know why there have been some complaints on the forum.

Any help would be appreciated. Thanks in advance.

-- print.ew --
--originally by Jacques Deschenes, api_wrap.zip

include machine.e include dll.e

** added from win_misc.ew function peeksz(atom pStr) peek string zero return from allocated memory a string terminated by zero integer c,i sequence str str = {} i = 1 c = peek(pStr) while c do str = str & c c = peek(pStr+i) i = i + 1 end while return str end function

constant iEnumPrinters = define_c_func(winspool,"EnumPrintersA",{C_INT,C_INT,C_INT, C_INT,C_INT,C_INT,C_INT},C_INT)

constant PRINTER_ENUM_DEFAULT = 1

global function DefaultPrinterName()

pNeeded = allocate(4) mem_set(pNeeded,0,4) pReturned = allocate(4) mem_set(pReturned,0,4) first try to know how many bytes needed for pPInfo5 ok = c_func(iEnumPrinters,{PRINTER_ENUM_DEFAULT,NULL,5,0,0,pNeeded,pReturned}) needed = peek4u(pNeeded) pPInfo5 = allocate(needed) mem_set(pPInfo5,0,needed) ok = c_func(iEnumPrinters,{PRINTER_ENUM_DEFAULT,NULL,5,pPInfo5,needed, pNeeded,pReturned}) free(pNeeded) free(pReturned) if not ok then free(pPInfo5) return {} else PrinterName = peeksz(peek4u(pPInfo5)) free(pPInfo5) return PrinterName end if end function

Rod Damon }}}