Мал. 8.4. Запис в текстовому файлі.

Довільний доступ зручний для роботи із списками даних, які поставляються у вигляді ASCII - файлів. Проте багато файлів не укладаються в цей формат. Вони можуть мати заголовки різної довжини або інші відхилення в структурі файлу. Можливо, реляційна база даних виявиться зручнішою. Ця тема розглядається після двійкового режиму доступу.

Двійковий доступ

Двійковий режим доступу має найбільшу гнучкість при роботі з файлами. Читання даних в нім виробляється командою Get#, а запис - командою Put# (по аналогії з довільним доступом). Двійковий доступ відрізняється від довільного тим, що ви не можете випадковим чином переміщатися по файлу і читати дані в будь-якому місці. У двійковому режимі читання даних відбувається послідовно і у вигляді блоків. Кількість байт, прочитаних з файлу, дорівнює розміру рядка (у байтах), в який мають бути занесені прочитані дані. Наприклад, наступний фрагмент читає з файлу 10 байт:

Temp = String(10, " ")

Get #FileNo,, Temp

Зверніть увагу на відсутність параметра RecNo - причина полягає в тому, що двійкові файли читаються послідовно. Visual Basic запам'ятовує поточну позицію файлу, так що надалі вам не доведеться стежити за нею. Давайте скористаємося тільки що отриманими знаннями і напишемо програму для шифрування файлів. Подробиці її роботи будуть описані по ходу справи.

Проста програма шифрування

Ми розглянемо основні принципи роботи з двійковими файлами на прикладі програми шифрування файлів. Не сподівайтеся, що файл, створений цією програмою, не буде зламаний хорошим програмістом - ми реалізуємо простий алгоритм шифрування. Цей приклад призначений лише для того, щоб продемонструвати особливості роботи з файлами в двійковому режимі доступу. Шифрування виконується командою меню Actions > Encrypt, a розшифровка - командою Actions > Decrypt. B обох випадках вам буде запропоновано вибрати текстовий файл, з яким виконуватиметься операція.

1. Створіть новий проект типу Standard EXE.

2. Активізуйте форму Form1 і задайте її властивості Name значення frmMain, а властивості Caption - значення Шифрування файлів.

3. Помістите на форму елемент стандартного діалогового вікна, задайте його властивості Name значення dlgFile.

4. Відкрийте редактор меню і створіть в нім наступні об'єкти:

Меню File:

Caption:	Name:
&&File	mnuFile

Команди меню File:

Caption:	Name:
&&Exit	mnuFileExit

Меню Actions:

Caption:	Name:
&&Actions	mnuAct

Команди меню Action

Caption:	Name:
&&Encrypt	mnuActEncrypt
&&Decrypt	mnuActDecrypt

У вас вийде форма, схожа на мал. 8.5.