XProfan

« this Posting watts as Solution marked. »

- Page 2 -

there now on one computer by me weder a yet The others Solution functions what about me but the Number and Ports needed these fixe Solution:
Compile Mark Separation

 {$cleq}
cls
long comports=createAvailableCOMPortsList()
print "Anzahl:",getCount(comports)

whileLoop 0,getCount(comports)-1

    print getString$(comports,loop)

wend

destroyWindow(comports)
waitInput
end

proc createAvailableCOMPortsList

    long lst=create("list",0),h

    whileLoop 256

        h=openCom("COM"+str$(loop),0,0)
        case h>0 : addString(lst,"COM"+str$(loop))
        CloseCom(h)

    wend

    return lst

endProc

without Präkompi...
Compile Mark Separation

cls
var comports&=createAvailableCOMPortsList()
print "Anzahl:",getCount(comports&)

whileLoop 0,getCount(comports&)-1

    print getString$(comports&,&loop)

wend

destroyWindow(comports&)
waitInput
end

proc createAvailableCOMPortsList

    var lst&=create("list",0)
    var h&=0

    whileLoop 256

        h&=openCom("COM"+st$(&loop),0,0)
        case h&>0 : addString(lst&,"COM"+st$(&loop))
        CloseCom(h&)

    wend

    return lst&

endProc

zwischenablage01.png	12 kB

Hochgeladen:	12/17/10

Downloadcounter:
		Download

12/17/10 ▲

- Page 1 -

If you to if nmChars& time print nmChars& write, what becomes displayed?

Rolf
Koch

by me becomes code displayed, whatever it To mean has

by me too, I had but yet none computer, with the obiges quite no Chars showed - thatswhy interestingly what there with Pedro go is.

Matthias
Arlt

by me appear ditto only one leeres Window.
(and print nmChars& gives 0 back)

WinXP SP2, Win7 - XProfan 10/11/FreeProfan32 - Xpia

GDL

Hi,

by me too leeres Window.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

Test something GetLastError zurückgibt, How z.B. 122 for error_insufficient_buffer.
Compile Mark Separation

print external("kernel32.dll","GetLastError")
//od.m.xpse
print GetLastError()re>

GDL

it'll 2time zero zurückgegeben.

Windows7 Xprofan 8,9,10 [...]

[...]

understand, have unfortunately no idea.

GDL

apparently gehn The functions not.
If the function fails, the return value is zero.

Windows7 Xprofan 8,9,10 [...]

[...]

- Page 2 -

Uwe
''Pascal''
Niemeier

Hi people!

with the WideChar-Variante shining it To klappen:
Compile Mark Separation

window %maxX,%maxY
declare lpTargetPath#,Temp$
dim lpTargetPath#,65536
var nmChars&=external("kernel32.dll","QueryDosDeviceW",0,lpTargetPath#,65536)
var Pos&=0

if nmChars&

    while 1

        Temp$=stringw$(lpTargetPath#,Pos&)
        print Temp$
        Pos&=Pos&+len(Temp$)*2+1
        case Pos&>=nmChars&*2:break
        sleep 200

    endwhile

endif

dispose lpTargetPath#
waitinput

really schlau I will from the Result but not

BTW: what serial COM-Ports XP concerns:
HKEY_LOCAL_MACHINEHARDWAREDEVICEMAPSERIALCOMM

SeeYou
Pascal

03/18/10 ▲

with the Ansivariante get one well one String(aray) with z as Separator - at least sustain one so The "aktiven"/ mom. verfügb. COM-Ports with number. with Wide is vlt. zz the Sep..

03/18/10 ▲