yo estoy realizando un programa con el cual me comunico con un dispositivo conecto al puerto usando MSCOMM, hasta aqui todo bien.
con el siguente codigo configuro el puerto y envio un paquete de inicio de sesion al dispositivo.
Public Sub configurapuerto()
If MSComm1.PortOpen = True Then
'Parametros de configuracion de puerto
'abrir puerto
MSComm1.PortOpen = False
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = velocidad & "," & paridad & "," & tamaño & "," & parada
'Paquete de inicio de sesion
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z1"
MSComm1.Output = Chr$(3)
MSComm1.Output = "h"
Else
'Parametros de configuracion de puerto
'abrir puerto
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = velocidad & "," & paridad & "," & tamaño & "," & parada
'Paquete de inicio de sesion
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z1"
MSComm1.Output = Chr$(3)
MSComm1.Output = "h"
End If
End Sub
luego para enviar un mensaje al dispositivo hago lo siguiente:
rivate Sub BtnEnviaMsj_Click()
limpiar
If Textbox1.Text = "" Then
MsgBox "Digite Texto a enviar Por favor", vbInformation
configurapuerto
'mesaje de estado idle o de reposo
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z8"
MSComm1.Output = Chr$(3)
MSComm1.Output = "a"
Else
configurapuerto
'convierte texto en decimales
convertir
'mesaje de estado idle o de reposo
MSComm1.Output = Chr$(2)
MSComm1.Output = "Z8" + Textbox1.Text
MSComm1.Output = Chr$(3)
MSComm1.Output = Chr$(Text2.Text)
'cerrar puerto
MSComm1.PortOpen = False
Salir:
Label5.Caption = "Mensaje Enviado!!!"
Label5.Visible = True
End If
End Sub
muy bonito todo... jajajaja
bueno el problema esta en que necesito hacer esto desde una DLL y la verdad no se como hacerlo ya estuve intentando y no he podido, quisiera alguna ayuda de como poder solucionar esto.
gracias por la atencion
Por qué no usas la Clase cSocketMaster? Es espectacular!