Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi
Hoşgeldin, Ziyaretçi
Sitemizden yararlanabilmek için Kayıt olmalısınız.

Kullanıcı Adınız:
  

Şifreniz:
  





Forumda Ara

(Gelişmiş Arama)

Forum İstatistikleri
» Toplam Üyeler: 793
» Son Üye: zihnimetafor
» Toplam Konular: 1.822
» Toplam Yorumlar: 14.080

Detaylı İstatistikler

Son Aktiviteler
Access 2016
Forum: Genel Programlama
Son Yorum:

narkotik
18 dakika önce
» Yorumlar: 14
» Okunma: 212
datasnap Mobil İnternet b...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

mcuyan
33 dakika önce
» Yorumlar: 6
» Okunma: 140
Delphi İle Excel Dosyasın...
Forum: Hazır Programlar
Son Yorum:

narkotik
1 saat önce
» Yorumlar: 4
» Okunma: 60
Java İle Android Program ...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

Fesih ARSLAN
1 saat önce
» Yorumlar: 5
» Okunma: 64
delphi 10.1'den 10.2' ye ...
Forum: Genel Programlama
Son Yorum:

mcuyan
1 saat önce
» Yorumlar: 9
» Okunma: 129
Delphi AVD Manager kullan...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

hyperxman
Dün, Saat: 14:09
» Yorumlar: 4
» Okunma: 71
CxGrid Kolon Birleştirme
Forum: Genel Programlama
Son Yorum:

narkotik
Dün, Saat: 00:57
» Yorumlar: 5
» Okunma: 124
Ummy indirme yöneticisi d...
Forum: Merakımdan Soruyorum
Son Yorum:

SimaWB
16-02-2018, Saat: 23:06
» Yorumlar: 1
» Okunma: 61
uploadboy
Forum: Muhabbet Olsun
Son Yorum:

yhackup
16-02-2018, Saat: 22:32
» Yorumlar: 0
» Okunma: 31
Sadece TSQL Komutları kul...
Forum: Görsel Eğitimler
Son Yorum:

Bay_Y
16-02-2018, Saat: 13:02
» Yorumlar: 6
» Okunma: 157

 
  Push Natification hata (Tokyo ve Seattle)
Yazar: malitutuncu - 15-02-2018, Saat: 09:56 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (4)

Merhaba arkadaşlar,
Delphide android projem üzerinde push natification ile uğraşıyorum. Kinvey ile yapıyorum.
Fcm ve kinveye kayıt oldum. gerekli bağlantıları sağladım. TKivveyüzerinde gerekli yerleri doldurdum. TPushEvent in eventlerini yazdım. Bu yaptıklarımı Seattle ile derleyince 

Device Received
Device Registered
mesajını alıyorum memo'da . ve kinveyden mesaj yolladığım da mesaj alabiliyorum.

Ancak aynı projeyi Tokyo sürümünde derlediğimde.
Device Token Request Failed java.io.IOException: MAIN_THREAD
mesajını alıyorum. araştırmalarım sonucu bir sonuca varamadım.
Yardımlarınız için teşekkürler.

Bu konuyu yazdır

  Delphi Android Java Tetikleyici
Yazar: hyperxman - 15-02-2018, Saat: 01:06 - Forum: Mobil Platform - FireMonkey (FMX) - Yorum Yok

Selamlar, 

Uzun zamandır üstünde çalıştığım ve yavaş yavaş sonuç almaya başladığım bir durum hakkında sizlere bir sorum olacak. Araştırmalarım sonucu bir ana uygulama tam olarak kapatılırsa servis gerekli işlemleri yapmamakta. Buna istinaden Java tetikleyiciler araya girmekte ve işlevi yerine getirmekte. Bu durum hakkında bu gece üzerinde durdum ve 2 saatlik çalışma sonucunda uygulamayı kapatınca(bir butona basarak kodu tetikliyorum) uygulama 30 sn sonra tekrar açmayı başardım. Lakin aklıma bir soru takıldı, tahminimce bu olay sadece "AlarmManager" adlı modülden yararlanarak yapılmakta çünkü AndroidManifest bölümünde gerekli düzenlemeler istedi(receive konusunda). Şimdi sorum şu ben bu uygulamayı "AlarmManager" yapısından bağımsız sadece belirlediğim bir fonksiyonu arka planda nasıl sorgulamalıyım? Daha doğrusu yazdığım kodda nasıl bir düzenlemeye gitmeliyim?


Button1 kodları, kodlar "getTimeAfterInSecs" fonksiyonu ile 30 saniye içinde programı tekrar tetiklemekte.

procedure TForm1.Button1Click(Sender: TObject);
var
 Intent: JIntent;
 PendingIntent: JPendingIntent;
begin
 Intent := TJIntent.Create;
 Intent.setClassName(TAndroidHelper.Context, StringToJString('com.TestReceiver.AlarmReceiver'));
 PendingIntent := TJPendingIntent.JavaClass.getBroadcast(TAndroidHelper.Context, 1, Intent, 0);
 TAndroidHelper.AlarmManager.&set(TJAlarmManager.JavaClass.RTC_WAKEUP, getTimeAfterInSecs(30),
   PendingIntent);
end;

"getTimeAfterInSecs" fonksiyonu

function getTimeAfterInSecs(Seconds: Integer): Int64;
var
 Calendar: JCalendar;
begin
 Calendar := TJCalendar.JavaClass.getInstance;
 Calendar.add(TJCalendar.JavaClass.SECOND, Seconds);
 Result := Calendar.getTimeInMillis;
end;


Teşekkürler,
Saygılarımla.

Bu konuyu yazdır

  Youtube Api
Yazar: yhackup - 14-02-2018, Saat: 22:29 - Forum: Merakımdan Soruyorum - Yorum Yok

Merhabalar, 

Kafama takılan bir soru var, az çok yazılım içerisinde olduğum için eş dostun bazı istekleri oluyor birisi mantıklı geldi hayata geçirdim test ediyorum.

Uygulama içeriği aslında aynı youtube fakat video içeriği sadece benim seçtiklerimden oluşuyor benim seçtiğim dışında video izleyemiyor kulanıcı

Uygulamada youtube'un kendi apisini kullandım. Bunu ücretli olarak google play'e koymayı düşünüyorum.

Lisans/Telif ile ilgili sorun yaşarmıyım bu durumda,  Bu hizmeti veren youtube aslında, 

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Bu konuyu yazdır

  Seçili satır
Yazar: brs - 14-02-2018, Saat: 01:34 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (6)

Merhabalar,

Listviewde seçili satırın item background rengini değiştirmek istiyorum fakat, bir türlü çözüm bulamadım, bu konuda nasıl bir yol izleye bilirim?




var
  LStyleObject: TFmxObject;
begin
  LStyleObject := ListView.FindStyleResource('itembackground');
  if LStyleObject is TColorObject then
    TColorObject(LStyleObject).Color := TAlphaColorRec.Slategray;
end;



 
 var
  Obj: TFMXObject;
begin
  if (Sender is TListView) then
  begin
    Obj := TListView(Sender).FindStyleResource('itembackground');
    if assigned(Obj) then
      if Obj is TColorObject then
        TColorObject(Obj).Color :=TAlphaColors.Red;
  end;
end;

Bu konuyu yazdır

  FastReport yazıya çevirme
Yazar: adelphiforumz - 13-02-2018, Saat: 23:43 - Forum: Genel Programlama - Yorum Yok

eskileri karıştırırken karşıma çıktı belki birine lazım olur

FastReport Code Kısmına yazılan

function Basamak(const i:Int):String;
begin
 case i of
   1:Result:='Bin';
   2:Result:='Milyon';  
   3:Result:='Milyar';  
   4:Result:='Trilyon';  
   5:Result:='Katrilyon';  
   6:Result:='Kentrilyon';  
 else
   Result:='';                                             
 end;
end;

function Onlar(const i:Int):String;
begin
 case i of
   1:Result:='On';
   2:Result:='Yirmi';  
   3:Result:='Otuz';  
   4:Result:='Kırk';  
   5:Result:='Elli';  
   6:Result:='Altmış';
   7:Result:='Yetmiş';  
   8:Result:='Seksen';  
   9:Result:='Doksan';  
 else
   Result:='';                                             
 end;
end;

function Birler(const i:Integer):String;
begin
 case i of
   1:Result:='Bir';  
   2:Result:='İki';  
   3:Result:='Üç';  
   4:Result:='Dört';  
   5:Result:='Beş';  
   6:Result:='Altı';  
   7:Result:='Yedi';  
   8:Result:='Sekiz';  
   9:Result:='Dokuz';  
 else
   Result:='';                                             
 end;
end;

FastReport'ta Tutarı elde ettiğin nesnenin "OnAfterPrint" kısmı "memoYazdir" yazının görüneceği nesne oluyor
var
 sSayi, sTmp, sYaziTL, sYaziKurus, sTL, sKurus:string;
 i, iTL, iKurus : Integer;
 bSwcAyrac : Boolean;
begin
 sKurus     := '';
 sTL        := '';
 sSayi      := '';
 sSayi      := Trim(memoGenel.Text);
 sYaziTL    := '';
 sYaziKurus := '';
 iTL        := 0;
 iKurus     := 0;

 bSwcAyrac := False;
 i := Length(sSayi);
 while i > 0 do
 begin
     if sSayi[I] in ['0'..'9'] then
     begin
       if bSwcAyrac = False then
         sKurus := sKurus + sSayi[I]
       else
         sTL := sTL + sSayi[I];
     end
     else
     begin
       if (Length(sSayi) - I) <= 2 then
         bSwcAyrac := True;
     end;
     Dec(I);
 end;

 sTmp := '';
 if sKurus <> '' then
   for I := Length(sKurus) downto 1 do
     sTmp := sTmp + sKurus[I];
 sKurus := sTmp;
 sTmp := '';
 if sTL <> '' then
 for I := Length(sTL) downto 1 do
   sTmp := sTmp + sTL[I];
 sTL := sTmp;

 if ( (sTL = '') and (sKurus <> '') ) then
 begin
     sTL := sKurus;
     sKurus := '';
 end;

 if sTL <> '' then
   iTL    := StrToInt(sTL);
 if sKurus <> '' then
   iKurus := StrToInt(sKurus);

 sYaziTL    := RakamOku(iTL);
 sYaziKurus := RakamOku(iKurus);
 memoYazdir.Text:= ' Fatura Genel Toplamı : Yalnız '+sYaziTL+'TL ' +sYaziKurus+'Kuruş ';

Bu konuyu yazdır

  datasnap Mobil İnternet bağlantı sorunu
Yazar: hakanharbeli - 13-02-2018, Saat: 20:45 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (6)

Merhaba,

datasnapin sorunlarıyla uğraşmaya devam ediyorum.

Kendi bilgisayarımı server'a çevirdim uzak erişime açtım. Portları felan açtın herhangi bir sıkıntı yok.

Başka bir bilgisayardan başka bir wifi ağını kullanarak dahil serverla bağlantı sağlayabiliyorum. 

Fakat iş telefona gelince. Sadece aynı wifi ağında bağlantı kurabiliyorum. Farklı bir wifi aracılığıyla bağlanmak istediğimde no route host gibi bir hata alıyorum. Mobil interneti kullanınca da aynı hatayı alıyorum. 

Acaba sorun ne olabilir yani mobil kısmında unuttuğum bir duurm var acaba ?

Bu konuyu yazdır

Question Access 2016
Yazar: BY-HAYALET - 13-02-2018, Saat: 19:17 - Forum: Genel Programlama - Yorumlar (14)

iyi akşamlar,

yaptığım bir programda, Access 2016 ile oluşturduğum veri tabanını kullandım. aklıma takılan soru şu ; Access sürümleri arasında fark olur mu? yani başka bir pc'de Access 2013 yada farklı sürüm varsa yinede program çalışır mı ?

Bu konuyu yazdır

  Görme engelli kişilerin gözleri olun
Yazar: adelphiforumz - 13-02-2018, Saat: 18:44 - Forum: Muhabbet Olsun - Yorum Yok

Görme engelli dostlarımıza yardım projesi için uğraşırken 
bulduğum ve çok beğendiğim bir uygulamanın linkini paylaşmak istedim.

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Bu konuyu yazdır

  Sayıyı paraya çevirme
Yazar: dilo - 13-02-2018, Saat: 15:18 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (3)

Merhaba, 

Kullanıcı edite 150000 sayı girdiğinde editen çıktığında 150.000,00 ₺ olarak para formatına dönüştürüyorum, fatak editen çıktığında değilde ChangeTracking sırasında noktayı otomatik olarak nasıl ekleye bilirim? sürekli hatalar alıyorum.
Örnek: 150.000 olacak sonuna  ₺  işareti de gelmeyecek.



procedure TForm1.xFiyatExit(Sender: TObject);
var
  Money: Currency;
begin
  if xFiyat.Text.length > 3 then
  begin
    Money := StrToFloat(xFiyat.Text);
   xFiyat.Text := FloatToStrF(Money, ffCurrency, 6, 2);
  end;
end;

Bu konuyu yazdır

  Delphi 10.2.3
Yazar: Fesih ARSLAN - 13-02-2018, Saat: 09:11 - Forum: Yenilikler & Son Güncellemeler - Yorumlar (1)

Merhaba,
Delphi 10.2 Tokyo'nun 3. upgrade sürümü, 2018 yılının ilk çeyreğinde (tahminimce Mart ayı) yayınlanacakmış.
Eklenen güncellemeler;
* FMX yüksek DPI desteği ile Multi-Platfrom görüntü kalitesinin daha da yükseltilmesi.
* Rad Server ExtJS desteği. (  Rolleyes  Umarım Linux için de sorun olmaz.) 
* Hata düzeltmeleri ve performans iyileştirmeleri
* FireDAC ve ExtJS entegrasyonu için yeni ExtJSJSON dataseti.
* Bu sürüme yetişir mi bilmiyorum (emin değillermiş); yeni GUI şablonları (detay bilgisi yok. İlk defa karşılaştığım bir terim. Kendileri GUI templates olarak nitelendirmişler. Japonca'am pek iyi değil Smile belki de yeni FMX Stillerinden bahsediliyor.) 
* Android Z-Order ve Mac OS X 64 bit desteği

Güncellemeden hemen sonra yeni bir yol haritası da yayınlanacakmış.
Kaynak: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol


Kaynağın İngilizce sayfasını sonradan gördüm: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Bu konuyu yazdır