Indy10. TidTCPServer(Client), sending and receiving TStringStream.
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
shyub · 2022-03-02 07:31

From the client side, this is solved somehow like this:
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.Button2Click(Sender: TObject);var  S: String; 
ST:TStringStream;begin  ........................ 
........................  ST:=TStringStream.Create;   try   
ST.WriteString(S);    IdTCPClient1.Socket.Write(ST, ST.Size,true); 
except    ........................    ........................  end; 
ST.Free;end;//---------------------------------------------procedure
TForm1.Timer1Timer(Sender: TObject);var  S: String; 
ST:TStringStream;begin  ST:=TStringStream.Create; 
IdTCPClient1.Socket.ReadStream(ST);  S:=ST.ReadString(ST.Size); 
ST.Free;  ........................  ........................end;How to
do it on the server side?