processbar kullanımı

[metali]

merhabalar tekrar, delphi de en çok merak ettiğim konulardan biriside processbar kullanımı. bununla ilgili forumun arama aparatını kullanarak baktım ama pek aydınlatıcı bişey yoktu.

20.000 adet kayıdım var bunları mysql'den access'a aktarıyorum. burdakii bekleme süresi aşşağı yukarı 2 dk kadar oluyor bu süreçte bir processbar koyup verilerin kopyalama durumunu grafik olarak göstermek istiyorum.. bir yol çizmek gerekirse, neresinden başlamalıyım hocalarım.

[cemaliozan]

Biraz karışık ve cxProgressbar kullanmışım, ama aynı şey...

PHP Kodu:

procedure TForm1.SpeedButton1Click(Sender: TObject);
  Var
    DosyaAdi    : String;
    RC          : Integer;
    tmpS        : String;
    tmpF        : TStringList;
    {
      IndexTitleList,
      IndexListNoBody,
      IndexListBody : TStringList;
    }
    DosyaVarmi  : Boolean;
    DosyaIndex  : Integer;
    IndexTitle  : String;
begin
  try
    tmpF              := TStringList.Create;
    {
      IndexListNoBody := TStringList.Create;
      IndexListBody   := TStringList.Create;
      IndexTitleList  := TStringList.Create;
    }
    RC  := wwClientDataSet1.RecordCount;
    wwClientDataSet1.First;
    cxProgressBar1.Position := 0;
    While Not wwClientDataSet1.Eof do
    begin
      IndexTitle := wwClientDataSet1Title.AsString;
      Edit1.Text := IndexTitle;
      tmpS       := KarakterDuzelt(IndexTitle);

      DosyaAdi   := 'pek-cok-net-tips-'+tmpS;
      DosyaIndex := 0;
      Repeat
        DosyaVarmi := FileExists(ExtractFilePath(paramstr(0))+'edosya\delphi\tips\nobody\'+DosyaAdi+'.ascx');
        if DosyaVarmi then
        begin
          Inc(DosyaIndex);
          DosyaAdi := 'pek-cok-net-tips-'+tmpS+IntToStr(DosyaIndex);
        end;
      Until Not DosyaVarmi;

      With SynExporterHTML1 do
      begin
        Title           := '';
        UstContent      := '';
        AltContent      := '';
        // no body
        SadeceBody      := True;
        ExportAsText    := True;
        ExportAll(DBSynEdit1.Lines);
        SaveToFile(ExtractFilePath(paramstr(0))+'exportedosyadelphitipsnobodyhtml'+DosyaAdi+'.html');
        SaveToFile(ExtractFilePath(paramstr(0))+'exportedosyadelphitipsnobody'+DosyaAdi+'.ascx');
        // body li
        SadeceBody      := False;
        Title           := IndexTitle;
        UstContent      := '<span class="indextitle">'+IndexTitle+'</span>';
        AltContent      := '';
        ExportAsText    := True;
        ExportAll(DBSynEdit1.Lines);
        SaveToFile(ExtractFilePath(paramstr(0))+'exportedosyadelphitipsbodyhtml'+DosyaAdi+'.html');
        SaveToFile(ExtractFilePath(paramstr(0))+'exportedosyadelphitipsbody'+DosyaAdi+'.ascx');
      end;
       tmpF.Clear;
       tmpF.LoadFromFile(ExtractFilePath(paramstr(0))+'exportedosyadelphitipsbody'+DosyaAdi+'.ascx');
       With zQuery1 do
       begin
         Close;
         Sql.Clear;
         Params.Clear;
         Params.CreateParam(ftString,'ptips',ptInput);
         Params.CreateParam(ftString,'plink',ptInput);
         Params.CreateParam(ftString,'pbaslik',ptInput);
         Params.CreateParam(ftVariant,'picerik',ptInput);
         Params.CreateParam(ftString,'pdosya',ptInput);

         ParamByName('ptips').AsString   := 'kod-bank';
         ParamByName('plink').AsString   := 'pek-cok-net~pek-cok-qedosya-mdelphitips-xdb-w'+tmpS+'.html';
         ParamByName('pbaslik').AsString := IndexTitle;
         ParamByName('picerik').AsString := tmpF.Text;
         ParamByName('pdosya').AsString  := 'edosyadelphitipsbody'+DosyaAdi+'.ascx';
         Sql.Add(
         'INSERT INTO delphi_tips (tips,link,baslik,icerik,gonderen_id) VALUES('+
               ':ptips,:plink,:pbaslik,:picerik,:pdosya)');
         ExecSQL;      
       end;
      {
      IndexTitleList.Add('<span class="tipstitlelist">'+IndexTitle+'</br></span>'+#13#10);
      IndexListNoBody.Add('<a href="pek-cok-net~pek-cok-qedosya-mdelphitips-xnobody-w'+tmpS+'.html" class="dtips">'+
                    '<span class="dtipsspan">'+IndexTitle+'</span></a></br />');
      IndexListBody.Add('<p><a href="pek-cok-net~pek-cok-qedosya-mdelphitips-xbody-w'+tmpS+'.html" class="dtips">'+
                    '<span class="dtipsspan">'+IndexTitle+'</span></a></br/>');
      }
      wwClientDataSet1.Next;
      cxProgressBar1.Position := (wwClientDataSet1.RecNo*100) Div RC;
      //Application.ProcessMessages;
      Sleep(3);
    end;
  finally
    wwClientDataSet1.EnableControls;
    {
    IndexListNoBody.SaveToFile(ExtractFilePath(Paramstr(0))+'exportedosyadelphitipsnobodyindexnobody.html');
    IndexListBody.SaveToFile(ExtractFilePath(Paramstr(0))+'exportedosyadelphitipsbodyindexbody.html');
    IndexTitleList.SaveToFile(ExtractFilePath(Paramstr(0))+'exportedosyadelphitipsindextipstitlelist.html');
    IndexListNoBody.Free;
    IndexListBody.Free;
    IndexTitleList.Free;
    }
    tmpF.Free;
    ZQuery1.Close;
    zConnection.Connected := False;
    ShowMessage('Bitti);
  end;
end; 


[Caylaq]

Hocam bende AutoCreate formları oluştururken yani Program açılırken aşaıdaki şekilde kullanıyorum

begin
Form83:=TForm83.create(Application);
Form83.show;
Form83.update;
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Application.Initialize;
Application.Title := '75 Ets ';
Application.CreateForm(TMainForm, MainForm);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm8, Form8);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm11, Form11);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm31, Form31);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm38, Form38);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm43, Form43);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm50, Form50);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm51, Form51);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm52, Form52);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm53, Form53);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm54, Form54);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm55, Form55);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm56, Form56);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm57, Form57);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm58, Form58);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm60, Form60);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm61, Form61);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm62, Form62);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm63, Form63);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm64, Form64);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm65, Form65);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm47, Form47);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm68, Form68);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm26, Form26);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm34, Form34);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm33, Form33);
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.update;
Application.CreateForm(TForm25, Form25);
// Sleep(5000); // 5 sn. bekle
Form83.Gauge1.Progress:=Form83.Gauge1.Progress+1;
Form83.Release;
Application.Run;

Umarım YArarlı Olur


İyi çalışmalar




.

[metali]

arkadaşlar bu konu hakkında; kod değilde daha çok nasıl bir mantık kurmalıyım onu merak ediyorum. mesela bir kayıdın kopyalanma süresini hesaplayıp, toplam kayıt sayısını bu süreyle progressbarın uzunluguna eşitleyip yapmak aklıma geliyor. bunu yapan arkadaslarım nasıl bir mantık kurdular acaba... kısaca anlatabilirmiyiz

[cemaliozan]

Haklısın balık yemeyi değil tutmayı öğrenmek istiyorsun. Ama kod okumayı ve kendi mantığını çıkarmayıda öğrenmelisin.

Bu yüzden yine kod örneği veriyorum. Sen yorum yap, biz arkandan geliriz.

PHP Kodu:

function SplitFile(FileName : TFileName; SizeofFiles : Integer; ProgressBar : TProgressBar) : Boolean;
var
  i : Word;
  fs, sStream: TFileStream;
  SplitFileName: String;
begin
  ProgressBar.Position := 0;
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    for i := 1 to Trunc(fs.Size / SizeofFiles) + 1 do
    begin
      SplitFileName := ChangeFileExt(FileName, '.'+ FormatFloat('000', i));
      sStream := TFileStream.Create(SplitFileName, fmCreate or fmShareExclusive);
      try
        if fs.Size - fs.Position < SizeofFiles then
          SizeofFiles := fs.Size - fs.Position;
        sStream.CopyFrom(fs, SizeofFiles);
        ProgressBar.Position := Round((fs.Position / fs.Size) * 100);
      finally
        sStream.Free;
      end;
    end;
  finally
    fs.Free;
  end;

end; 


[Caylaq]

kayıt sayısını bu süreyle progressbarın uzunluguna eşitleyip yapmak

Hocam Tamam işte Mantık bu. Kurmuşsun iste



.

[cemaliozan]

Oran orantı işi yani..

Şöyleki :

T = Toplam Uzunluk
G = Geçerli Konum
P = Progressbar'da bulunulması gereken posizyon
%100 = Sabit progressbar yüzdesel değeri

P = (Gx100) Div T

Hemen örnek yapalım....

T = 150
G = 20

P = (20x100) Div 150 = 13.3 Olur.

Yani toplam işlemin %13 lük kısmı gerçekleşmiş olur...

[metali]

merhaba hocam, yollagınız progressbar kodu çok sade, eminim çokta kolaydır. ben anladıgım satırları karşılarına yazdım. anlamadıgım ve kullanımını bilmediğim çok komut var ama fazla bir fatura çıkarıp sizinde başınızı agrıtmak istemedim. istediklerimi satıların karşılarına yazdım

teşşekkürler....

function SplitFile(FileName : TFileName; SizeofFiles : Integer; ProgressBar : TProgressBar) : Boolean; 
var 
  i : Word; 
  fs, sStream: TFileStream; // file stream nedir?
  SplitFileName: String; 
begin 
  ProgressBar.Position := 0;  // progressbarın konumunu sıfıra getir
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);  // burdaki oluşturma komutunu anlamadım
  try  // hata denetimi
    for i := 1 to Trunc(fs.Size / SizeofFiles) + 1 do //  birden dosya boyutu kadar bir döngü, lütfen yanlışımı düzeltin 
    begin 
      SplitFileName := ChangeFileExt(FileName, '.'+ FormatFloat('000', i));  //bu satırdan bir şey anlamadım :(
      sStream := TFileStream.Create(SplitFileName, fmCreate or fmShareExclusive);  // bu satırdan da :( 
      try 
        if fs.Size - fs.Position < SizeofFiles then // fs nin boyutundan fs nin pozisyonunu cıkarıp EĞER dosya boyutundan küçükse;
          SizeofFiles := fs.Size - fs.Position;  // dosya boyutu = dosya boyutu-dosya pzoisyonuna eşitle
        sStream.CopyFrom(fs, SizeofFiles);  // kopyalama işlemi yapılıyor ama nasıl bir kopyalama?
        ProgressBar.Position := Round((fs.Position / fs.Size) * 100);  // progressbarın pozisyonununu eşitlenmesi
      finally 
        sStream.Free; 
      end; 
    end; 
  finally 
    fs.Free; 
  end; 
end;

[metali]

son 2 cevabı yeni gördüm arkadaşlar oldukça basit bir anlatım.. mantıgı da aslında baya kolay ama. komut bilgimin az oluşundan dolayı sanırım biraz sıkıntı yaşadım. toplam uzunluğu toplam toplam dosya boyutu ile eşitlemişsinizz...

şimdii şöyle yapcm...

1. bütün dosyaların boyutlarını toplayacagım...
2. aktif olan kayıta kadar alınmış dosya toplamını 100 ile çarpıp;
3. toplam dosyalar boyutuna böleceğim
4. ve progressbar konumuna eşitleyceğim

evet yaa... süper

ama benimkiler bir dosya değil ki bir kayıt

[cemaliozan]

metali, mesajından alıntı:

ama benimkiler bir dosya değil ki bir kayıt

Ha toplam dosya ha toplam kayıt sayısı ne farkeder ?