blob: 6d433112a57d434b0d456769ec5ccf745ef9004b (
plain)
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
|
{ %fail }
unit tw20661;
{$mode objfpc}{$H+}
interface
const
PrescriptionStorageIntfId = '{C2F3C9F6-657C-4974-841A-4EBFF33B2180}';//'blik.prescriptionstorage';
DatasetProviderIntfId = '{B0B1501A-9266-48EA-B2E0-7EF23511D799}';
type
IDatasetPool = interface
['{F866EB5B-5B32-438E-918E-A56B031C73DA}']
procedure ReleaseDataset(Instance: pointer);
end;
{ TBlikServices }
TBlikServices = class
public
procedure ReleaseDataset(Instance: pointer);
end;
var
Services: TBlikServices;
implementation
{ TBlikServices }
procedure TBlikServices.ReleaseDataset(Instance: pointer);
begin
IDatasetPool.ReleaseDataset(Instance);
end;
end.
|
