[Lazarus-es] cliente socket

[Rafael Bidegain]

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 (<
lazarus-es en lists.lazarus-ide.org>) escribió:

> 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
>


-- 
Rafael Bidegain

Ya que los cuerdos no hablan, hablará el loco.
(The Fool, Padraic Pearse)

# yo quiero educación libre. ¡YA!
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20200120/56f92fcf/attachment.html>