Ejemplo en VB para convertir a Delphi
Hola a todos.
Tengo una situación un poco crítica. Puede alguno ayudarme a reescribir este procedimiento en Delphi?
Private Sub Command1_Click()
Dim sAux As String
Dim lAux As Long
Dim lreturn As Long
Const FLD_XNUMBER = 6
sAux = Chr$(&H4) & Chr$(&H2)
AddField sAux
sAux = Chr$(&H0) & Chr$(&H0)
AddField sAux
Call SendCommand
'Initialize string
sAux = Space(10)
'Debug to check answer
'no time out. just for debugging
lreturn = 1
lreturn = GetMessageField(sAux, lAux, FLD_XNUMBER)
DoEvents
MsgBox (sAux)
End Sub
Funciona perfectamente en VB. He hecho de todo pero en Delphi no me funciona.
Muy agradecido anticipadamente.
Saludos.
Fabio.
|