Emular una Variable Indexada tipo Buffer de VB6 a Fox

[Eugenio Guarente]

Saludos a todos..

Como puedo emular en VisualFoxPro, un envio a un OCX de una Variable indexada tipo Buffer de VisualBAsic6. Especificamente es el HIDComm.ocx de Microchip, Aca tengo el codigo en Visual Basic 6, que funciona perfecto, pero no encuentro la forma de emular la variable indexada Buffer tipo Byte a VisualFoxPro. Gracias de Antemano. 

Private Sub Command1_Click()

  Dim Buffer() As Byte

Dim BufferSize As Long

Redim Buffer(16)

HIDComm1.Connect

Buffer(0) = CByte(Text1.Text)

Buffer(1) = CByte(text2.Text)

BufferSize = 2

                HIDComm1.WriteTo Buffer, BufferSize

                Buffer =HIDComm1.ReadFrom(BufferSize)

                If BufferSize < 2 Then Exit Sub

                     LAbel1.CAption = Buffer(0) & Buffer(1)

End Sub

[Daniel Sánchez]

Podría ser algo como esto

dimension buffer(2)

buffersize=2

hidcomm1.connect

buffer(1)=thisform.text1.value  &&no se que hace cbyte

buffer(2)=thisform.text2.value

hidcomm1.writeto(@buffer,buffersize)

*/esta otra tampoco se como podría ser ya que hidcomm1.readfrom devuelve un tipo array el cual es cargado o direccionado a buffer

*/podria ser que se recupere dato por dato del array

buffer(1)=hiddcom1.readfrom(1)

buffer(2)=hidcomm1.readfrom(2)

? buffer(1)

? buffer(2)

--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú

[Eugenio Guarente]

Gracias Daniel.

Lo pruebo hoy y te aviso.