Güncelleme Sorunsuz Çalışıyor...

[omerhan1988]

[codebox]------------ Baglanti Test ---------------------------------------------
test = HTTP.TestConnection("http://www.xxxxxxx.com", 20, 80, nil, nil);
if test == true then
HTTP.Download("http://www.xxxxxx.com/Update.xml", _TempFolder .. "\\Update.xml", 20, 80) -- xml dosyasını indir
end
if test == false then
Dialog.Message("Hata", "Servere Bağlanamadı.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Application.ExitScript();
end
------------ Baglanti Test ---------------------------------------------
------------ Karsilastir Eskiyse Update Et -----------------------------
XML.Load(_TempFolder .. "\\Update.xml") -- hafizaya yükle
a = XML.GetValue("version") -- Sunucudaki XML versiyon bilgisini al
XML.Load("AutoPlay\\Docs\\ref.xml") -- hafizaya yükle
b = XML.GetValue("version") -- Referans XML versiyon bilgisini al
if a > b then -- eger versiyon eskiyse
RichText.SetText("RichText1", "Güncelleme İndiriliyor.", false)

StatusDlg.Show(MB_ICONINFORMATION, false);
StatusDlg.ShowProgressMeter(true);
StatusDlg.SetTitle("Güncelleme");
StatusDlg.SetMessage("Güncelleme Yapılıyor Lütfen Bekleyiniz...");
StatusDlg.SetStatusText("Yükleme İlerlemesi");

HTTP.Download("http://www.xxxxxx.com/update.exe", _DesktopFolder .."\\update.exe", 20, 80) --güncellemeyi indir

StatusDlg.SetMeterPos(100);
Application.Sleep(1000);
StatusDlg.Hide();

File.Open(_DesktopFolder .."\\update.exe", "", SW_SHOWNORMAL); -- güncellemeyi çalıştır
File.Delete(_TempFolder .. "\\Update.xml", true, true, true, nil);
Application.Exit(0);
else -- eğer versiyon yeniyse
RichText.SetText("RichText1", "Tebrikler,Güncellemeye gerek yok...", false);
File.Delete(_TempFolder .. "\\Update.xml", true, true, true, nil);
end
------------ Karsilastir Eskiyse Update Et -----------------------------

[/codebox]


Bu sitede verilen bilgilerle yaptım arkadaşlar yüzde yüz çalışyor.


[codebox]<?xml version="1.0" encoding="utf-8" ?>

<version>002</version>

[/codebox]

Buda Update.xml ve ref.xml kodları

Arkadaşlar güncelleme indirilirkende kaç mb olduğunu kaç mb indirildiğinide bilgi veriyor. Edited September 8, 2011 by omerhan1988

[mafiacarles]

kardesım apz dosyasını paylasırmısın ben calıstıramadım :S

[Kral__]

kardeş bu xml dosyalarını neereye atıyoruz ?

[omerhan1988]

Update.xml domain veya dropbox tarzı bir yere ref.xml ise autoplay dosyasında ki docs klasörü içine kardeş...

[Kral__]

peki Update.exe dosyası ?

[omerhan1988]

update.exe de update.xml ile birlikte domaine update.exe programının güncel hali olacak...

Edited October 1, 2011 by omerhan1988