Programınızda versiyon kontrolü yapmak Gönderen: xbarakuda Tarih: 28 February 2006 19:08:58
programınız versiyonunu geliştirdiniz müsterilerinize email atmak yerine programınıza versiyon kontrol ettirin
buyrun kod geliştimek size kalmış ben sadece yolu gösteriyorum
procedure TForm1.Button1Click(Sender: TObject);
var
vrs,vrs1:string;
begin
vrs:='1.1';
vrs1:=(IdHTTP1.Get('http://d_n_a.sitemynet.com/vrss.txt')); versiyon dosyasinin bulunmasi gerek txt dosyasi içinde 1.2 yaziyor yeni verdiyon oltugunda gidip deyiştirmeni gerek
if vrs>vrs1 then
begin
showmessage('yeni versiyon üretildi indirmek için tıklayin');
button2.show
else
showmessage('versiyon yenilenmemiş');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
try
IdHTTP1.Get('http://d_n_a.sitemynet.com/vt1.setup'));
except
showmessage('dosya inerken bir hata oluştu ');
end;
finally
form1.free
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Hide;
end;
end.
Ynt: Programınızda versiyon kontrolü yapmak Gönderen: benkeibushido Tarih: 28 January 2008 08:14:14
Yukaridaki verdiğiniz code biraz uğraştırdı ve hata verdi bende bunun üzerinde biraz daha oynayarak bu code lari ürettim. bu siteye bu code lar için gelmiştim :] . ve şimdi yeni bir üyeyim..... herkese iyi çalışmalar.
Forma 2 adet edit, 2 adet button, 1 adet IdHTTP koyunuz .......Form adi VersionForm olsun :]
Btn2(UpdateBtn), edit1, edit2, lerin visible özeliğini false yapınız.
edit1 (versionedit) versionedit.text := programınız versionu olsun örnek : 1.0 gibi .
edit2 (versionmemo) buraya kontrolden gelen text içerigi gelecek texti boş olsun.
////Bnt1 code ( CheckBtn )
procedure TVersionForm.CheckBtnClick(Sender: TObject);
var
version:string;
begin
version :=(IdHTTP1.Get('http://www.siteadiniz.com/download/programadi/version.txt'));
versionmemo.Text:= Version;
if versionedit.Text < versionmemo.Text then
begin
showmessage('yeni versiyon üretildi indirmek için tıklayin');
UpdateBtn.Visible := true ;
end;
if versionedit.Text = versionmemo.Text then
begin
showmessage('yeni versiyon yok');
end;
end;
////Btn2 code (UpdateBtn)
procedure TVersionForm.UpdateBtnClick(Sender: TObject);
begin
try
IdHTTP1.Get('http://www.siteadiniz.com/download/programadi/setup.exe'));
except
showmessage('dosya inerken bir hata oluştu ');
end;
finally
VersionForm.free
end;
NOT : Programlarinizda kullandiğiniz component lerinizi isimlendiriseniz zorluk yaşamazsiniz ;]