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: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Senet hazırlama ve yazdırma programı
#1
birkaç inşaat şirketi için hazırladığımız senet hazırlama ve yazdırma programı
birilerini işine yarar düşüncesiyle link paylaşıyorum.

Programın 

C:\senet takip  klasöründe çalışması gerekli
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla
#2
Merhaba
C:\senet takip olunca çalışıyor
Cevapla
#3
(19-10-2018, Saat: 10:37)meko Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba
C:\senet takip olunca çalışıyor

Bilgilendirme için teşekkür ederim. Mesajı düzeltim
"…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
Paylaşım için teşekkürler. Emeğinize sağlık.
Bazen daha ileriye ulaşmak için bir kaç adım geri gitmek mecburidir. Çünkü en ileri sıçrayışlar iki adım geriden başlar.
Cevapla
#5
(19-10-2018, Saat: 10:55)cinarbil Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(19-10-2018, Saat: 10:37)meko Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba
C:\senet takip olunca çalışıyor

Bilgilendirme için teşekkür ederim. Mesajı düzeltim

Mesajı düzeltmek yerine uygulamayı düzelt bence.  Wink

Sert mesaj gibi oldu ama , statik bir dizin kullanma uygulamada 
ExtractFilePath(Application.ExeName);

bu sana uygulama dizinini verecektirç
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#6
Uygulama Yolu için Ben genelde aşağıdaki fonksiyonu kullanıyorum. Bilgi amaçlı dursun burada.


const
DATABASE_FILE = 'Database.db';

function Yol(const dosya_Adi_uzanti: string): string;
begin
 Result := PChar(includetrailingpathdelimiter(ExtractFilePath(Application.Exename)) +
   dosya_Adi_uzanti);
end;

// kullanımı

if fileExists(Yol(ADRES_FILE)) then
   Caption := Yol(DATABASE_FILE)
else
  Capton := 'Dosya Bulunamadı..';

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#7
Program dizini için parametre gerektirmeyen sabit bir inline fonksiyon kullanışlı olabilir.
Benim "yardımcı.pas" dosyamda hep bu tür şeyler var.


function ProgramDiziniGetir:string;  inline;
begin
  result:=IncludeTrailingPathDelimiter( ExtractFileDir(Application.ExeName) );
end;
WWW
Cevapla
#8
Tüm yorumlar için teşekkür ederim.
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla
#9
Dizayn ve debug aşamalarında ben de dahil bir çok geliştiricinin unuttuğu olaydır path veya tanımlar...
Elinize sağlık..
// Bilgi paylaştıkça çoğalır.. 

WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Kütüphane Takip Programı ihalilcoban 7 7.666 18-04-2018, Saat: 11:42
Son Yorum: ihalilcoban
  Otomatik Barkod Kodu Üretme Programı admin02 1 888 29-07-2017, Saat: 12:03
Son Yorum: tenderman
  Veritaban Bağlantı yapma Programı admin02 16 1.556 30-06-2017, Saat: 14:06
Son Yorum: vkamadan



Konuyu Okuyanlar: 1 Ziyaretçi