I want to use synapse send message and file,but why my code doesn't
work
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
shffh · 2021-12-24 02:12

server:
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.Button1Click(Sender: TObject);var 
serverSocket,RemoteSock:TTCPBlockSocket;  str:string;  n:integer; 
recvSocket:TSocket;begin  serverSocket:=TTCPBlockSocket.Create; 
serverSocket.CreateSocket;  serverSocket.Bind('127.0.0.1','8081'); 
serverSocket.Listen;  Memo1.Lines.Add('开始监听！'); 
recvSocket:=serverSocket.Accept;  RemoteSock:=TTCPBlockSocket.Create; 
RemoteSock.Socket:=recvSocket; 
Memo1.Lines.Add(RemoteSock.GetRemoteSinIP+'
 '+IntToStr(RemoteSock.GetRemoteSinPort));  
str:=RemoteSock.RecvString(10000);  Memo1.Lines.Add(str);end; 
client:
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.Button1Click(Sender: TObject);var 
socketClient:TTCPBlockSocket;  content:string;begin 
socketClient:=TTCPBlockSocket.Create;  socketClient.CreateSocket; 
socketClient.Connect('127.0.0.1','8081'); 
Memo1.Lines.Add(socketClient.GetRemoteSinIP+'
 '+IntToStr(socketClient.GetRemoteSinPort));   content:='hello
synapse';   socketClient.SendString(content);end;
server is not receive any message( "hello synapse" ).

----------------------------------------------------------------------
af0815 · 2021-12-24 08:17

What is not working ? Have you any message ?

----------------------------------------------------------------------
Leledumbo · 2021-12-30 07:39

2 options:
Append LineEnding to your SendStringUse RecvPacket instead of
RecvStringFrom the RecvString doc:
QuoteMethod waits until data string is received. This string is
terminated by CR-LF characters. The resulting string is returned
without this termination (CR-LF)!
and SendString doc:
QuoteSend data string via connected socket. Any terminator is not
added! If you need send true string with CR-LF termination, you must
add CR-LF characters to sended string!