[VB6] Mettersi in ascolto sulla porta COM

[s|n3]

devo mettermi in ascolto sulla COM1 e leggere tutto quello che passa.

devo collegarmi ad un UPS di cui non ho il software di gestione.

qualche consiglio su come fare?

ho provato così:

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal _
lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, _
lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal _
dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long



Private Sub Form_Load()
Dim nPorta As Long 
nPorta = CreateFile("COM1", GENERIC_READ Or GENERIC_WRITE, _
1, 0&, OPEN_EXISTING, 0, 0)
If nPorta = -1 Then
MsgBox "Impossibile accedere alla porta seriale"
Exit Sub
End If
CloseHandle nPorta
End Sub

mi restituisce sempre -1

come posso fare?

[oregon]

Il parametro lpSecurityAttributes deve essere dichiarato ByVal

ByVal lpSecurityAttributes As Long

e, ovviamente, la porta non deve essere già utilizzata ...

[tas]

Hai provato con l'HyperTerminal per vedere se effettivamente dalla seriale arriva qualcosa?

[s|n3]

Originariamente inviato da oregon
Il parametro lpSecurityAttributes deve essere dichiarato ByVal

ByVal lpSecurityAttributes As Long

e, ovviamente, la porta non deve essere già utilizzata ...

sulla porta c'è l'ups....cosa intendi per già utilizzata?

[s|n3]

Originariamente inviato da tas
Hai provato con l'HyperTerminal per vedere se effettivamente dalla seriale arriva qualcosa?

eh in effetti sembra non arrivare niente.ma se l'ups ha un software che dialoga con lui sulla rs232 dovrà pur trasmettere qualcosa no?

[tas]

Può darsi che l'invio dei dati dall'UPS avvenga solo in risposta ad una stringa inviata dal pc... sei sicuro di aver impostato bene i parametri di comunicazione con la seriale?

[s|n3]

Originariamente inviato da tas
Può darsi che l'invio dei dati dall'UPS avvenga solo in risposta ad una stringa inviata dal pc... sei sicuro di aver impostato bene i parametri di comunicazione con la seriale?

2400 - 8 - N - 1

giusto?

[tas]

Originariamente inviato da s|n3
2400 - 8 - N - 1

giusto?

Boh, dipende dall'UPS!

[s|n3]

Originariamente inviato da tas
Boh, dipende dall'UPS!

eh...a saperlo come funzia st'ups...nessun manuale, nessuna specifica, niente di niente...d'altra parte il software lo vendono perchè dovrebbero aiutare ad autocostruirlo?

[tas]

A questo punto vai a tentativi (non senza aver cercato su google...) con l'hyperterminal, che tra l'altro dovrebbe essere in grado di determinare automaticamente i parametri migliori per la connessione.
Dopo di che devi trovare le stringhe da inviare per interagire con l'ups, che modello è?