equal
deleted
inserted
replaced
16 procedure ipcToFrontend(s: shortstring); |
16 procedure ipcToFrontend(s: shortstring); |
17 procedure ipcToFrontendRaw(p: pointer; len: Longword); |
17 procedure ipcToFrontendRaw(p: pointer; len: Longword); |
18 function ipcReadFromFrontend: shortstring; |
18 function ipcReadFromFrontend: shortstring; |
19 function ipcCheckFromFrontend: boolean; |
19 function ipcCheckFromFrontend: boolean; |
20 |
20 |
21 procedure registerIPCCallback(p: pointer; f: TIPCCallback); cdecl; export; |
21 procedure registerPreviewCallback(p: pointer; f: TIPCCallback); cdecl; export; |
22 |
22 |
23 implementation |
23 implementation |
24 |
24 |
25 var callbackPointer: pointer; |
25 var callbackPointer: pointer; |
26 callbackFunction: TIPCCallback; |
26 callbackFunction: TIPCCallback; |
131 FreeMem(msg.buf, msg.len) |
131 FreeMem(msg.buf, msg.len) |
132 end |
132 end |
133 until false |
133 until false |
134 end; |
134 end; |
135 |
135 |
136 procedure registerIPCCallback(p: pointer; f: TIPCCallback); cdecl; export; |
136 procedure registerPreviewCallback(p: pointer; f: TIPCCallback); cdecl; export; |
137 begin |
137 begin |
138 callbackPointer:= p; |
138 callbackPointer:= p; |
139 callbackFunction:= f; |
139 callbackFunction:= f; |
140 callbackListenerThread:= SDL_CreateThread(@listener{$IFDEF SDL2}, 'ipcListener'{$ENDIF}, nil); |
140 callbackListenerThread:= SDL_CreateThread(@listener{$IFDEF SDL2}, 'ipcListener'{$ENDIF}, nil); |
141 end; |
141 end; |