Get video from medialibrary IOS

  

I have this code to get video from medialibrary but i can’t play it.

var
Service:IFMXVideoManagerService;

begin
if TPlatformServices.Current.SupportsPlatformService(IFMXVideoManagerService,
IInterface(Service)) then
begin
Service.GetVideoFromLibrary;
end;

Help me to get the name of the file or advise the method for playing videos from media library in Delphi FMX IOS

Update:

I found this sample but only got image even you select video from medialibrary. Or may be i wrong?

var
ImageService: IFMXTakenImageService;
Params: TParamsPhotoQuery;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXTakenImageService,
IInterface(ImageService)) then
begin
Params.RequiredResolution := TSize.Create(640, 640);
Params.OnDidFinishTaking := DoDidFinish;
ImageService.TakeImageFromLibrary(ScanfromImage, Params);

end;

end;

procedure TMainForm.DoDidFinish(Image: TBitmap);
begin

end;

Any suggestions?

Comments are closed.