hedgewars/uIO.pas
changeset 155 401f4ea24715
parent 154 5667e6f38704
child 159 63909aecb0ed
--- a/hedgewars/uIO.pas	Wed Sep 20 15:33:47 2006 +0000
+++ b/hedgewars/uIO.pas	Wed Sep 20 18:24:13 2006 +0000
@@ -40,6 +40,7 @@
 
 procedure SendIPC(s: shortstring);
 procedure SendIPCXY(cmd: char; X, Y: SmallInt);
+procedure SendIPCRaw(p: pointer; len: Longword);
 procedure SendIPCAndWaitReply(s: shortstring);
 procedure IPCCheckSock;
 procedure InitIPC;
@@ -145,6 +146,11 @@
    end
 end;
 
+procedure SendIPCRaw(p: pointer; len: Longword);
+begin
+SDLNet_TCP_Send(IPCSock, p, len)
+end;
+
 procedure SendIPCXY(cmd: char; X, Y: SmallInt);
 var s: shortstring;
 begin