PHPickerDelegate Derleme Sorunu [ÇÖZÜLDÜ]

[codder71]

Öncelikle hocam cevaplarınız için çok teşekkür ederim. @emozgun @emailx45

Hocam izin konusuna gelince picker gerçekten izin gerektirmiyor. Ben dosya görüntülemesi izni aktif olmamasına rağmen ios da ve androide kendi diyalog penceresi dahilinde imageleri uygulamama aktarabiliyorum. Tabiki bu benim kontrolümde kesinlikle değil uygulamayı kullanan kontrolünde oluyor. Muhtemelen de güvenilir olduğu için izin sistemi kaldırılmışlar buda hem biz geliştiricilere hem de uygulama kullanıcılarına büyük kolaylık oldu. 

Aynı zamanda ayrı bir diyalog penceresi dizayn etmek zorunda da bizi bırakmamış oldular. File Selector gibi sistemler ise arka planda klasörler içinde gezmemizi de sağladığı için izin isteme sistemine dayanıyor. Kullanıcı ister istemez izin ekranı görünce tereddüt ediyor maalsef hatta kullanmak dahi istemeyebiliyor. 
Bunları göz önünde bulundurunca picker tarzı diyalog işlemleri daha ben açısından en azından ön plana çıkıyor.

Bu arada güzel haber   sorunu çözdüm.

    
@emailx45 hocamın alta paylaştığı örnek kodda da olduğu gibi TNSItemProviderBlockMethod3 içeren fonksiyonun içeriği buradaki istediğim işlemi desteklediğini gördüm.
TNSItemProviderBlockMethod3 bu metodun içeriğini kütüphaneden kontrol ettiğimde ise  TNSItemProviderBlockMethod3 = procedure(data: NSData; error: NSError) of object; böyle bir prosedür eşitliğini farkettim. Kendi prosedürümü buraya göre uyarladığımda kod sorunsuz çalıştı.

TPHPickerDelegate.LoadCompleted(data: NSData; error: NSError);

procedure TPHPickerDelegate.picker(picker: PHPickerViewController; didFinishPicking: NSArray); cdecl;
var
 I: Integer;
 ResultItem: PHPickerResult;
begin
 FResimNo := FOwner.Resim_list.Items.Count;
 Son_Count := didFinishPicking.count;

 if (didFinishPicking <> nil) and (didFinishPicking.count > 0) then
 begin
   FOwner.Bekleme_Durumu(True);

   for I := 0 to didFinishPicking.count - 1 do
   begin
     ResultItem := TPHPickerResult.Wrap(didFinishPicking.objectAtIndex(I));

     if ResultItem.itemProvider.hasItemConformingToTypeIdentifier( StrToNSStr('public.image') ) then
     begin
     try

      ResultItem.itemProvider.loadDataRepresentationForTypeIdentifier(
      StrToNSStr('public.image'), LoadCompleted );

     except on e : Exception do
     begin
       FOwner.Bildirim_Mesaji(e.Message, True, False);
     end;
     end;

     end;

   end;

 end
 else
 begin
   FOwner.Bekleme_Durumu(False);
   FOwner.Bildirim_Mesaji('Resim Seçimi İptal Edildi.', True, False);
 end;

 picker.dismissViewControllerAnimated(True, nil);

end;