hedgewars/uFLIPC.pas
branchqmlfrontend
changeset 11459 3c5d99013baf
parent 11457 78860824b5a5
child 11464 30397f91571c
--- a/hedgewars/uFLIPC.pas	Sat Dec 12 23:42:40 2015 +0300
+++ b/hedgewars/uFLIPC.pas	Mon Dec 14 00:24:03 2015 +0300
@@ -17,7 +17,7 @@
 
 procedure ipcToFrontend(s: shortstring);
 procedure ipcToFrontendRaw(p: pointer; len: Longword);
-function ipcReadFromFrontend: shortstring;
+function ipcReadFromFrontend: TIPCMessage;
 function ipcCheckFromFrontend: boolean;
 
 procedure registerIPCCallback(p: pointer; f: TIPCCallback);
@@ -212,9 +212,9 @@
     ipcReadFromEngine:= ipcRead(queueFrontend)
 end;
 
-function ipcReadFromFrontend: shortstring;
+function ipcReadFromFrontend: TIPCMessage;
 begin
-    ipcReadFromFrontend:= ipcRead(queueEngine).str
+    ipcReadFromFrontend:= ipcRead(queueEngine)
 end;
 
 function ipcReadToNet: TIPCMessage;