Ver Mensaje Individual
  #1  
Antiguo 13-03-2018
freynoso freynoso is offline
Registrado
 
Registrado: oct 2006
Posts: 5
Reputación: 0
freynoso Va por buen camino
Red face 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.
Responder Con Cita