Gracias Jesus.
Hoy retomé ese trabajo y tuve que hacer algunas modificaciones para compilar el cliente. (el server compiló sin problemas)
quedó así:
{$mode objfpc}{$H+}
uses sysutils, ssockets;
Const
TheHost = 'localhost';
ThePort = 4100;
var
S : String;
i : longint;
FSSConn : TInetSocket;
begin
S:='This is a textstring sent by the client'#10;
FSSConn := TInetSocket.Create(TheHost,ThePort);
With FSSConn do
begin
For I:=1 to 10 do
Write(S[1],Length(S));
S:='QUIT'#10;
Write(S[1],Length(S));
Free;
end;
end.
lo compilé así en win10:
C:\utiles\socket>..\lazarus\fpc\3.0.4\bin\x86_64-win64\fpc Client.pp Free Pascal Compiler version 3.0.4 [2018/05/19] for x86_64 Copyright (c) 1993-2017 by Florian Klaempfl and others Target OS: Win64 for x64
Compiling Client.pp
Linking Client.exe
46 lines compiled, 0.2 sec, 157328 bytes code, 6996 bytes data
ahora tengo que adaptarlo a lo que necesito (leer cadenas enviadas por el servidor y ponerlas en un TMemo)
saludos
El vie., 17 ene. 2020 a las 23:00, Jesus Reyes A. via Lazarus-es (<
Show quoted text 45 lines
En Fri, 17 Jan 2020 09:48:59 -0600, Rafael Bidegain via Lazarus-es <
lazarus-es en lists.lazarus-ide.org> escribió:
Hola!
Necesito desarrollar un cliente socket que se conecte al puerto 1005 del
localhost y guardar todo lo que se transmite desde ese puerto en Tmemo.
¿qué componente me recomiendan usar?
Esta aplicación va a ejecutarse en una pc con windows 10.
probé con sockets_laz.lp, pero tiene algunos inconvenientes, en principio
no compilaba por falta de la dependencia LCLBase, pero surgieron otros
errores. (voy a mandar un mensaje aparte)
gracias
--
Rafael Bidegain
Ya que los cuerdos no hablan, hablará el loco.
(The Fool, Padraic Pearse)
# yo quiero educación libre. ¡YA!
Hola Rafael,
No conozco el paquete sockets_laz así que no te puedo ayudar ahí, es
probable que ya este obsoleto. Lo que te puedo recomendar es que uses lo
que ya esta disponible en FPC, mira los ejemplos de fpc en
fpc\packages\fcl-net\examples\, si por alguna razón no estan disponibles en
tu instalación, revisa este enlace:
https://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/packages/fcl-net/examples/?diff_format=l
En su defecto, usaría synapse (
https://wiki.freepascal.org/Synapse ),
LNet o Indy.
Suerte!.
Jesus Reyes A.
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus-es
