selamlar
programımın yeni versiyon çıkarmışsam bunu otomatik olarak internetten yüklemesini istiyorum.yeni versiyonun bulunacağı web adresi sabit olduğundan aynı versiyonu çekmesini istemiyorum.Bu nedenle programın web üzerinde bir html veya txt sayfasından kontrol yapmasını istiyorum.
Sorum: Programıma update kontrolünü nasıl yaptırabilirim?
update kontrolü
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 99
- Kayıt: 08 Nis 2004 02:18
- İletişim:
Basit bir akış şeması:
1. Program açıldığınında internet bağlantısı olup olmadığını test et.
1a. Eğer bağlantı var ise TEST e dallan.
2b. Eğer bağlantı yok ise, SON a git.
2. TEST
2a. Programının EXE adını veya oluşturacağın bir .INI dosyasındaki versiyon numarasını internetteki yeni veri ile karşılaştır.
2a1. Eğer Numara farklı ise dosyayı internetten yükle.
2b2. Eğer Numara aynı ise SON'a git.
3.SON
3a. Programı başlat.
Akış şemasını çok kabaca verdim, hata ve uyarı gibi mesajları sen dikkate alırsın. INDY bileşenlerini kullanarak bunu halledebilirsin. Forumda bu konuda oldukça çok başlık vardır.
selametle...
1. Program açıldığınında internet bağlantısı olup olmadığını test et.
1a. Eğer bağlantı var ise TEST e dallan.
2b. Eğer bağlantı yok ise, SON a git.
2. TEST
2a. Programının EXE adını veya oluşturacağın bir .INI dosyasındaki versiyon numarasını internetteki yeni veri ile karşılaştır.
2a1. Eğer Numara farklı ise dosyayı internetten yükle.
2b2. Eğer Numara aynı ise SON'a git.
3.SON
3a. Programı başlat.
Akış şemasını çok kabaca verdim, hata ve uyarı gibi mesajları sen dikkate alırsın. INDY bileşenlerini kullanarak bunu halledebilirsin. Forumda bu konuda oldukça çok başlık vardır.
selametle...
projene project options dan versiyon numarası ver her açılışta bunu al. bununla ilgili component ve source çok vardı, torry, delphipages vs gibi sitelerde. daha sonra @muskut un algoritmasını kullanabilirsin
kolay gele
kolay gele
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
-
- Üye
- Mesajlar: 99
- Kayıt: 08 Nis 2004 02:18
- İletişim:
viewtopic.php?p=15810#15810
bunla netteki son versiyonu kontrol et..
bunladaçalışan programın versiyonunu
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
Var Browser: TIdHTTP;
begin
memo1.Text:='';
Browser := TIdHTTP.Create(nil);
try
Memo1.Text := Browser.Get('http://www.domainim.com/versiyonno.txt');
finally
Browser.Free;
end;
bunladaçalışan programın versiyonunu
.-.-.-.-.-.-.-. ^_^
-
- Üye
- Mesajlar: 99
- Kayıt: 08 Nis 2004 02:18
- İletişim: