https://wiki.soldat.pl/index.php?action=history&feed=atom&title=TCP_Socket_Example 2026-05-26T02:25:00Z Revision history for this page on the wiki MediaWiki 1.30.0 https://wiki.soldat.pl/index.php?title=TCP_Socket_Example&diff=181&oldid=prev 2012-08-15T11:40:55Z

<p>Created page with &quot;As of 2.6.0, Soldat Server Scripts are now able to establish TCP Connections. &#039;&#039;&#039;&lt;pre&gt;NOTE: These features are only enabled when Safe Mode is turned off! Start the serv...&quot;</p> <p><b>New page</b></p><div>As of 2.6.0, Soldat Server Scripts are now able to establish TCP Connections.<br /> <br /> '''&lt;pre&gt;NOTE: These features are only enabled when Safe Mode is turned off!<br /> Start the server with -safe 0 to disable Safe Mode.&lt;/pre&gt;'''<br /> <br /> '''Socket Related Functions:&lt;br&gt;'''<br /> - ConnectSocket<br /> Use this function to create the socket and connect it. <br /> - CloseSocket<br /> Disconnect a socket created with CreateSocket and destroy from memory.<br /> - SendData<br /> Send a string to a socket.<br /> - ReadLnSocket<br /> Read a line from a socket to a variable (Line end character is 0A (chr(10))<br /> <br /> For your convenience, I have provided a basic example of how to put all these functions into practice.<br /> <br /> '''SocketExample.pas:&lt;br&gt;''' <br /> &lt;source lang=&quot;pascal&quot;&gt;<br /> {<br /> ////////////////////////////////////////////////<br /> //// Soldat Server TCP Socket Usage Example ////<br /> //// by EnEsCe - http://enesce.com ////<br /> //// Please leave this message if you use ////<br /> //// any of these functions! &lt;3 &lt;3 ////<br /> ////////////////////////////////////////////////<br /> }<br /> <br /> {<br /> Usage: (Creates socket in a seperate thread)<br /> CreateSocket('127.0.0.1',23073);<br /> Use the OnDataReceived event below for any data parsing<br /> }<br /> <br /> var<br /> SocketIndex: Integer;<br /> SocketConnected: Array of Boolean;<br /> <br /> procedure OnDataReceived(Index: Integer; Buffer: String);<br /> begin<br /> if (Index = 0) or (SocketConnected[Index] = false) then exit; // Disconnected socket?<br /> end;<br /> <br /> procedure MainSocketLoop(Index: Integer);<br /> var<br /> Buff: String;<br /> begin<br /> while SocketConnected[Index] do begin<br /> ReadLnSocket(Index,Buff);<br /> if Buff &lt;&gt; '' then OnDataReceived(Index,Buff);<br /> sleep(1);<br /> end;<br /> end;<br /> <br /> procedure OnConnected(Index: Integer);<br /> begin<br /> SetArrayLength(SocketConnected,GetArrayLength(SocketConnected)+2);<br /> ThreadFunc([Index],'MainSocketLoop');<br /> SocketConnected[GetArrayLength(SocketConnected)-1] := true;<br /> end;<br /> <br /> procedure OnDisconnected(Index: Integer);<br /> begin<br /> SocketConnected[GetArrayLength(SocketConnected)-1] := false;<br /> end;<br /> <br /> procedure ThreadedCreate(IP: String;Port: Integer;var IndexVar: Integer);<br /> begin<br /> ConnectSocket(IP,Port,IndexVar);<br /> OnConnected(IndexVar);<br /> end;<br /> <br /> procedure CreateSocket(IP: String;Port: Integer);<br /> begin<br /> ThreadFunc([IP,Port,SocketIndex],'ThreadedCreate');<br /> end;<br /> &lt;/source&gt;</div>

Freeman