Merhabalar bir uygulamamda IOS ta çoklu resim seçme işlemi gerçekleştirmek istiyorum fakat kodda derleyici hatası alıyorum. Calling Convention (cdecl) kullanmam gerekiyor fakat derleyici bunun kullanarak 

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}

Elimde bir inpos M530 yeni nesil yazarkasa var ve hazır bir ticari paket (AKINSOFT/Bilnex vb.) Almak yerine kendi yazılımımı cihaza gmp-3 ile bağlamak istiyorum. Konuyla ilgili daha önce kendi programını bir yn ökc'ye entegre etmiş arkadaşların tecrübesine ihtiyacım var internette hiçbir dökümentasyon bulamadım Inpos'a ait olan.


Bildiğim kadarıyla süreç kabaca şöyle: Cihaza harici ekü takılıyor, PC ile eşleme yapılıyor (inposgmp3 aracı, uygulama no + IP + port), sonra yazılım cihazla gmp-3 üzerinden konuşuyor. Ama tıkandığım nokta şu:

İnpos destek hattı "doküman yok, yazılım evi uzaktan bağlanıp entegre eder" diyor. Oysa benim yazılımım sıfırdan, bize özel — içinde hazır bir inPOS/GMP-3 entegrasyonu yok.

Merhaba,
FMX üzerinde test amaçlı görsel sistem bileşenleri kullanırken dikkatimi çeken bir şey oldu. Görünümleri çok eski kalıyor. Hepsini kendim tasarladığım için bugüne kadar pek dikkat etmemiştim sonra bir yol buldum. Sizlere de paylaşmak istiyorum.

TDateEdit
TTimeEdit
TComboBox
Showmessage kutusu
ve diğer saymadığım her görsel sistem bileşeni için geçerlidir.

AndroidManifest.template.xml dosyasındaki android:theme değerini aşağıdaki gibi değiştirin.

android:theme="@android:style/Theme.DeviceDefault.Light.NoActionBar"

android:theme="@android:style/Theme.DeviceDefault.NoActionBar"

Delphi 13.1 ile ESBPCS ve Devexpress kütüphanelerinde Kayan Nokta sayılı bileşenler kullandığımda aşağıdaki sorunla karşılaşıyorum.
Decimal Ayraç nokta ya da virgül fark etmiyor, bileşenler nokta ayracını algılamıyor. 1.12 yazdığında 112 olarak yazıp geçiyor.
Bu şekilde başka problem yaşayan oldu mu?
Çözüm nedir bilgisi olan var mı?
Sorun bilgisayarda değil, başka bir PC de denendi.

procedure ConfigFormatSettings;
var
FormatSet: TFormatSettings;
begin
FormatSet                      := TFormatSettings.Create('tr-TR');
FormatSet.DecimalSeparator     := '.';
FormatSet.ThousandSeparator    := ' ';
//  FormatSet.CurrencyDecimals     := 2;
//  FormatSet.DateSeparator        := '.';
//  FormatSet.ShortDateFormat      := 'dd.mm.yyyy';
//  FormatSet.LongDateFormat       := 'dd.mm.yyyy';
//  FormatSet.TimeSeparator        := ':';
//  FormatSet.TimeAMString         := 'AM';
//  FormatSet.TimePMString         := 'PM';
//  FormatSet.ShortTimeFormat      := 'hh:nn';
//  FormatSet.LongTimeFormat       := 'hh:nn:ss';

System.SysUtils.FormatSettings   := FormatSet;
end;

Merhaba 
Mesaj içerisinde bir kullanıcıyı etiketlemek için "@" işareti yazdıktan sonra kullanıcıları gösteren bir pop-up açılır ve bastığınız karakterlere göre bir seçim yapmamızı sağlardı. Daha önce sorunsuz çalışan bu özellik şimdi bende çalışmıyor. 

Sorunun Tarifi:
1- "@" karakterine bastığımda pop-up açılıyor. 
2- Bir kullanıcı seçmek için klavyeden adını yazdığımda eskiden o kullanıcıya odaklanırdı. Şimdi bu özellik çalışmıyor.
3- Etiketlemeyi iptal edip yazmak isteyince: Esc ile kapanmıyor. Fare ile boş bir yere tıklanınca pop-up kapanıyor
4- Sorun pop-up kapandıktan sonra başlıyor. Artık mesaj gövdesine klavye ile birşey yazamaz hale geliyorum.
5- Bulduğum çözüm: pop-up kapandıktan sonra başka bir text input bileşenine (aynı sayfada konu başlığı, veya başka bir sayfada arama kutusu... vb.) tıklayıp tekrar mesaj yazma penceresine geldiğimde kaldığım yerden yazmaya devam edebiliyorum.

Sorun sadece bende mi yoksa diğer kullanıcılarda da aynı problem varmı?

Selamlar,

Bugünlerde bilgisayar taşıması yapıyorum o lanet ettiğim komponent kurulumları falan , her ne ise bitirdik şükür ama aklıma şu geldi o kadar komponent kurdum ama 1 tanesi benim için vazgeçilmez

Basit ama etkili TdxMemdata , bayılıyorum bu komponente

var mı siz de de hiç bir delphi şu komponentsiz olmamalı dediğiniz.

Merhaba,
Yakın zamanda Google'ın yaptığı bir politika değişikliği ile yeni yayınlanacak uygulamalar,  artık test süreci olmadan yayınlanamıyor. 
Bu politika tüm yeni bireysel kullanıcıları etkiliyor. 
Kurumsal ve daha önce Developer hesabı olanlar bu politikadan etkilenmiyor.

Politikaya göre; kapalı testte (Dahili, Kapalı, Açık vb birkaç test mevcut) en az 12 kullanıcı, 14 gün boyunca test etmeli deniyor.

   

Aksi durumda uygulamayı yayınlamıyor.

Forumda ilerleyen süreçte yeni bir bölüm açma ihtiyacı olabilir. 

Bu kapsamda yeni geliştirdiğimiz bir mobil uygulama için testerlara ihtiyaç var. 
Uygulamayı 14 gün boyunca ara ara açacak Android telefon sahiplerine ihtiyacımız var. 
Yardımcı olmak ve katılmak için özelden sadece gmail adresi vermeniz yeterli olacaktır. 
Mail ileten arkadaşlara yine özelden uygulamamızın Google Play linkini göndereceğim. 
Destek olacak arkadaşlara şimdiden teşekkür ederim.

Çok uzun zamandır bu formun üyesiyim. Herkes farkında mı bilmem ama yapay zekayı herkes aktif kullanmaya başladığından beridir foruma çok az sorular gelmeye başladı.
Demek ki herkes (bende dahil ) yapay zekaya yazdırıyor kodlarını.

Sizler ne düşünüyorsunuz.?

     

SELECT 
     GR_LT,
     SUBSTRING (GR_LT from 1 for (POSITION (' ', GR_LT )-1 ))||' Lt' as L_BUYUK_DEGER
     FROM GRAM_LITRE_BIRIMLERI   
     where
     GR_LT LIKE '%lt%'

yukarıdaki sql i çalıştırdığımda GRAM_LITRE_BIRIMLERI tablosundaki GR_LT field ında bulunan "lt" olan
değerleri "Lt" olarak değiştiriyor...

Resimdeki değerler geliyor...

Ek Dosyalar

Ekran Görüntüleri
   

 FmxPdfTools — Delphi FireMonkey (FMX) için PDF rapor bileşeni

Raporlarınızı görsel tasarımcıyla hazırlayın; tek satır kodla PDF'e aktarın, önizleyin ve yazdırın. Windows ve Android'de çalışır. Barkod/QR, gruplama, alt raporlar, ifadeler ve daha fazlası.
 Ücretsiz deneyin: Sitedeki Download bölümünden Delphi 12 / 13 için hazır deneme sürümünü indirin, IDE'nize kurun ve süre kısıtı olmadan deneyin — gerçek raporlar üretip nasıl çalıştığını görün.

https://www.fmxreports.com/