/usr/src/castle-game-engine-6.4/services/castlephotoservice.pas is in castle-game-engine-src 6.4+dfsg1-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | {
Copyright 2017-2018 Michalis Kamburelis and Jan Adamec.
This file is part of "Castle Game Engine".
"Castle Game Engine" is free software; see the file COPYING.txt,
included in this distribution, for details about the copyright.
"Castle Game Engine" is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
----------------------------------------------------------------------------
}
{ Operating system Photo library integration (TPhotoService). }
unit CastlePhotoService;
{$I castleconf.inc}
interface
uses Classes;
type
{ TPhotoService enables to store/retrieve images to/from the system Photos
app. It may also request user to take a new photo with the camera.
At the moment, only storing images is implemented.
}
TPhotoService = class(TComponent)
public
class procedure StoreImage(APath: string);
end;
implementation
uses CastleMessaging;
class procedure TPhotoService.StoreImage(APath: string);
begin
Messaging.Send(['photoservice-store-image', APath]);
end;
end.
|