ResultItem.itemProvider.loadObjectOfClass(TUIImage.OCClass, LoadCompleted );

ResultItem.itemProvider.loadObjectOfClass(TUIImage.OCClass, LoadCompleted )

  type
   TPHPickerDelegate = class(TOCLocal, PHPickerViewControllerDelegate)
 private
   FResimNo: Integer;
   FOwner: TfrmSG_FotoSec;
 public
   constructor Create(AOwner: TfrmSG_FotoSec); cdecl;
   procedure picker(picker: PHPickerViewController; didFinishPicking: NSArray); cdecl;
   procedure LoadCompleted(Item: Pointer; Error: NSError); cdecl;
 end;

 {$ENDIF}

{$IFDEF IOS}

constructor TPHPickerDelegate.Create(AOwner: TfrmSG_FotoSec);
begin
 inherited Create;
 FOwner := AOwner;
end;

procedure TPHPickerDelegate.picker(picker: PHPickerViewController; didFinishPicking: NSArray); cdecl;
var
 I: Integer;
 ResultItem: PHPickerResult;
begin
try
 FResimNo := 0;

 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 <> nil) and (ResultItem.itemProvider <> nil) then
     begin
       if ResultItem.itemProvider.canLoadObjectOfClass(TUIImage.OCClass) then
       begin
         ResultItem.itemProvider.loadObjectOfClass(TUIImage.OCClass, LoadCompleted );
       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);

except on e : Exception do
 ShowMessage( e.Message );
end;
end;

procedure TPHPickerDelegate.LoadCompleted(Item: Pointer; Error: NSError); cdecl;
var
 IOSImage: UIImage;
 Dump: TBitmap;
begin
 if (Item = nil) or (Error <> nil) then
   Exit;

 Inc(FResimNo);
 IOSImage := TUIImage.Wrap(Item);
 Dump := UIImageToBitmap(IOSImage, 0, TSize.Create(1920, 1080));

 if Dump <> nil then
 begin
   FOwner.Resim_list.Items.Add.Text := 'Resim ' + FResimNo.ToString;
   FOwner.Resim_list.Items[FOwner.Resim_list.ItemCount - 1].Bitmap := Dump;
 end;
  FOwner.Bekleme_Durumu(False);
end;

{$ENDIF}

(07-07-2026, Saat: 23:06)emailx45 Adlı Kullanıcıdan Alıntı: 1) Beklenen işlemden farklı bir iş parçacığında kod yürütülmesi arasındaki çakışma nedeniyle olası çökme. Başka bir deyişle, mobil cihazlar genellikle eşzamansız iş parçacıklarında çalışır, oysa uygulama penceresi tarafından kullanılan iş parçacığı eşzamanlıdır (ana iş parçacığı). Bu nedenle, bu tutarsızlık kodunuzda meydana gelebilir!

2) Bir diğer faktör ise ARC'dir, yani kodda hala hayatta olmaları gereken noktadan önce ölen nesneler. Bu nedenle, mobil nesneler genellikle "arayüzler" olduğundan, kodunuz bağlam kapsamından ayrıldığı için nesneyi erken öldürüyor olabilir.

3) Kullanılan nesneleri ve iş parçacıklarını gözden geçirin!

4) Şuna benzer bir şey deneyin:

Kod:

procedure TPHPickerDelegate.LoadCompleted(Item: Pointer; Error: NSError); cdecl;
var
 IOSImage: UIImage;
begin
 if (Item = nil) or (Error <> nil) then
   Exit;

 IOSImage := TUIImage.Wrap(Item);
 
 // Kullanıcı arayüzünün ana iş parçacığında güncellenmesini sağlamak için TThread.Synchronize kullanıyoruz.
 TThread.Synchronize(nil, procedure
 var
   Dump: TBitmap;
 begin
   Inc(FResimNo);
   Dump := UIImageToBitmap(IOSImage, 0, TSize.Create(1920, 1080));
   
   if Dump <> nil then
   begin
     FOwner.Resim_list.Items.Add.Text := 'Resim ' + FResimNo.ToString;
     FOwner.Resim_list.Items[FOwner.Resim_list.ItemCount - 1].Bitmap := Dump;
     Dump.Free; // Oluşturulan bitmap'i serbest bırakmak önemlidir.
   end;
   FOwner.Bekleme_Durumu(False);
 end);
end;

Dikkate Alınması Gereken Ek Noktalar:
Bellek Yönetimi: UIImageToBitmap yeni bir TBitmap nesnesi oluşturur. Bunu serbest bırakmazsanız (Dump.Free), seçilen her fotoğraf için ciddi bir bellek sızıntısı yaşarsınız.

Saklama: PHPicker aktifken TPHPickerDelegate nesnesinin serbest bırakılmadığından emin olun. PHPicker genellikle delegeyi saklar, ancak onu oluşturan değişkenin doğru kapsamda olduğundan emin olmak iyi bir uygulamadır.

ResultItem.itemProvider.canLoadObjectOfClass(TUIImage.OCClass)

ResultItem.itemProvider.canLoadObjectOfClass(TUIImage.OCClass)

(08-07-2026, Saat: 18:08)emailx45 Adlı Kullanıcıdan Alıntı: iOS'in iç işleyişi hakkında derinlemesine bilgiye sahip değilim ancak bunun, kullanılan API fonksiyonlarının döndürdüğü nesne türüyle ilgili olabileceğinden şüpheleniyorum.
Başka bir deyişle, döndürülen nesne henüz görselin kendisi olmayabilir; bunun yerine, asıl bitmap'i oluşturmak için işlenmesi gereken ham veri olabilir.

PHPicker ile çalışırken, bir görselin yüklenip yüklenemeyeceğini kontrol etmek için Apple'ın önerdiği yaklaşım, doğrudan `UIImage` sınıfını kontrol etmek yerine `kUTTypeImage` (veya eşdeğer iOS tanımlayıcısı) kullanmaktır. Bunun nedeni, `itemProvider`ın görseli henüz bellekte `UIImage` formatında olmayan ancak `UIImage`e dönüştürülebilir bir formatta tutuyor olabilmesidir.

Önerilen çözüm: `canLoadObjectOfClass(TUIImage.OCClass)` kullanmak yerine, standart görsel türüyle birlikte `hasItemConformingToTypeIdentifier` kullanmalıyız.

Kod:

// iOSapi.UniformTypeIdentifiers veya iOSapi.MobileCoreServices birimini kullanın.
uses
 iOSapi.UniformTypeIdentifiers, iOSapi.Foundation;

// ... döngünüzün içinde:

if (ResultItem <> nil) and (ResultItem.itemProvider <> nil) then
begin
 // canLoadObjectOfClass yerine bir UTI (Uniform Type Identifier) kontrolü kullanın.
 if ResultItem.itemProvider.hasItemConformingToTypeIdentifier(UTTypeImage) then
   ResultItem.itemProvider.loadObjectOfClass(TUIImage.OCClass, LoadCompleted);
 // else ...
end;

Bunun sorununuzu neden çözmesi gerektiği:
Çalışma Zamanı Güvenliği: `hasItemConformingToTypeIdentifier`, bir öğenin dönüştürülebilir olduğundan emin olmak için kullanılan Apple'ın yerel (native) metodudur. Delphi'deki doğrudan `canLoadObjectOfClass` kontrolüne kıyasla çok daha sağlamdır ve bellek erişim ihlallerine yol açma ihtimali daha düşüktür.

Uyumluluk: `UTTypeImage`, PHPicker tarafından sağlanan tüm görsel türlerini kapsayan doğru sabittir (constant).

Önemli uygulama noktaları:
Bellek Yönetimi: İkinci denemenizde `Dump.Free` ekleyerek doğru olanı yaptınız. Bunu yapmaya devam edin.

Yürütme İş Parçacığı (Thread): `TThread.Synchronize` kullanma fikriniz doğru. `loadObjectOfClass` asenkrondur ve arka plan iş parçacığında çalışır. Ana iş parçacığı dışından Delphi görsel bileşenlerine (örneğin `FOwner.Resim_list`) erişmeye çalışmak, FMX'teki çökmelerin bir numaralı nedenidir.

Nil Kontrolleri: Mevcut nil kontrollerinizi koruyun; çünkü Delphi köprüsü (bridge) aracılığıyla iOS üzerindeki nesne yaşam döngüsü değişken olabilir.

NOT: Portekizceden Türkçeye çeviri için Google Translate kullanılmıştır.

---

Yerel Android Fotoğraf Seçici'yi (Photo Picker) kullanarak Android için hazırladığım bir örnek var; belki iOS konusunda size yardımcı olabilir.

Genel olarak Delphi hakkındaki kanalıma abone olmaktan ve videolarımı beğenmekten çekinmeyin. Mümkünse, lütfen diğer yazılımcı arkadaşlarınıza da tavsiye edin!

Using native PickerPhoto from Android
https://www.youtube.com/watch?v=6lp6xiUILAg

my Youtube channel:
"www.youtube.com/@emailx45"

  if ResultItem.itemProvider.hasItemConformingToTypeIdentifier(UTTypeImage) then

UTTypeImage

      if ResultItem.itemProvider.hasItemConformingToTypeIdentifier( StrToNSStr('public.image') ) then
     begin
       ResultItem.itemProvider.loadObjectOfClass(TUIImage.OCClass, LoadCompleted );
     end;

(14-07-2026, Saat: 01:32)emailx45 Adlı Kullanıcıdan Alıntı: Symbol not found: kUTTypeImage
https://stackoverflow.com/questions/10144961/symbol-not-found-kuttypeimage

"Look up the symbol (kUTTypeImage) and locate the image/library it should exist in (MobileCoreServices.framework in this case). Then link your binary with that framework." ....

kullanım alanları

/ // Tekdüzen Tip Tanımlayıcılarına dayalı API'lar için (iOS 14+)

iOSapi.UniformTypeIdentifiers,

/ // Eski API'lar ve sabitler için (klasik UTI mekanizması)
iOSapi.MobileCoreServices;

Eğer amacınız sadece resimleri filtrelemek için standart Apple tanımlayıcısını iletmekse (örneğin, UIDocumentPickerViewController veya UIImagePickerController yapılandırırken), API köprüsünü içe aktarmadan doğrudan yerel iOS dizesini kullanabilirsiniz:
https://stackoverflow.com/questions/64319497/exploring-ios-files-in-delphi-firemonkey-app

UTTypeImage'e karşılık gelen metinsel değer 'public.image'dir. Bu dizeyi Delphi yapılarına ayıklamanız veya dönüştürmeniz gerekiyorsa, yerel yönteme bağlı olarak StringToGUID fonksiyonunu kullanarak dönüştürmeyi veya NSValue/NSString olarak ele almayı unutmayın.

https://blog.grijjy.com/2018/11/15/ios-and-macos-app-extensions-with-delphi/

      if ResultItem.itemProvider.hasItemConformingToTypeIdentifier( StrToNSStr('public.image') ) then
     begin
     try
       // burada kalıyor !!!
       ResultItem.itemProvider.loadObjectOfClass( TUIImage.OCClass, LoadCompleted );

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

ResultItem.itemProvider.loadObjectOfClass( TUIImage.OCClass, LoadCompleted );

(17-07-2026, Saat: 05:30)emozgun Adlı Kullanıcıdan Alıntı: Merhabalar 
Kastri Files Selector veya ShareItems hatasız çalışıyor. ios'ta Kastri yüklemek için buradan bilgi alabilirsiniz