Socket VB6

[Digowarta 0]

Olá a todos!

estou tentando desenvolver uma comunicação do palm (HB++) com um programa servidor em VB!

o problema eh que eu envio o seguinte comando no palm:

Write sConnect, "select bd from config"[hbWriteNoNull]
Read sConnect, s[hbReadLine]

bom, isso cai nessa rotina:

Private Sub sock_ConnectionRequest(ByVal requestID As Long)
  If sock.State = sckListening Then ' if the socket is listening
	sock.Close ' reset its state to sckClosed
	sock.Accept requestID ' accept the client
  End If
End Sub

certo, esta eh a parte que recebe aceita a conexão, depois ele recebe os valores nesse Sub:

Private Sub sock_DataArrival(ByVal bytesTotal As Long)
  sock.GetData strData ' load received data into strData
  txtOther.Text = strData ' show new string
End Sub

blza, entao eu mandei o select lá do palm e recebi ele no vb, mando ele pro banco faço a pesquisa e (agora é o problema) tenho que retornar ele pro palm!

 

muito bem, eu devo usar (acho que sim, nao sei) o comando sock.SendData Resultado

acontece que isso so funciona no sub sock_ConnectionRequest() ou seja, não funciona pq eu preciso que ele leia o parametro no DataArrival e so depois envie as informações!

e assim ele manda em branco pro palm e dá pau á no comando "Read"

 

Se alguém souber como eu resolvo isso... ou der alguma luz... fico mt grato!

 

abraço!

[Marhault 1]

A função parar enviar é SendData mesmo... Estranho não estar enviando nada...

Tem como postar como você está tentando usar a função SendData dentro do DataArrival?