Delphi + Socket Client-Servidor

[DSilva]

Boa tarde, gostaria de uma ajuda dos amigos, estou precisando do seguinte processo.

Atualmente uso duas aplicaçoes utilizando socket usando texto de um lado para outro tudo certo.

agora estou precisando fazer uma rotina que o meu cliente solicita uma consulta para o meu servidor via socket,

e o servidor execute um select no banco de dados e me retorne para o cliente o resultado dessa consulta num formato de query

no lado do cliente em posse de query vou andar nela e fazer meu insert ou update.

existe alguma forma de fazer isso utilizando minha estrutura atual.

Obrigado .

 

 

[xyberx]

 Com indy, ou se quiser use o meu REST Dataware que é um WebService que é muito simples e todo SQL, você pode pegar o Dado do Seu SQL Direto.

 Caso queira fazer com indy, procura na NET, Chat TCP/IP Indy, vai achar muita coisa que faz o que vc quer, que na verdade é muito mais muito fácil mesmo.

[Daniel Simoes]

Veja também o exemplo do ACBrTCPServer 

 

[DSilva]

Obrigado por me responde, 

Daniel, olhei o exemplo do ACBrTCPServer mas nao sei como fazer com que o servidor devolva ao cliente uma consulta no formato de (tabela ou quary ou ate mesmo formato Json).

eu sei que  existe DatSnap ja testei e funciona, mas o problema é eu ter que migrar as duas aplicaçoes que tenho hoje em socket.

algum exemplo se possivel.

[Daniel Simoes]

Eu usaria um parser de JSON 

Mas você pode criar o seu próprio padrão, como por exemplo os campos separados por Pipe e um registro por linha 

[DSilva]

Opa, hum,

No lado do servidor estao eu posso usar mais ou menos assim: Socket.SendText(Json); sendo que dentro de Json em forma de perser.

No lado do cliente como que eu vou andar nisso para inserir no banco.

obrigao.

 

 

[xyberx]

Cara, usa o REST Dataware, ele é baseado no Datasnap e já faz isso tudo, trazendo os dados numa Query minha e vc passa um SQL normalmente como componente Query qualquer.

 https://sourceforge.net/projects/rest-dataware-componentes/

 É Opensource, não precisa fazer nada só usar.