[ TezVi @ 13.01.2005. 17:25 ] @
ok, imam jedna problemčić koji me muči u Delphiju 7... napravio sam josh prije godinu dana jedan program za koji sad pišem update... naime, razvio sam jedan dio programa, točnije wizard koji iz određenog foldera skenira sve foldere i fajlove određene ekstenzije iz tih foldera... te fajlove otvori i podatke (tekst) prebacuje u mem... ok, čisto za uvod...



Code:
    

if FindFirst(Path+DirName, faDirectory, SR) = 0 then
      if length(SR.Name)=5 then
      if midstr(SR.Name,3,1)='-' then
        begin
          if FindFirst(Path+SR.Name+'\*.*', faDirectory, SR2) = 0 then
            begin
              repeat
                if (length(SR2.Name)>=2) and (SR2.Name<>'..') and (SR2.Attr=faDirectory) then
                  begin
                     imerazr:=ConvertFolderName(SR2.Name);
                     AddRazred(leftstr(imerazr,length(imerazr)-2),rightstr(imerazr,1),'','','');
                     brRazr.Caption:=inttostr(strtoint(brRazr.Caption)+1);
                     if FindFirst(Path+SR.Name+'\'+SR2.Name+'\*.dat',faAnyFile, SR3) = 0 then
                      begin
                        repeat
                          if SR3.Attr<>faDirectory then
                            begin
                              if abort then
                                begin
                                  label18.Caption:='Proces prekinut...';
                                  Progress.Visible:=false;
                                  lblKraj.Visible:=true;
                                end;
                              Progress.position:=Progress.position+1;
                              lblPath.Caption:=path+DirName+'\'+SR2.Name+'\'+SR3.Name;
                             
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////

                            //OVDJE POKUŠAVAM SA update procedurama
                              lblPath.Update;
                              pisdatform.Update;
                            /////////////////////////
                            
                            // OVDJE ide glavni dio posla -> funkcija LoadUcenikFromDat otvara fajl i učitava....
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////

                              if LoadUcenikFromDat(ConvertFolderName(SR2.Name),path+DirName+'\'+SR2.Name+'\'+SR3.Name) then
                                brUc.Caption:=inttostr(strtoint(brUc.Caption)+1)
                              else
                                brFailed.Caption:=inttostr(strtoint(brFailed.Caption)+1)
                            end;
                        until FindNext(SR3) <> 0;
                        FindClose(SR3);
                      end;
                  end;
              until FindNext(SR2) <> 0;
              FindClose(SR2);
            end;
        end;
    FindClose(SR);



ovdje ima dosta koda unutar petlji tako da sam samo izrezao onaj dio gdje se refreshaju forme...

E sad, problem je u tome što se nakon desetak sekundi odrađenog posla petlje forma "zamrzne" isto kao i Cancel button. Ovaj problem sam rješavao u VB6 sa DoEvents procedurom, pa stoji pitanje: ima li kakva alternativa u Delphiju... na koji način da to rješim...? Ubacio sam u petlju form.update proceduru... to mi osvježava progressbar i labele, ali za buttone ne šljaka...

znači želio bih da mogu kliknuti buttone dok je form "busy" tako da mogu prekinuti proces i da se forma ne zamrzava (not responding).

ima li tko kakav prijedlog?

[ _v!rus_ @ 13.01.2005. 17:37 ] @
Najlakse resenje je da koristis Application.ProcessMessages u petlji, neznatno usporava ali i sve osvezava. A za prekid napravi global var npr. Canceled: Boolean i u ButtonCancel.OnClick event napisi Canceled := True. Onda u okviru neke od petlji (pametno odredi u okviru koje) daj if Canceled then Something odmah ispod Appliction.ProcessMessages. Ovo je jeftinije od pravljenja threada za tako malu potrebu, ali je za nijansu nepreglednije jer gledajuci samo u petlju Canceled se nigde ne menja (u petlji) a ipak mu se ispituje stanje (if Canceled) mada to i nije tako strasno sobzirom da je za internu upotrebu.
[ TezVi @ 13.01.2005. 19:10 ] @
za prekid sam i koristio istu zamisao.. možeš vidjeti u kodu odmah iznad komentara, varijabla abort

Code:

if abort then
  begin
     label18.Caption:='Proces prekinut...';
     Progress.Visible:=false;
     lblKraj.Visible:=true;
  end;



ali nisam znao za application.processmessages...

thx man, sad radi za 5
[ reiser @ 13.01.2005. 20:13 ] @
Probaj da radis sa threadovima.. Mislim da je to najbolje resenje... Opali jedan BeginThread() i to je to.
[ TezVi @ 14.01.2005. 01:18 ] @
baš sam gledao po helpu za threadove, malo su škrti sa primjerima... ima možda netko light primjer korištenja threadova za podijeliti?

šljaka mi prog i ovako, ali htio bih i threadove probati...
[ reiser @ 14.01.2005. 02:04 ] @
Veoma prosto :

Code:
BeginThread(nil, 0, @NekaFunkcija, nil, 0, threadID);


A @NekaFunkcija ti je pokazivac na obicnu funkciju/proceduru koja vrsi glavni posao, tj. skeniranje.

Code:
procedure NekaFunkcija; stdcall;


Jos ako hoces mozes sa SetThreadPriority da dodelis tom threadu neki visi/nizi status...

Znaci kako bi to izgledalo :

Code:

var
  threadID : Cardinal;

procedure NekaFunkcija; stdcall;
begin
// Ovde nesto radimo
end;

procedure TForm1.Button1Click(Sender : TObject);
begin
  BeginThread(nil, 0, @NekaFunkcija, nil, 0, threadID);
end;



Mada imas i jos nekoliko razlicitih pristupa threadovima, ti vidi koji ti je najlaksi, recimo File -> New -> Other -> Thread Object....
[ TezVi @ 14.01.2005. 14:30 ] @
Thx