http://stackoverflow.com/questions/9233 ... hen-needed
Nasıl olacağı için hiç bir fikrim çok ben çok önceden bir konu açmıştım ama yapamadım yardımcı olursanız sevinirim?
Kod: Tümünü seç
procedure kontroldosyalar;
const
rar:string='.rar';
sunucu:string='sunucu.txt';
at:string='@';
virgul:string=',';
var
dbglst:tstringlist;
chkini:tstringlist;
sayi1,sayiN:integer;
client:string;
begin try
chkini:=tstringlist.Create;
dbglst:=tstringlist.Create;
DeleteURLCacheEntry(pchar(updt+sunucu));
dbglst.Add(downloadpage(pchar(updt+sunucu)));
dbglst.SaveToFile(sunucu);
sleep(500);
dbglst.loadfromfile(sunucu); // [kontrol.crc]
for sayi1:=0 to dbglst.Count-1 do begin
if not (ercan.spliter(virgul,'#',dbglst.strings[sayi1])=GetCrc32ForFile(ercan.spliter(at,virgul,dbglst.strings[sayi1]),0)) then begin // [dosya crc kontrol]
FileSetAttr(pchar(ercan.spliter(at,virgul,dbglst.strings[sayi1])),faArchive);
deletefile(pchar(ercan.spliter(at,virgul,dbglst.strings[sayi1])));
deleteURLCacheEntry(pchar(updt+ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar));
if ercan.Downloadfile(updt+ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar,ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar) then begin
apirarcikar(ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar);
sleep(2000);
inc(gau);
deletefile(ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar);
DeleteURLCacheEntry(pchar(updt+ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar));
end;
end else begin
ercan.Gauge1.Progress:=ercan.Gauge1.Progress+1;
end; end;
ercan.stb.Panels[0].Text:='Status : Client versiyonuna çift tıklayınız.';
ercan.Memo1.Lines.Add('Güncelleme bulunamadı.');
except
ercan.Timer1.Enabled:=false; ercan.hide; form2.hide; // (pasif)
Application.MessageBox('Güncelleme dosyasina ulaşılamıyor.',pchar(swad), MB_OK or MB_ICONQUESTION);
DeleteURLCacheEntry(pchar(updt+ercan.spliter(at,virgul,dbglst.strings[sayi1])+rar));
halt;
end;
FileSetAttr(sunucu,faArchive);
deletefile(sunucu);
dbglst.Free;
end;
UAC