TCP IP CLient
lazarus / 35-Windows CE

----------------------------------------------------------------------
DooMGuarD · 2010-05-04 19:07

hi all

i ned to make a aplication for WinCE with a simple TCPIP Client, like
a chat...

i try indy and lnet but in both have a error whe compile for wince...

please send me documentation and componet for work tcpip client under
wince...

thanks

charles

----------------------------------------------------------------------
felipemdc · 2010-07-16 12:26

A little bit late, but tell me which compile error lnet has and then I
can try to help.

----------------------------------------------------------------------
tr_escape · 2011-02-10 12:29

It is working on windows 4.2




procedure TForm1.Button1Click(Sender: PObj);
var
 adr : TInetSockAddr;
 soc : Tsocket;
 buf : String[255];
 Sin,Sout : Text;
 i        : integer;

begin

 soc := fpsocket(AF_INET,SOCK_STREAM,IPPROTO_TCP);  //socket hazırlığı
 if soc=-1 then
 begin
 showmessage('Socket hatası');
 exit;
 end;

 adr.sin_family := AF_INET;                         //inet
yapılandırılması
 adr.sin_port := htons(501);                        //hangi port?
 if srvip='' then
 adr.sin_addr := StrToNetAddr('192.168.1.5')        //bağlanılacak ip
 else adr.sin_addr := StrToNetAddr(srvip);

 if not  Connect (soc,adr,Sin,Sout) then
 begin
   ShowMessage('Bağlantı hatası : '+NetAddrToStr(adr.sin_addr)); 
 //ip canlı değilse
   exit;
 end;

 buf := EditBox1.Text;
 Send(soc,buf,length(buf)+1,0);                     //gönderim adımı

 fpshutdown(soc,0);                                 //bağlantıyı kapat
 CloseSocket(soc);
 EditBox1.Text:= '';

end;