Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Digowarta

Socket VB6

Recommended Posts

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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.