Operacje na Plikach

Typy plików

•

Pliki tekstowe

•

Pliki typowane

•

Pliki strumieniowe

•

Pliki amorficzne

Pliki tekstowe

•

Struktura danych (zewnętrzna) zawierających tekst

•

Ogranicznikiem każdego wiersza jest znak o kodzie

ASCII #13

•

Typ danych TextFile

•

Otwieranie pliku: skojarzenie zmiennej typu TextFile

ze ścieżką dostępu, za pomocą procedury AssignFile

•

Po otwarciu uzyskujemy

uchwyt

uchwyt do pliku

•

Od tej pory możemy korzystać z pliku

•

Należy zdecydować, czy plik otwieramy tylko do

odczytu, czy też do zapisu

•

Po zakończeniu korzystania z pliku, należy go zwolnić

(zamknąć) za pomocą procedury CloseFile

Operowanie na pliku

tekstowym

•

Procedura reset – otwarcie do odczytu

•

Procedura rewrite – otwarcie do zapisu

•

Funkcja FileExists (typu Boolean)

•

Procedury read, write, readln, writeln

•

Przykład: Project1

•

Polecenie Append nie usuwa pliku;

umożliwia dopisywanie do niego nowych

informacji

Pliki typowane

•

Zwane też rekordowymi

•

Konieczne zdefiniowanie typu rekordowego

–

Najlepiej spakowanego (packed)

–

Zagnieżdżone łańcuchy znaków powinny mieć określony

maksymalny rozmiar

•

Powiązanie typu rekordowego z typem plikowym (file

of)

•

Funkcja FileSize wyznacza rozmiar pliku (liczbę

rekordów)

•

Funkcja FilePos wyznacza numer bieżącego rekordu

•

Funkcja Seek wyszukuje określony rekord, np.

Seek(DataBase, FileSize(DataBase))

•

Przykład: Project2

Pliki strumieniowe

•

Pliki typowane nie wymagają VCL

•

Abstrakcyjna klasa TStream; podklasy

–

TFileStream – do operowania na plikach

–

TStringStream – na łańcuchach tekstowych

–

TMemoryStream – na danych w pamięci

operacyjnej

–

TResourceStream – na zasobach

•

Strumienie obejmują dane składające się z

bajtów

•

Dane mogą być przesyłane między: pamięcią,

plikami, zasobami itp.

Operowanie na plikach

strumieniowych

var potok: TFileStream;
potok:=TFileStream.Create(‘C:\ustawienia’,

fmOpenRead);

•

Tryb otwarcia

–

fmCreate – utworzenie nowego pliku

–

fmOpenRead – otwarcie tylko do odczytu

–

fmOpenWrite – zapis

–

fmOpenReadWrite – odczyt + zapis

–

fmShareExclusive – inna aplikacja nie może otworzyć pliku

–

fmShareDenyWrite – inna aplikacja może tylko czytać plik

–

fmShareDenyRead - odpowiednio

Przykład operowania na

strumieniach

•

Cel: zapamiętywanie ustawienia
komponentu formularza

•

Klasa TFileStream

•

Jej metoda WriteComponentRes
zapisuje ustawienia wybranego
komponentu w pliku .RES

•

Przykład:
StreamComponentSave.exe

Pliki amorficzne

•

Pliki amorficzne (ang. untyped file) są plikami bez struktury;

pliki binarne

•

Odczytujemy z nich bajty lub inną określona porcję danych

(ziarno)
var fFile: File;

•

Dostępne funkcje podobne do funkcji plików tekstowych

•

Zapis i odczyt danych odbywa się jednak za pomocą procedur:

BlockWrite i BlockRead

•

Procedury Reset i Rewrite wymagają drugiego argumentu

(liczba porcji danych odczytywanych jednocześnie); wartością

domyślna jest 128

•

Argumenty BlockRead: plik (zmienna typu File), bufor danych,

liczba danych do odczytu, opcjonalny argument – liczba

faktycznie odczytanych bajtów

•

Przykład: Project3

Operacje ogólne

•

Kopiowanie plików

CopyFile(‘C:\Plik1.pas’,’C:\Plik2.pas,true);

•

Ścieżka źródłowa, docelowa, czy zastąpić istniejący

plik o tej samej nazwie

MoveFile(‘C:\Plik1.pas’,’C:\Plik2.pas);

•

Bardziej uniwersalne podejście – skorzystanie z

WinAPI (m.in. możliwość kopiowania całych folderów)

–

Konieczność dodania modułu ShellAPI w klauzuli uses

–

Wypełnienie rekordu, np. S, typu TSHFileOpStruct

zawierającego parametry żądanej operacji

–

Wykonanie operacji ShFileOperation(S);

•

mkDir(‘C:\nowy_folder); rmDir ...

Korzystanie z WinAPI

var
S: TSHFileOpStruct;
begin
S.Wnd:=Handle; //uchwyt głównego formularza
S.wFunc := FO_COPY; operacja kopiowania
S.pFrom := ‘C:\File1.src’ // folder (plik) źródłowy
S.pTo := ‘D:\File1.src’ //folder docelowy
S.fFlags := FOF_NOCONFIRMATION or

FOF_RENAMEONCOLLISION or FOF_SIMPLEPROGRESS;

S.fAnyOperationsAborted := true; //jest możliwość anulowania?
S.lpszProgressTitle := ‘Kopiowanie w toku’ //tekst

ShFileOperation(S); //wykonaj
end;

Korzystanie z WinAPI

(c.d.)

•

Flagi operacji

–

FO_COPY –
kopiowanie

–

FO_DELETE –
usunięcie pliku
(katalogu) pFrom

–

FO_MOVE –
przeniesienie

–

FO_RENAME

•

Opcje

–

FOF_ALLOWUNDO – możliwe cofnięcie

operacji

–

FOF_FILESONLY – dotyczy plików z

folderu, a nie podfolderów

–

FOF_NOCONFIRMATION –

niewyświetlanie potweirdzeń

–

FOF_NOCONFIRMMKDIR – nie tworzy

nowego folderu jeżeli operacja tego

wymaga

–

FOF_SILENT – okno kopiowania nie

zostanie wyświetlone

–

FOF_SIMPLEPROGRESS – wyświetla

wskazany tekst (ostatnie pole), ale nie

wyświetla kopiowanego pliku

–

FOF_RENAMECOLISSION – w

przypadku istnienia pliku o tej samej

nazwie, jego nazwa jest zmieniana

Wyszukiwanie plików

•

Funkcje FindFirst i FindNext (SysUtils.pas)

•

Rekord, w którym są przechowywane informacje o

znalezionym pliku

type
TSearchRec=record
Time: integer; //czas utworzenia pliku
Size: integer; //rozmiar
Attr: integer; //atrybuty
Name: TFileName; //nazwa
ExcludeAttr: integer;
FindHandle: Thandle;
FindData: TWin32FindData;
end;

Wyszukiwanie plików

(c.d.)

•

Atrybuty plików

–

faReadOnly – tylko do
odczytu

–

faHidden – ukryty

–

faSysVolume –
systemowy

–

faVolumeID – etykieta
woluminu

–

faDirectory – folder

–

faArchive –
zarchiwizowany

–

faAnyFile – dowolny plik

•

Rozpoczęcie wyszukiwania

FindFirst(‘C:\Folder\*.*’,

faDirectory, DR)

•

Ostatni parametr – nazwa
zmiennej typu TSearchRec

•

Zakończenie

FindClose(DR)

•

FindFirst wyznacza 0, gdy
wyszukiwanie się powiodło

Przykład: pobranie listy

plików z folderu

procedure TMainForm.btnFindClick (Sender: Tobject);
var
SR: TSearchRec;
Found: integer;
begin
Found:=FindFirst(‘C:\folder\*.*’, faAnyFile, SR);
while Found = 0 do
begin
Memo1.Lines.Add(SR.Name);
Found:=FindNext(SR);
end;
FindClose(SR);
end;