XProfan

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 2 -

là eh bien sur einem calculateur chez mir weder qui une encore l'autre Solution funktioniert et je mais le nombre et Ports brauchte cet fixe Solution:
Kompilieren Marque Séparation

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

sans Präkompi...
Kompilieren Marque Séparation

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

whileLoop 0,getCount(comports&)-1

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

    Wend

    return lst&

endProc

zwischenablage01.png	12 kB

Hochgeladen:	17.12.2010

Downloadcounter:
		Download

17.12.2010 ▲

- page 1 -

si Du avant si nmChars& la fois imprimer nmChars& écris, quoi wird angezeigt?

Rolf
Koch

chez mir wird Code angezeigt, quoi que + subj. es trop bedeuten hat

chez mir aussi, je hatte mais encore keinen calculateur, chez dem obiges gar aucun Chars zeigte - tambour intéressant quoi là chez Pedro à l'attaque ist.

Matthias
Arlt

chez mir erscheint également seulement un leeres la fenêtre.
(et imprimer nmChars& gibt 0 zurück)

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

GDL

Hi,

chez mir aussi leeres la fenêtre.

salut
Georg

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

[...]

Test la fois quoi GetLastError zurückgibt, comment z.B. 122 pour error_insufficient_buffer.
Kompilieren Marque Séparation

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

GDL

Es wird 2la fois zéro retour.

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

[...]

Verstehe, habe malheureusement aucun concept.

GDL

Anscheinend gehn qui Funktionen pas.
Si le function fails, le return value is zero.

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

[...]

- page 2 -

Uwe
''Pascal''
Niemeier

Hi gens!

avec qui WideChar-variante scheint es trop marcher:
Kompilieren Marque Séparation

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 malain werde je aus dem Ergebnis mais pas

BTW: quoi serielle COM-Ports sous XP betrifft:
HKEY_LOCAL_MACHINEHARDWAREDEVICEMAPSERIALCOMM

SeeYou
Pascal

18.03.2010 ▲

chez qui Ansivariante bekommt on wohl un String(Array) avec z comme Séparateur - zumindest erhält on so qui "aktiven"/ mom. verfügb. COM-Ports avec numéro. chez Wide ist vlt. zz qui Sep..

18.03.2010 ▲