hedgewars/uFLIPC.pas
branchqmlfrontend
changeset 12865 e33bcb9d5e9c
parent 12864 a03f245243b0
equal deleted inserted replaced
12864:a03f245243b0 12865:e33bcb9d5e9c
   171 var msg: TIPCMessage;
   171 var msg: TIPCMessage;
   172 begin
   172 begin
   173     msg.str[0]:= #0;
   173     msg.str[0]:= #0;
   174     msg.len:= len;
   174     msg.len:= len;
   175     msg.buf:= GetMem(len);
   175     msg.buf:= GetMem(len);
       
   176 
   176     Move(p^, msg.buf^, len);
   177     Move(p^, msg.buf^, len);
   177     ipcSend(msg, queueEngine)
   178     ipcSend(msg, queueEngine)
   178 end;
   179 end;
   179 
   180 
   180 procedure ipcToFrontendRaw(p: pointer; len: Longword);
   181 procedure ipcToFrontendRaw(p: pointer; len: Longword);