Wikis / Unreal Wiki / Legacy:Creating A TCP Client

Class MyTcp extends TcpLink;
 
var int  RemotePort;    // Port of the server to connect
var char ServerAddress; // Address of the server to connect  // Seems to be string in UT2004
var string LF;          // Used for linefeed "\n" 
 
//------------------------------------------------------------------------------
 
// First function called (init of the TCP connection)
Function InitTcpLinkEventLogger()
 {
 LF = Chr(10); // Line feed char "\n"
 
 Log("InitTcpLinkEventLogger: Will start TCP connection!");
 
 Resolve(ServerAddress);   // Resolve the address of the server
}                     
 
//------------------------------------------------------------------------------
 
Function Cclose() // Closes the current connection.
{
 Close();
}
 
//------------------------------------------------------------------------------
 
Function int SendText (coerce string Str)  // Send the string "Str" + "line feed" char
{
 local int result;
 
 result = super.SendText(Str$LF);  // Call the super (send the text)
 Log ("SentText: " $Str$" , (Number of bytes sent: "$result$")");
 return result;
}
 
//--EVENTS--
 
// Called when the IP is resolved
Event Resolved( IpAddr Addr )
{
  Log("OK, Address resolved");
  Addr.Port = remotePort;
  BindPort();         // In UnrealTournament, the CLIENT has to make a bind to create a socket! (Not as a classic TCP connection!!!)
 
  ReceiveMode = RMODE_Event;  // Incomming messages are triggering events
  LinkMode = MODE_Text;       // We expect to receive text (if we receive data)
  Open(Addr);                 // Open the connection
 
  Log ("Connected => Port: "$Addr.port$" Address: "$Addr.Addr);
}
 
//------------------------------------------------------------------------------
 
// If the IP was not resolved...
Event ResolveFailed()
{
  Log("### Error, resolve failed!!!");
}
 
//------------------------------------------------------------------------------
 
event Opened()
{
  Log("Ok, connection opened");
}
 
//------------------------------------------------------------------------------
 
// If somebody has close the connection...
Event Closed()
{
  Log("Connection closed");
}
 
//------------------------------------------------------------------------------
 
// Called when a string is received
Event ReceivedText (string Text)
{
  // We have just received a string !
  Log("Read string: "$Text$" Size : "$Len(Text));
}
 
//------------------------------------------------------------------------------
 
defaultproperties
  {
  ServerAddress="127.0.0.1"  // Remote server address
  remotePort=3850            // Remote port number
  }

// Somewhere in a class.....
 
var MyTcp ATcp;  
 
 
simulated event PostBeginPlay()
  {
  Super.PostBeginPlay();          // call the super class
  ATcp=Spawn(class'MyTcp'); // Instanciate MyTCP class
  ATcp.InitTcpLinkEventLogger();  // Init the connection
  }
 
[...]
 
// Somewhere in a function in this class...
ATcp.SendText ("Hello world");    // The classic !