[vb6]Seriale: invia e attendi risposta

[Mods]

Da poco sto facendo dei lavoretti con la seriale in Visual Basic. In particolare sto facendo un programma per lo scambio file tra pc. Per fare dei controlli particolari dovrei fare una cosa del tipo:

Invia Messaggio
Attendi Risposta Positiva
Inizia processo

Ad esempio in Java io lo facevo così:

out.write(richiesta);  //invio della richiesta
String risposta= in.readln(); //blocca il codice finché non si riceve una risposta
if(risp=="OK") {
  //fai processo
}

E' possibile fare una cosa così anche in VB?

[saraX]

Puoi usare il controllo MSComm.
Per poterlo utilizzare devi aggiungere la componente:
Microsoft Comm Control 6.


Sara.

[Mods]

Sì, scusa, non l'avevo specificato. Io uso l'MSCOMM, solo che a differenza di Java, quando ricevo qualcosa essa mi genera l'evento OnComm. Io cercavo invece un modo per bloccare il codice finché non ricevi una risposta, come nell'esempio fatto. Sai se è possibile farlo?

[saraX]

Sai che non riesco a capire bene la situazione?
Non conosco la sintassi java... ma cosa intendi tu per bloccare il codice?

...che fino a quando non arriva risposta dall'altro PC il programma chiamante deve restare in uno stato di blocco totale?

...quale handshaking usi?

ciao
Sara.

[Mods]

sì, esatto: fino a quando non arriva risposta dall'altro PC il programma chiamante deve restare in uno stato di blocco ...

[saraX]

perchè?

non che mi voglia fare i fattacci tuoi...

cmq. io utilizzerei un buffer,
dichiarato a livello della form dove inserisco la componente MScomm, e gli accoderei tutto quello che mi arriva sull'RS232 attraverso un ciclo dal quale si esce solo a condizione che mi arrivi un certo dato che tu chiami "risposta positiva", in questo modo penso che se non aggiungi al ciclo un doEvents, automaticamente rimanga impallato ad aspettare...

non so se mi sono spiegata bene, ma non so nello specifico quale sarà la tua applicazione...

Sara.

[Mods]

In poche parole devo inviare un file e per farlo lo suddivido a pacchetti di 1024 byte l'uno. Dopo aver inviato un pacchetto, prima di inviarne uno nuovo volevo che mi venisse data una conferma dall'altro pc. Che metodo proporresti per farlo?

[TrigunXX]

Quello che stai cercando di fare infatti è un po' la struttura di scambio di pacchetti TCP/IP via rete solo che tu li scambi dalla seriale...
dovrai fare controlli di sovraccarico dei dati da spedire, di ricezione con ACK di risposta e altre cose....Comunque non hai una struttra complessa di PC visto che dovrebbero essere solo 2 quindi salti il processo di instradamento tipico nella rete WEB

Io ti consiglio di mettere un Timer che verrà avviato una volta spedito il pacchetto con un refresh di pochi millisecondi e quest'ultimo continuerà a verifica che non ci siano dati in arrivo sulla porta...se arrivano controlla che sia la risposta (magari metti un HEADER di testa del tipo "OK")

Di + non ti so' dire xkè io la MSCOMM non l'ho mai presa in mano ma mi sembra strano che non abbia un evento che intercetti i pacchetti!!! Il blocco totale del programma mi sembra inutile....

Basta solo una variabile di verifica nel Timer (o nell'evento del MSCOMM di dati ricevuti)... se la risposta è arrivata allora setto la variabile=True

Nel resto del programma racchiudi il codice in una if variabile=true then ...esegui codice.... end if

[Mods]

Ah, ok, grazie. Quindi dici che si può fare a meno di questo controllo per lo scambio pacchetti nella seriale?

Cmq un evento che intercetti i pacchetti ce l'ha, è l'onComm.

[TrigunXX]

Non ho detto che si puo' fare a meno... ho detto di non averlo mai usato perchè non ho 2 pc per fare programmi in grado di comunicare con la seriale....Cmq se non lo vuoi usare dovresti prenderti in mano le API che gestiscono tutto ....ma mi sembra un lavoro troppo difficile e lungo