socket programing
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
burakb44 · 2012-06-04 11:53

Hi, I met with the new Lazarus. bound clientten server on socket
programming. I want to send a message from the server to client, but
could not. Can you help me.

server code rad studio xe
Server: TServerSocket;


client code  // lazarus wince pda

 srvip := '10.144.1.23';
 soc := fpsocket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
 if soc=-1 then
 begin
   showmessage('Socket error');
   exit;
 end;

 adr.sin_family := AF_INET;
 adr.sin_port := htons(1234);
 if srvip='' then
   adr.sin_addr := StrToNetAddr('127.0.0.1')
 else adr.sin_addr := StrToNetAddr(srvip);
 if not Connect (soc,adr,Sin,Sout) then
 begin
 ShowMessage('connect error : '+NetAddrToStr(adr.sin_addr));
 exit;
 end;     
 fpshutdown(soc,0);
 CloseSocket(soc);

----------------------------------------------------------------------
Leledumbo · 2012-06-04 23:01

Well... I see no server code nor client code reading from server, it
only connects then shutdown.

----------------------------------------------------------------------
burakb44 · 2012-06-05 06:00

Quote from: Leledumbo on June 05, 2012, 01:01:20 amWell... I see no
server code nor client code reading from server, it only connects then
shutdown.

server code

var
Server: TServerSocket;

begin
  server.active := false;
  server.port    := 1234;
  server.active := true;
end;

procedure TForm1.ServerClientConnect(Sender: TObject; Socket:
TCustomWinSocket);
begin
  Liste.Items.Add(Socket.RemoteHost+'--'+Socket.RemoteAddress+'--
'+Inttostr(Socket.RemotePort))
end;

procedure TForm1.ServerClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Liste.Items.Add(Socket.RemoteHost+'--'+Socket.RemoteAddress+'--
'+Inttostr(Socket.RemotePort))
end;

procedure TForm1.ServerClientRead(Sender: TObject; Socket:
TCustomWinSocket);
var
gelenmesaj : string[255];
uzunluk    : integer;
begin
  liste.Items.Add(socket.ReceiveText);
  Socket.SendText('okey')
end;


I have written to the server program stdudio rad. I used ServerSocket
component.
Lazarus client code written above the arm-ce. cilentten server message
is going smoothly. How to read messages sent from server clientte but
could not do it.

information about how to give? The sample code

----------------------------------------------------------------------
Leledumbo · 2012-06-05 08:56

After successful connection to server, you need to read what the
server sent using fprecv. One question; do you really have to use the
plain socket unit instead of using a high level one like lNet or
synapse?