Приветствую Вас Гость
Регистрация | Вход
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

  • Главная страница
  • Форум (Новoe на форуме)
  • Быстрый старт
  • Блог
  • Видео уроки
  • Каталог файлов
  • Статьи и уроки
  • Юзербары
  • FAQ
  • Обратная связь
  • Консоль [7]
    Работа с консолью
    Delphi и 39dll [1]

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0

    [ Кто нас сегодня посетил ]
    Главная » Статьи » Сервер на Delphi » Консоль

    Побайтовое считывание с файла
    В этом скрипте показано как считывать и записывать бинарный файл.



    Code

    program LoadTXT;
    {$APPTYPE CONSOLE}
    uses
    SysUtils,
    IniFiles;

    var
    myFile : File;
    byteArray : array[1..256] of byte;
    byteArray2 : array[1..256] of byte;
    i, count: Integer;

    begin
    //Открываем наш файл для записи в него данных
    //Если файла нет, то программа его создаст сама в своей директории...
    AssignFile(myFile, 'pobyte.txt');
    ReWrite(myFile, 1); //Вводим по сколько байт будет весить одна запись
    //В данном случаи по 1. То есть чилос будет не боле 255

    //Вводим в масив данные, которые будут записаны в текст:
    byteArray[1]:=121;
    byteArray[2]:=122;
    byteArray[3]:=25;

    BlockWrite(myFile, byteArray, 3); //Теперь записываем первые 3 переменные масива byteArray
    CloseFile(myFile);//Закрываем файл

    //Сново открываем файл, но уже для чтения
    FileMode := fmOpenRead;
    Reset(myFile, 1);
    writeln('Read:');

    BlockRead(myFile, byteArray2, 3, count);

    for i := 1 to 3 do
    writeln(IntToStr(byteArray2[i]));

    CloseFile(myFile);
    readln;
    end.


    Автор:zxc76
    Категория: Консоль | Добавил: zxc76 (05.06.2011) | Автор: zxc76
    Просмотров: 1034 | Комментарии: 1 | Теги: бинарный, файл., бинарное, консоль, считывание, delphi | Рейтинг: 5.0/1
    Всего комментариев: 1
    1  
    И тут тоже теги добавь )

    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]
    -->


    Логин:
    Пароль:

    Хостинг от uCoz