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
2 saat önce
» Yorumlar: 14
» Okunma: 214
datasnap Mobil İnternet b...
Forum: Mobil Platform - FireMonkey (FMX)
Son Yorum:

mcuyan
2 saat önce
» Yorumlar: 6
» Okunma: 143
Delphi İle Excel Dosyasın...
Forum: Hazır Programlar
Son Yorum:

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

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

mcuyan
3 saat önce
» Yorumlar: 9
» Okunma: 130
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

 
  Görme engelli dostlarımıza destek için
Yazar: adelphiforumz - 09-02-2018, Saat: 01:42 - Forum: Bir Proje Fikrim Var - Yorumlar (14)

Selamlar

Görme engelli dostlarımıza destek amacı ile tamamen gönüllülük üzerine uygulama geliştirebilecek yada fikir verebilecek arkadaşlar varmı.
Kafamdaki proje görme engelli kişilere eczaneden aldıkların ilaçların üzerine bir karekod etiketi konarak
ilacın cep telefonu üzerinden karekod okutulması ve okutulan karkekod içindeki datayı sese çevirme şeklinde bir şey düşünüyorum.

Örneğin Karekod okutulunca
Alfoxil 500 mg Flakon
Antibiyotik
12 saate 1 tok karna

ifadesini sese çevirecek

Bu konudaki fikirleriniz paylaşabilirmisiniz.

Teşekkürler

Bu konuyu yazdır

  [ÇÖZÜLDÜ] FMX Servis Kalıcı Olarak Çalıştırma
Yazar: hyperxman - 08-02-2018, Saat: 23:32 - Forum: Mobil Platform - FireMonkey (FMX) - Yorum Yok

Selamlar,

FMX Projem mevcut. Projemde 1 adet servis var ve çalışmakta. Servis MySQL ile sorgu yapmakta. Ana uygulama açık iken bir problem yok ama tam olarak ana uygulamayı kapatınca sorgu kesiliyor ve bildirim gelmiyor. Birçok yere başvurdum bu konunun çözümü için ama bir çözüme kavuşamadım. 


StackOverflow Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol [İncelemek isteyenler için]


Konunun daha iyi anlaşılması için GIF Animasyonu;

nOjO55.gif


Ek olarak kaynak kodları aşağıda bulunmaktadır.


Bir kullanıcı TTask yerine CreateAnonymousThread kullanmamı söyledi fakat yine işe yaramadı. Yardımlarınızı bekler durumdayım.



Yardımcı olan herkese şimdiden teşekkürler.


Çıldırmak üzereyim Delphi bırakıp Java geçesim geldi artık!


Saygılarımla.


SORUN, PROJE ANDROID STUDIO ÜZERİNDEN YAPILARAK ÇÖZÜLDÜ.

Bu konuyu yazdır

  Datasnap Türkçe karakter sorunu [Çözüldü]
Yazar: hakanharbeli - 08-02-2018, Saat: 23:26 - Forum: Genel Programlama - Yorumlar (4)

Merhaba,

Datasnap metodu ile mysql veritabanına bağlanıp veri çekiyorum. Fakat türkçe karakter sorunu oluyor. 

Örneğin: osmanlı padişahları gibi bir yazıyı osmanl? padi?ahlar? gibi çekiyor.

Kullanılan companent ler sqlconnection ve sqlservermethod  bunların bu karakter sorununu nasıl çözebilirim

charsetleri bir türlü değiştiremiyorum.

aslında sqlconnection da sorun yok bence asıl sorun sqlservermethodta

yardımlarınız için çok teşekkür ederim şimdiden

Bu konuyu yazdır

  İlk harf
Yazar: brs - 08-02-2018, Saat: 23:16 - Forum: Genel Programlama - Yorumlar (3)

Merhabalar.

Edit ilk harfi BÜYÜK nasıl yapabilirim? bu konuda çözüm bulan var mı?

Bu konuyu yazdır

  Artarak gitmesi gereken degeri kontrole tmek
Yazar: klavye - 08-02-2018, Saat: 18:16 - Forum: FireBird - Yorumlar (4)

Merhabalar,
Tablomda kulanıcının giris yaptigi sayisal bir alan var. Bu alana her islemden sonra elle bir deger atamasi yapmasi gerekiyor.
1
2
3
4
seklinde her islemde artan sirayla sayi girecek. Fakat bazen kullanıcı 1,2,3,4,7,8 seklinde sayi atlayarak deger verebiliyor.
Tabloda bu sekilde sayi atlanıp atlanmadıgını anlayabilecegimiz bir sorgu mumkun mudur?
(Artırma olayini otomatik yapmamam lazim kullanıcilarin elle kendileri vermeleri mecburi.)
Teşekkürler.

Bu konuyu yazdır

Wink Kitap Reklamına Başladım (kitap.DelphiCan.com)
Yazar: Fesih ARSLAN - 08-02-2018, Saat: 17:09 - Forum: Kitap Hakkında - Yorumlar (40)

Merhaba,
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Hepinizi bekliyorum. Smile
Hızlı, alelacele ancak bu kadar oldu. 
Güncellemelerim devam edecek; web tasarımı iyi olan üyelerimizden de destek bekliyorum.

Bu konuyu yazdır

  Uygulama Mağazaları için Paket Dosyası Üretici
Yazar: Fesih ARSLAN - 08-02-2018, Saat: 08:33 - Forum: Muhabbet Olsun - Yorumlar (1)

Merhaba,
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol tarafından üzerinde çalışılan ve yakın bir zamanda yayınlanacak olan bir uygulama; tek arayüzde Android ve iOS hedef platformlarında çalışacak paket dosyası üretiyor.

2018-02-08_08-30-34.png

Bu konuyu yazdır

  Listview seçili satır
Yazar: hido - 08-02-2018, Saat: 03:49 - Forum: Mobil Platform - FireMonkey (FMX) - Yorumlar (1)

Merhaba; Listviewdde seçilmiş olan satırın background color rengini değiştirmek istiyorum, nette bir kaç örnek buldum fakat olmadı
bu konu hakkında fazla bir örnekde yok acaba seçili satır rengini nasıl değiştirebilirim?

Bu konuyu yazdır

  Delphi'de Veritabanı İle Kullanıcı Ekleme
Yazar: hyperxman - 08-02-2018, Saat: 01:18 - Forum: Makale - Yorum Yok

Herkese selamlar,


Bu yazımda Access veritabanı ile kullanıcı nasıl ekleyeceğimizi anlatmaya çalışacağım. Tabi bu başlangıç seviyeler için güzel bir yazı olduğuna inanıyorum. İlk olarak Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol adlı yazımı okuyup öyle devam etmenizi istiyorum çünkü bu yazı devamı niteliğinde. İsterseniz yavaştan başlayalım.


Kullanacığımız bileşen seti: UniDac
Testin yapılacağı Delphi IDE versiyonu: Delphi XE10.2
Kullandığımız veritabanı: Access


Exclamation  İlk olarak bir kayıt formu oluşturuyoruz. Bu formu istediğiniz gibi oluşturabilirsiniz ama formunuzda bulunması gereken bileşenler şunlardır;

  • 1 adet UniConnection, UniQuery, AccessUniProvider, Button ekleyiniz.
  • 2 adet edit, label ekleyiniz.
Devam edelim;

BLvE4g.png


Ben böyle bir tasarım yapmış oldum;

Şimdi ise formumuzun onShow olayına veritabanı bağlantı kodlarını yazalım:

 with UniConnection1 do
 begin
  try
   ProviderName := 'Access'; //Hangi tür veritabanı istediğimiz belirtiyoruz.
   Database := ExtractFilePath(Application.ExeName) + 'data.mdb'; //veritabanı yolumuzu belirtiyoruz.
   Connected := True; //Bağlantıyı açıyoruz.
   ShowMessage('Veritabanı bağlantısı sağlandı!');
  except
   ShowMessage('Veritabanı bağlantı hatası!');
  end;
end;

Bu şekilde bağlantımızı gerçekleştirmiş olduk.

 Sıra geldi kayıt butonunun kodlarına. Veritabanında bulunan telefon bölümüne kayıt eklemedim istediğiniz kolon sayısı kadar parametre tanımı yapıp kaydınızı gerçekleştirebilirsiniz.

Kayıt butonu kodları

with UniQuery1 do
 begin
  try
   Connection := UniConnection1;   ///Hangi Connection bağlı olması gerektiğini belirtiyoruz.
   Close;                 //Bağlantıyı kapatıyoruz
   SQL.Clear;              //SQL temizliği yapıyoruz.
   SQL.Text := 'insert into KullaniciGiris(KAdi, KSifre) VALUES(:KAdi, :KSifre)'; //SQL kayıt sorgusunu yazıyoruz.
   ParamByName('KAdi').Value := Edit1.Text;       //Parametre tanımı yapıyoruz.
   ParamByName('KSifre').Value := Edit2.Text;     //Parametre tanımı yapıyoruz.
   ExecSQL;                                       ///SQL sorgusunu çalıştıyoruz.
   ShowMessage('Kullanıcı kaydınız tamamlanmıştır!');
  except
   ShowMessage('Kayıt yapılırken hata oluştu!');
  end;
end;


Bu işlemlerin ardından artık programımız güzelce kaydını yapabilir durumda. Dediğim gibi istediğiniz kadar veritabanında alan açabilir ve alanları tanımlayarak sonrasında param tanımı yaparak kaydınızı gerçekleştirebilirsiniz. 


Exclamation  UYARI: Bileşen isimleri yeni başlayanlar için değiştirilmemiştir, programlama esnasında bileşen adlandırmanızı şiddetle tavsiye ederim.

G9PEDN.gif

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



Saygılarımla,
İyi çalışmalar.

Bu konuyu yazdır

  Class Helper da Generic Collection Kullanma
Yazar: witalihakko - 08-02-2018, Saat: 00:45 - Forum: Makale - Yorumlar (1)

Class helper içerisinde Generic collection kullanımını bir örnek üzerinde göstermek istiyorum. Örneğimde With operatörüne benzer bir kullanımı TObject sınıfına Class helper ile implemente ettim. Bunu yaparken Generic collection kütüphanesinden yararlandım. Aşağıda oluşturduğum Class helper bulunmakta.

Class Helper :

  TDCObjectHelper = class helper for TObject
    procedure &With<T:Class>(Action:TProc<T>);
 end;
.
.
.
implementation

{ TDCObjectHelper }

procedure TDCObjectHelper.&With<T>(Action: TProc<T>);
begin
  Action(Self);
end;

TObject sınıfına &With adında bir procedure tanımlamış oldum. Bu procedure ye generic yardımı ile TObject ten türemiş istediğim herhangi bir sınıfı gönderip işlem yaptırabileceğim. Örnek kullanımı da şu şekildedir. Örneğim ADOQuery ye parametreli SQL cümlesi gönderip bu SQL'in henüz çalışmadan önceki parametreleri yazılmış halini almak.

  Memo1
   .&With<TMemo>
   (
     procedure(mm:TMemo)
     begin
       ADOQuery1
       .&With<TADOQuery>(
             procedure(ADO:TADOQuery)
             var SQLText : string;
             begin
               SQLText := 'SELECT * FROM USERS WHERE U_NAME=:U_NAME AND U_ID=:U_ID AND U_SURNAME=:U_SURNAME';

               ADO.SQL.Text := SQLText;
               ADO.ParamCheck := True;
               ADO
                 .Parameters
                   .&With<TParameters>
                   (
                   procedure(Pr:TParameters)
                   begin
                     Pr.ParamByName('U_NAME').Value := 'Hakan';
                     Pr.ParamByName('U_ID').Value := 123;
                     Pr.ParamByName('U_SURNAME').Value := 'UÇAR';

                     Pr
                       .ForEach
                       (
                         procedure(P:TParameter)
                         begin
                           mm.Lines.Add(P.Name +' : '+VarTypeAsText(p.Value.GetType));
                           SQLText := SQLText.Replace(':'+P.Name,P.Value.GetConvertVar);
                         end
                       );
                   end
                   );

               mm.Lines.Add('');
               mm.Lines.Add(SQLText);
             end
             );
     end
   );


Kodda görüldüğü gibi TObject sınıfından türemiş herhangi bir nesneyi bir anonim procedure'de kullanabiliyorum.

Sonuç:
5DLoPA.gif

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol kodlara ulaşabilirsiniz | Yandex Disk

Bu konuyu yazdır