Kameradan gelen görüntüyü ekrana boyama

[codder71]

(15-07-2020, Saat: 15:38)mrmarman Adlı Kullanıcıdan Alıntı: Şöyle bir durum söz konusu.

Hızlandırıcı unsur olarak kullanılan kaynak Delphi'nin daha önceki sürümleri olduğundan ilgili property/functin/procedure zamanla dildeki gelişmeler ile orantılı değişim gösterebiliyor. 

"GetAvailableCaptureSettings" şeklinde bir geliştirme yapıldı.  Böyle deneyin.

Takıldığınız yerde nokta dahil sonrasını silin ve tekrar nokta işareti koyun. Size en yakın sonuçlar önerilecektir.


Ben kendi projelerimde geleneksel takılmıştım.

    for i := 0 to High(CameraComponent.AvailableCaptureSettings) do
    begin
        Size := TSize.Create(CameraComponent.AvailableCaptureSettings[i].Width, CameraComponent.AvailableCaptureSettings[i].Height);

        if (UsefulSettings.TryGetValue(Size, MaxSetting)) then
        begin
          if ( CameraComponent.AvailableCaptureSettings[i].FrameRate > MaxSetting.FrameRate) then
            UsefulSettings.AddOrSetValue(Size, CameraComponent.AvailableCaptureSettings[i] );
        end
        else
          UsefulSettings.Add(Size, CameraComponent.AvailableCaptureSettings[i] );
    end;

Şeklindeki yapı, gördüğünüz ARRAY tipi yapının muadilidir.

Hocam çok teşekkürederim. Aslında dedğiniz gibi denemedim ama başaramadım maalesef fakat sayenizde derlemeyi başardım. ama uygulama donuyor ve çalışmıyor. Galiba form createdeki updatesetting proceduresi uygulamayı kitliyor. Procedureyi createde pasif yaptığımda uygulama anında açılıyor ama görüntü olmuyor maalesef