Socket que funciona hasta la segunda vuelta

[Enan0]

Ya vi cual es tu Error te Falta un #13#10 despues del '1'
seria

Código Delphi [-]

......
.....
....Sendtext('1'+#13#10);
....
....
...

Igual aca te dejo un cliente y un servidor esta hecho con los Sockets de la paleta Internet y el codigo es de delphi 5 (seria 100 % compatible con delphi6) cualquier error que te de que Falta algo referente a Variant's , agrega dicha Unit en los uses

http://rapidshare.de/files/37237645/Sockets.rar.html

Saludos
PD; Si podes con Los indy Sockets bueno estaria que los uses. pero la verdad el server de Indy a mi me vuelve loco y lo puedo hacer funcionar como quiero

[Phacko]

Que tal Enan0??? disculpa mi total falta de agradecimiento, tuve que dejar por un buen tiempo esto y despues se me olvido lo que estaba haciendo, ya después lo retome y se soluciono, la verdad ya ni recuerdo que fue lo que hice, pero lo que me aconsejaste lo voy a poner en marcha en otro proyectiyo que he comenzado con socket's, nuevamente gracias.

Saludos.

Buena madrugada por allá, buena tarde por acá.