Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi
Ön Sipariş Talebinde Bulunan Üyelerimiz
Sipariş Talebinde Bulunan Üyelerimiz

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Lisans tarihi
#1
Merhaba;

Lisanslama yöntemi için tarih fonksiyonunu kullanıyorum. Kullanıcıya verdiğim karışık harf ve sayıların içinden harfleri atarak programın son kullanma tarihini belirliyorum. Buraya kadar sorun yok fakat rastgele sayısal değer girdiğinde bu tarih EncodeDate formatına uygun değilse bunu nasıl denetleye bilirim?


procedure TForm1.BlisanslaClick(Sender: TObject);
var
  S, eLisans: String;
  YY, MM, DD: Integer;
begin
  if EditLisansSifre.Text.length = 25 then
  begin
    S := Trim(EditLisansSifre.Text);
    for I := 1 to length(S) do
    begin
      if S[I] in ['0' .. '9'] then
      begin
        eLisans := eLisans + S[I];
      end;
    end;
    DD := StrToInt(Copy(eLisans, 1, 2));
    MM := StrToInt(Copy(eLisans, 3, 2));
    YY := StrToInt(Copy(eLisans, 5, 4));
    eLisans := DateToStr(EncodeDate(YY, MM, DD));
      begin
Cevapla
#2
EncodeDate'in parametrelerinde sorun varsa Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol hatası verir. Bunu yakalamayı deneyin.
There's no place like 127.0.0.1
WWW
Cevapla
#3
Uses kısmına DateUtils ekleyin Isvaliddate fonksiyonu ile kontrol edin


if IsValidDate(YY,MM,DD)  then    eLisans := DateToStr(EncodeDate(YY, MM, DD)) else Showmessage 'Tarih hatalı';
 
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla
#4
Başka bir alternatif de Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol.
There's no place like 127.0.0.1
WWW
Cevapla
#5
Çok teşekkür ederim + repler geldi.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Lisans koruması yapmalı mıyım? canbir 5 351 08-05-2018, Saat: 17:09
Son Yorum: canbir
  Lisans Key ile web üzerinden lisanslama mantığı? canbir 5 548 31-03-2018, Saat: 15:58
Son Yorum: dicle_gsm
  lisans olayı admin02 2 515 16-09-2017, Saat: 19:37
Son Yorum: admin02
  Programa Lisans Ekleme admin02 12 2.138 21-04-2017, Saat: 18:50
Son Yorum: DelphiCan
  market otomsiyonu lisans ekleme hattası admin02 6 969 07-04-2017, Saat: 16:19
Son Yorum: admin02



Konuyu Okuyanlar: 1 Ziyaretçi