R05 04 (3)

[ Pobierz całość w formacie PDF ]
.Metoda SearchFile() wczytuje zawarto�� pliku do �a�cucha (za pomoc� funkcjiFileRead()); dla tego �a�cucha przydzielana jest uprzednio pami�� o rozmiarzerównym rozmiarowi pliku (za pomoc� procedury SetLength()).Je�eli podczasprzeszukiwania nieistotna jest wielko�� liter, �a�cuch jest �normalizowany�przez zamian� jego znaków na du�e litery.Metoda SearchFile() wywo�uje metod� ScanForStr().Metoda ScanForStr()przeszukuje �a�cuch w celu znalezienia ��danego wzorca.Je�eli wzorzec zostanieznaleziony, do wynikowej listy dodawana jest pozycja zawieraj�ca nazw� pliku;je�eli na formularzu nie jest zaznaczone pole �Tylko nazwy plików�, do listydodawane s� równie� pozycje reprezentuj�ce poszczególne wyst�pienia wzorca w�a�cuchu.Zwró� uwag�, i� wi�kszo�� metod w�tku dokonuje okresowo sprawdzenia w�a�ciwo�ciTerminate w celu ewentualnego przerwania (na ��danie) realizacji w�tku.Nie zapominaj, i� wszelkie odwo�ania w�tku przeszukuj�cego do komponentówformularza musz� odbywa� si� za po�rednictwem metody Synchronize(); przekonajsi�, i� jest tak istotnie.Zmiana priorytetu w�tku przeszukuj�cegoDodatkow� opcj� programu DelSrch jest mo�liwo�� dynamicznej zmiany priorytetuwzgl�dnego w�tku przeszukuj�cego.Formularz spe�niaj�cy to zadanieprzedstawiony jest na rysunku 5.7, a na wydruku 5.10 prezentujemy tre��odpowiadaj�cego mu modu�u �ród�owego.Rysunek 5.7.Formularz ustalania priorytetu w�tku przeszukuj�cegoWydruk 5.10.Dynamiczna zmiana priorytetu w�tkuunit PriU;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls;typeTThreadPriWin = class(TForm)tbrPriTrackBar: TTrackBar;Label1: TLabel;Label2: TLabel;Label3: TLabel;btnOK: TBitBtn;btnRevert: TBitBtn;Panel1: TPanel;procedure tbrPriTrackBarChange(Sender: TObject);procedure btnRevertClick(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure FormShow(Sender: TObject);procedure btnOKClick(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }OldPriVal: Integer;public{ Public declarations }end;varThreadPriWin: TThreadPriWin;implementation{$R *.DFM}uses Main, SrchU;procedure TThreadPriWin.tbrPriTrackBarChange(Sender: TObject);beginwith MainForm dobeginSearchPri := tbrPriTrackBar.Position;if Running thenSearchThread.Priority := TThreadPriority(tbrPriTrackBar.Position);end;end;procedure TThreadPriWin.btnRevertClick(Sender: TObject);begintbrPriTrackBar.Position := OldPriVal;end;procedure TThreadPriWin.FormClose(Sender: TObject;var Action: TCloseAction);beginAction := caHide;end;procedure TThreadPriWin.FormShow(Sender: TObject);beginOldPriVal := tbrPriTrackBar.Position;end;procedure TThreadPriWin.btnOKClick(Sender: TObject);beginClose;end;procedure TThreadPriWin.FormCreate(Sender: TObject);begintbrPriTrackBarChange(Sender); // ustaw pocz�tkowy priorytet w�tkuend;end.Tre�� powy�szego modu�u nie jest skomplikowana � sprowadza si� do uaktualnianiapriorytetu w�tku stosownie do jednego z pi�ciu mo�liwych po�o�e� suwaka;zadanie to wykonywane jest w procedurze Pri�TrackBarChange().Bie��cy priorytetjest dodatkowo zapisywany w polu Search�Pri formularza g�ównego, mo�liwe jestwi�c zachowanie priorytetu przeszukiwania po�mi�dzy kolejnymi uruchomieniamiw�tku przeszukuj�cego.Wielow�tkowy dost�p do BDEProblematyk� obs�ugi baz danych w Delphi zajmiemy si� szczegó�owo w dalszychrozdzia�ach niniejszej ksi��ki, obecnie chcieliby�my jednak zademonstrowa�wyj�tkow� u�yteczno�� pracy wielow�t�kowej w trakcie operowania bazami danych,a �ci�lej � podczas wyszukiwania informacji.Je��eli niektóre u�ywane tupoj�cia b�d� dla Ciebie niezrozumia�e, mo�esz znale�� ich wy�ja�nienie m.in.wrozdziale 7.Najbardziej cenn� w�asno�ci� baz danych w Win32 jest niew�tpliwie mo�liwo��realiza�cji z�o�onych zapyta� i procedur zapami�tanych (stored procedures) wtle, nieza�le�nie od dialogu prowadzonego z u�ytkownikiem, przez co aplikacjawyra�nie zysku�je na mobilno�ci.Jest to mo�liwe dzi�ki 32-bitowej biblioteceobs�ugi baz danych, zwa�nej Borland Database Engine (w skrócie BDE).Wykorzystanie tej mo�liwo�ci jest jednak obwarowane dwoma ograniczeniami:Ka�de zapytanie formu�owane w ramach odr�bnego w�tku musi dokonywa� si� wodr�bnej sesji.Wymóg ten realizuje si� za pomoc� komponentu TSession, któregonazwa (w�a�ciwo�� Name) powinna by� przypisana do w�a�ciwo�ci SessionNamekomponentu TQuery.Oznacza to jednocze�nie, i� je�eli komponent TQuerykomunikuje si� z komponentem TDatabase, to ka�da sesja musi u�ywa� odr�bnychkomponen�tów tej klasy.Nie wolno kojarzy� komponentu TQuery z komponentem TDataSource, je��eli wramach w�tku drugorz�dnego otwarte zosta�o zapytanie; kojarzenie ta�kie mo�eodbywa� si� wy��cznie w kontek�cie w�tku g�ównego [ Pobierz całość w formacie PDF ]

Search

Podstrony