XProfan

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

- Seite 2 -

Da nun auf einem Rechner bei mir weder die eine noch die andere Lösung funktioniert und ich aber die Anzahl und Ports brauchte diese fixe Lösung:
Kompilieren Markieren Separieren

 {$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

Ohne Präkompi...
Kompilieren Markieren Separieren

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"+str$(&loop),0,0)
        case h&>0 : addString(lst&,"COM"+str$(&loop))
        CloseCom(h&)

    wend

    return lst&

endProc

zwischenablage01.png	12 kB

Hochgeladen:	17.12.2010

Ladeanzahl:
		Herunterladen

17.12.2010 ▲

- Seite 1 -

Wenn Du vor if nmChars& mal print nmChars& schreibst, was wird angezeigt?

Rolf
Koch

Bei mir wird Code angezeigt, was auch immer es zu bedeuten hat

Bei mir auch, ich hatte aber noch keinen Rechner, bei dem obiges gar keine Chars zeigte - drum interessant was da bei Pedro los ist.

Matthias
Arlt

Bei mir erscheint ebenfalls nur ein leeres Fenster.
(und print nmChars& gibt 0 zurück)

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

GDL

Hi,

bei mir auch leeres Fenster.

Servus
Georg

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

[...]

Test mal was GetLastError zurückgibt, wie z.B. 122 für error_insufficient_buffer.
Kompilieren Markieren Separieren

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

GDL

Es wird 2mal Null zurückgegeben.

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

[...]

Verstehe, habe leider keine Idee.

GDL

Anscheinend gehn die Funktionen nicht.
If the function fails, the return value is zero.

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

[...]

- Seite 2 -

Uwe
''Pascal''
Niemeier

Hi Leute!

Mit der WideChar-Variante scheint es zu klappen:
Kompilieren Markieren Separieren

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

Wirklich schlau werde ich aus dem Ergebnis aber nicht

BTW: Was serielle COM-Ports unter XP betrifft:
HKEY_LOCAL_MACHINEHARDWAREDEVICEMAPSERIALCOMM

SeeYou
Pascal

18.03.2010 ▲

Bei der Ansivariante bekommt man wohl ein String(Array) mit z als Separator - zumindest erhält man so die "aktiven"/ mom. verfügb. COM-Ports mit Nummer. Bei Wide ist vlt. zz der Sep..

18.03.2010 ▲