[VBA-Winsock] - Runtime error 5

[the_unforgiven]

Ciao a tutti, ho un problema che mi sta facendo uscire matto.
sto scrivendo un programma matlab interfacciato a VBA excel via socket
nel lato excel, che funge da SERVER, il codice importante è il seguente:

'declaration of the public variables
Public WithEvents Sock As MSWinsockLib.Winsock
Public DataFromMatlab As String
Public CDFdataTot As String
Public WbName As String

'*****************************************
'Run program and bind with MATLAB via socket
'*****************************************
Private Sub CommandButton1_Click()
Call createServSocket(9000)
'lunch program client
'Shell ("C:\USERS\xxxxxxx.bat")
End Sub


*************************
PROGRAM CODE
*************************


'************************
'Socket Manager Functions
'************************

Public Sub createServSocket(port As Integer)
Set Sock = New MSWinsockLib.Winsock
Sock.Protocol = sckTCPProtocol
Sock.LocalPort = port
Sock.Listen
TextBox1.Text = "Listening"
End Sub

Public Sub Sock_ConnectionRequest(ByVal requestID As Long)
If Sock.State = sckListening Then
Sock.Close
Sock.Accept requestID
TextBox1.Text = "Accepted"
End If
End Sub

Private Sub Sock_DataArrival(ByVal bytesTotal As Long)
Sock.GetData DataFromMatlab
TextBox1.Text = "Received: " + DataFromMatlab
ReadMessage (DataFromMatlab)
End Sub

Private Sub sock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Socket Error " & Number & ": " & Description
Sock.Close
End Sub

Private Sub Sock_Close()
Sock.Close
Sock.Listen
End Sub


La domanda è semplice
devo trasferire una stringa da matlab a excel
ho scritto un programma matlab che si connette e manda alcune stringhe su richiesta
la prima volta funge bene (excel riceve la stringa e la stampa nella textbox 1), dalla seconda in poi appare una finestra di debug in vba che recita

"Runtime Error 5"
"Routine call or argument not valid"


se entro in debug vedo che nella variabile DataFromMatlab la stringa c'è ed è corretta, ma appena faccio f8 per andare avanti la maledetta funzione sock.getdata non funge bene e mi resetta la variabile ad una stringa vuota.

Private Sub Sock_DataArrival(ByVal bytesTotal As Long)
(DEBUG POINT) Sock.GetData DataFromMatlab
TextBox1.Text = "Received: " + DataFromMatlab
ReadMessage (DataFromMatlab)
End Sub


la cosa che mi fa incazzare è che la stringa arriva tranquillamente, è la funzione della libreria che scazza!


Any idea????

grazie....
:D

[the_unforgiven]

UP :D

nessuno???

[Tesinevb]

Ciao a tutti, ho un problema che mi sta facendo uscire matto.
sto scrivendo un programma matlab interfacciato a VBA excel via socket
nel lato excel, che funge da SERVER, il codice importante è il seguente:




La domanda è semplice
devo trasferire una stringa da matlab a excel
ho scritto un programma matlab che si connette e manda alcune stringhe su richiesta
la prima volta funge bene (excel riceve la stringa e la stampa nella textbox 1), dalla seconda in poi appare una finestra di debug in vba che recita

"Runtime Error 5"
"Routine call or argument not valid"


se entro in debug vedo che nella variabile DataFromMatlab la stringa c'è ed è corretta, ma appena faccio f8 per andare avanti la maledetta funzione sock.getdata non funge bene e mi resetta la variabile ad una stringa vuota.

Private Sub Sock_DataArrival(ByVal bytesTotal As Long)
(DEBUG POINT) Sock.GetData DataFromMatlab
TextBox1.Text = "Received: " + DataFromMatlab
ReadMessage (DataFromMatlab)
End Sub


la cosa che mi fa incazzare è che la stringa arriva tranquillamente, è la funzione della libreria che scazza!


Any idea????

grazie....
:D


il problema è qyesto:

non fai nessun controllo sulla presenza o meno della stringa passata da linea di comando... in questo modo dai per assunto che ci sia, ottenendo appunto (nel caso essa manchi) l'errore che ti si è presentato. La prima stringa passata c'è probabile che la seconda non ci sia.

direi che è meglio prevedere un'operazione di default, nel caso in cui la stringa non venga passata, o magari la visualizzazione di un MsgBox che avverte l'utente che nessun parametro è stato passato.

in pratica:

If DataFromMatlab="" Then
MsgBox "Nessun parametro è stato passato!", vbCritical + VbOkOnly, "Attenzione!"
Exit Sub
Else
...
... Prosegue con il programma ...
...
End If