diff -r 5a74923120d5 -r f373838129c2 hedgewars/uFLIPC.pas --- a/hedgewars/uFLIPC.pas Thu Apr 16 23:31:13 2015 +0300 +++ b/hedgewars/uFLIPC.pas Wed Apr 22 23:33:16 2015 +0300 @@ -10,6 +10,7 @@ procedure freeIPC; procedure ipcToEngine(s: shortstring); +procedure ipcToEngineRaw(p: pointer; len: Longword); //function ipcReadFromEngine: shortstring; //function ipcCheckFromEngine: boolean; @@ -85,6 +86,16 @@ ipcSend(msg, msgFrontend, mutFrontend, condFrontend) end; +procedure ipcToEngineRaw(p: pointer; len: Longword); +var msg: TIPCMessage; +begin + msg.str[0]:= #0; + msg.len:= len; + msg.buf:= GetMem(len); + Move(p^, msg.buf^, len); + ipcSend(msg, msgEngine, mutEngine, condEngine) +end; + procedure ipcToFrontendRaw(p: pointer; len: Longword); var msg: TIPCMessage; begin