r12 04

[ Pobierz całość w formacie PDF ]
.Przykład użycia DefineProperty()Na wydruku 12.7 znajduje się kod modułu implementującego przykładowy komponent, przechowujący w strumieniu zawartość dwóch prywatnych pól, będących (kolejno) łańcuchem (FString) i liczbą całkowitą (FInteger).Wydruk 12.7.Przykład zastosowania DefineProperty()unitDefProp;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;typeTDefinePropTest = class(TComponent)privateFString: String;FInteger: Integer;procedure ReadStrData(Reader: TReader);procedure WriteStrData(Writer: TWriter);procedure ReadIntData(Reader: TReader);procedure WriteIntData(Writer: TWriter);protectedprocedure DefineProperties(Filer: TFiler); override;publicconstructor Create(AOwner: TComponent); override;end;implementationconstructor TDefinePropTest.Create(AOwner: TComponent);begininherited Create(AOwner);{ Nadaj polom danych przykładową zawartość }FString := 'Wynikiem działania jest.';FInteger := 42;end;procedure TDefinePropTest.DefineProperties(Filer: TFiler);begininherited DefineProperties(Filer);{ wywołania definiujące sposób zapisu i odczytu pól}Filer.DefineProperty('StringProp', ReadStrData, WriteStrData, FString <> '');Filer.DefineProperty('IntProp', ReadIntData, WriteIntData, True);end;{ Metody transmisyjne }procedure TDefinePropTest.ReadStrData(Reader: TReader);// odczyt pola FString;beginFString := Reader.ReadString;end;procedure TDefinePropTest.WriteStrData(Writer: TWriter);// zapis pola FString;beginWriter.WriteString(FString);end;procedure TDefinePropTest.ReadIntData(Reader: TReader);// odczyt pola FInteger;beginFInteger := Reader.ReadInteger;end;procedure TDefinePropTest.WriteIntData(Writer: TWriter);// zapis pola FInteger;beginWriter.WriteInteger(FInteger);end;end.W powyższym przykładzie odziedziczona metoda DefineProperties() uzupełniona została dwoma wywołaniami DefineProperty().Pierwsze z tych wywołań informuje, iż w strumieniu przechowywana będzie porcja danych identyfikowana przez nazwę StringProp; za jej odczyt (odpowiednio: zapis) odpowiedzialne będą metody ReadStrData (odpowiednio: WriteStrData).Porcji tej nie należy jednak tworzyć, jeżeli pole FString zawiera łańcuch pusty.Na podobnej zasadzie drugie ze wspomnianych wywołań definiuje tworzoną bezwarunkowo porcję o nazwie IntProp, obsługiwaną przez metody ReadIntData i WriteIntData.OstrzeżenieNależy uważać, by nie pomylić metod ReadString() i WriteString() klas TReader i TWriter z podobnie brzmiącymi metodami ReadStr() i WriteStr(); gdyż spowodowałoby to zniszczenie pliku.DFM.Przykład użycia DefineBinaryProperty() — komponent TddgWaveFileJak już wcześniej wspominaliśmy, przykładem danych niesformatowanych, predestynowanych do obsługi za pomocą metody DefineBinaryProperty(), są różnego rodzaju wzorce graficzne oraz dźwiękowe — i rzeczywiście: znakomita większość komponentów VCL wykorzystuje tę metodę do przechowywania ikon swych komponentów, że wspomnimy tu o właściwości Icon formularza albo właściwości Glyph przycisku TBitBtn.NotatkaKomponent TddgWaveFile jest komponentem w pełni funkcjonalnym, posiada m.in.specjalizowany edytor pozwalający na „przesłuchanie” przypisanego wzorca dźwiękowego podczas projektowania aplikacji, bez konieczności jej uruchamiania.Jego możliwościami zajmiemy się nieco później, obecnie skoncentrujemy się na mechanizmie przechowywania wzorca dźwiękowego w strumieniu.Metoda DefineBinaryPropety() nie rozróżnia (w przeciwieństwie do metody DefineProperty()) typu funkcji odczytującej i zapisującej — obydwie te funkcje posiadają wspólny typ (TStreamProc) i są metodami klasy TStream, reprezentującej strumień danych.Metoda DefineProperties() komponentu TddgWaveFile zdefiniowana jest następująco:procedure TddgWaveFile.DefineProperties(Filer: TFiler);{definiuje materiał dźwiękowy, wskazywany przez pole FData,jako porcję danych niesformatowanych określanych nazwą "Data"}function DoWrite: Boolean;beginif Filer.Ancestor <> nilthenResult := not (Filer.Ancestor is TddgWaveFile)ornot Equal(TddgWaveFile(Filer.Ancestor))elseResult := not Empty;end;begininherited DefineProperties(Filer);Filer.DefineBinaryProperty('Data', ReadData, WriteData, DoWrite);end;Jak widać, definiowana jest tu porcja danych identyfikowana przez nazwę Data, obsługiwana przez procedury transmisyjne ReadData() i WriteData(); jej obecność w strumieniu zależna jest od wyniku zwracanego przez funkcję DoWrite(), którą zajmiemy się za chwilę.Działanie ReadData i WriteData ogranicza się do (odpowiednio) odczytu danych komponentu ze strumienia i zapisu danych w strumieniu:procedure TddgWaveFile.ReadData(Stream: TStream);{ odczytuje dane ze strumienia }beginLoadFromStream(Stream);end;procedure TddgWaveFile.WriteData(Stream: TStream);{ zapisuje dane komponentu do strumienia }beginSaveToStream(Stream);end;Metoda LoadFromStream() sprawdza wpierw, czy do komponentu zostały już załadowane jakieś dane; jeżeli jest tak istotnie, zwalnia przydzieloną dla nich pamięć, przydziela ją ponownie w rozmiarze odpowiadającym rozmiarowi strumienia i wczytuje do niej dane zawarte w strumieniu:procedure TddgWaveFile.LoadFromStream(S: TStream);{Wczytuje dane ze strumienia, zwalniając pamięć zajętą przezew.dane załadowane wcześniej}beginif not Empty thenFreeMem(FData, FDataSize);FDataSize := 0;FData := AllocMem(S.Size);FDataSize := S.Size;S.Read(FData^, FDataSize);end;Metoda SaveToStream() jest nieco prostsza: zapisuje dane w strumieniu, sprawdziwszy jednak uprzednio, czy w ogóle jest co zapisywać:procedure TddgWaveFile.SaveToStream(S: TStream);{ Zapisuje dane do strumienia }beginif not EmptythenS.Write(FData^, FDataSize);end;Funkcja DoWrite(), decydująca o tym, czy dane mają być w ogóle zapisywane, rozwiązuje tu pewien problem, który pojawił się wraz z możliwością dziedziczenia formularzy (Visual Form Inheritance), na przykład z repozytorium, za pomocą opcji Inherit.Nie można wykluczyć sytuacji, iż komponent TddgWaveFile jest częścią formularza macierzystego i jako taki jest dziedziczony przez formularz projektu [ Pobierz całość w formacie PDF ]

Formularz