Synapse more connections
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
Jake012345 · 2020-05-13 11:56

Hello!

Me again...
(Synapse)
So I want to write a program what can send and get more types of data.

what is correct? Or if neither, can you tell me the working and good
mode of it?

(And I want to do it for more clients as it seems)
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 var
listenersocket:TBlocksocket;      socket:array[1..100] of array[1..5]
of TBlocksocket;      socknum:integer;   //socket counter procedure
TForm1.Button1.Click(Sender: TObject);  var sz:integer;   //socket's
socket counterbegin  //Host   if Edit1.Text='' then Edit1.Text:='10'; 
listenersocket.bind(127.0.0.1,Edit1.Text)    repeat    if
listenersocket.CanRead(100) then begin      for sz:=1 to 5 do begin  
    socket[socknum][sz]:=listenersocket.Accept;       end;   
 socknum:=socknum+1;     end;   until false;end; Procedure
TForm1.FormCreate(Sender: TObject);begin  socknum:=1;end; 

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 var
listenersocket:TBlocksocket;      socket:array[1..100] of
TBlocksocket;      socknum:integer;   //socket counter procedure
TForm1.Button1.Click(Sender: TObject);  var sz:integer;   //socket's
socket counterbegin  //Host   if Edit1.Text='' then Edit1.Text:='10'; 
listenersocket.bind(127.0.0.1,Edit1.Text)    repeat    if
listenersocket.CanRead(100) then begin      for sz:=1 to 5 do begin  
    socket[socknum].CreateSocket;       
socket[socknum]:=listenersocket.Accept;       end;   
 socknum:=socknum+1;     end;    until false;end; Procedure
TForm1.FormCreate(Sender: TObject);begin  socknum:=1;end;  
Or just simply send different types of data, and the accept code
similar to 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 var
s:string;     s2:stream;     i:integer;     b:byte; Repeat //or an
'if' test to edge of any types?  If not(socket[socknum].RecvString='')
then ...  socket[socknum].RecvString(s); 
socket[socknum].RecvSream(s);  socket[socknum].RecvInteger(i); 
socket[socknum].RecvByte(b); until false;

----------------------------------------------------------------------
balazsszekely · 2020-05-13 18:01

@Jake012345
QuoteSo I want to write a program what can send and get more types of
data.OK. 

Quotewhat is correct? Or if neither, can you tell me the working and
good mode of it?We already did. Please take a look at the examples
available on synapse webpage.
Apparently you don't want to listen, which is perfectly fine, but then
please don't open new threads with the same questions.

PS: Your code is completely wrong.