XProfan

« Dieser Contribución wurde como Solución gekennzeichnet. »

- Página 2 -

Como nun en una Rechner en me weder el una todavía el otro Solución funktioniert y yo aber el número y Ports brauchte esta fixe Solución:
Kompilieren Marca Separación

 {$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 Marca Separación

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

whileLoop 0,getCount(comports&)-1

    imprimir getString$(comports&,&bucle)

wend

destroyWindow(comports&)
waitInput
end

proc createAvailableCOMPortsList

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

    whileLoop 256

        h&=openCom("COM"+str$(&bucle),0,0)
        caso h&>0 : addString(lst&,"COM"+str$(&bucle))
        CloseCom(h&)

    wend

    volver lst&

endProc

zwischenablage01.png	12 kB

Hochgeladen:	17.12.2010

Ladeanzahl:
		Descargar

17.12.2010 ▲

- Página 1 -

Si usted antes if nmChars& veces imprimir nmChars& schreibst, qué se adecuado?

Rolf
Koch

En me se Code adecuado, qué De todos modos lo a bedeuten ha

En me auch, Yo hatte aber todavía no Rechner, en el obiges gar no Chars zeigte - tambor interessant qué como en Pedro los es.

Matthias
Arlt

En me erscheint ebenfalls sólo una leeres Ventana.
(y imprimir nmChars& son 0 zurück)

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

GDL

Hi,

en me auch leeres Ventana.

Servus
Georg

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

[...]

Test algo GetLastError zurückgibt, como z.B. 122 para error_insufficient_buffer.
Kompilieren Marca Separación

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

GDL

Lo se 2veces Null zurückgegeben.

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

[...]

Verstehe, habe desafortunadamente no Concepto.

GDL

Anscheinend gehn el Características no.
If the function fails, the volver value is zero.

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

[...]

- Página 2 -

Uwe
''Pascal''
Niemeier

Hi Personas!

Mit el WideChar-Variante scheint lo a klappen:
Kompilieren Marca Separación

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 voluntad Hice el Ergebnis pero no

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

SeeYou
Pascal

18.03.2010 ▲

En Ansivariante bekommt uno wohl una String(Array) con z como Separador - zumindest erhält uno así el "aktiven"/ mom. verfügb. COM-Ports con Nummer. En Wide es vlt. zz el Sep..

18.03.2010 ▲