<div dir="ltr">Gracias Jesus.<div><br></div><div>Hoy retomé ese trabajo y tuve que hacer algunas modificaciones para compilar el cliente. (el server compiló sin problemas)</div><div><br></div><div>quedó así:<br></div><div><br></div><div>{$mode objfpc}{$H+}<br>uses sysutils, ssockets;<br><br>Const<br> TheHost = 'localhost';<br> ThePort = 4100;<br><br>var<br> S : String;<br> i : longint;<br> FSSConn : TInetSocket;<br>begin<br> S:='This is a textstring sent by the client'#10;<br> FSSConn := TInetSocket.Create(TheHost,ThePort);<br> With FSSConn do<br> begin<br> For I:=1 to 10 do<br> Write(S[1],Length(S));<br> S:='QUIT'#10;<br> Write(S[1],Length(S));<br> Free;<br> end;<br>end.<br></div><div><br></div><div><br></div><div>lo compilé así en win10:</div><div><div>C:\utiles\socket>..\lazarus\fpc\3.0.4\bin\x86_64-win64\fpc Client.pp<br>Free Pascal Compiler version 3.0.4 [2018/05/19] for x86_64<br>Copyright (c) 1993-2017 by Florian Klaempfl and others<br>Target OS: Win64 for x64<br>Compiling Client.pp<br>Linking Client.exe<br>46 lines compiled, 0.2 sec, 157328 bytes code, 6996 bytes data<br></div><div></div></div><div><br></div><div><br></div><div>ahora tengo que adaptarlo a lo que necesito (leer cadenas enviadas por el servidor y ponerlas en un TMemo)</div><div><br></div><div><br></div><div><br></div><div>saludos</div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">El vie., 17 ene. 2020 a las 23:00, Jesus Reyes A. via Lazarus-es (<<a href="mailto:lazarus-es@lists.lazarus-ide.org">lazarus-es@lists.lazarus-ide.org</a>>) escribió:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><u></u>
<div>En Fri, 17 Jan 2020 09:48:59 -0600, Rafael Bidegain via Lazarus-es <<a href="mailto:lazarus-es@lists.lazarus-ide.org" target="_blank">lazarus-es@lists.lazarus-ide.org</a>> escribió:<br><br><blockquote style="margin:0px 0px 0.8ex;border-left:2px solid rgb(0,0,255);padding-left:1ex"><div dir="ltr"><div>Hola!</div><div><br></div><div>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.</div><div><br></div><div>¿qué componente me recomiendan usar?</div><div>Esta aplicación va a ejecutarse en una pc con windows 10.<br></div><div><br></div><div>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)</div><div><br></div><div>gracias<br></div><div>-- <br><div dir="ltr">Rafael Bidegain<br><br>Ya que los cuerdos no hablan, hablará el loco.<br>(The Fool, Padraic Pearse)<br><br># yo quiero educación libre. ¡YA!<br><br></div></div></div>
</blockquote><div><br></div><div>Hola Rafael, </div><div><br></div><div>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: <a href="https://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/packages/fcl-net/examples/?diff_format=l" target="_blank">https://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/packages/fcl-net/examples/?diff_format=l</a></div><div> <br></div><div>En su defecto, usaría synapse ( <a href="https://wiki.freepascal.org/Synapse" target="_blank">https://wiki.freepascal.org/Synapse</a> ), LNet o Indy.</div><div><br></div><div>Suerte!.</div><div><br></div><div>Jesus Reyes A.</div></div>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus-ide.org" target="_blank">Lazarus-es@lists.lazarus-ide.org</a><br>
<a href="https://lists.lazarus-ide.org/listinfo/lazarus-es" rel="noreferrer" target="_blank">https://lists.lazarus-ide.org/listinfo/lazarus-es</a><br>
</blockquote></div><br clear="all"><div><br></div>-- <br><div dir="ltr" class="gmail_signature">Rafael Bidegain<br><br>Ya que los cuerdos no hablan, hablará el loco.<br>(The Fool, Padraic Pearse)<br><br># yo quiero educación libre. ¡YA!<br><br></div>