VPF::Помогите с записью файла - Форум программистов

energoatom

Дата 3.2.2006, 14:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 3.2.2006

Репутация: нет
Всего: нет

Помогите пожалуйста разобраться с записью файла:
в мемо пишет сразу и все, а в файл недописывает "хвостик",
дописывает его только при закрытии файла, такое ощущение что хвост остается в буфере

Код


procedure TForm1.VaComm1RxChar(Sender: TObject; Count: Integer);
var
txt: string;
begin
  begin
  txt := VaComm1.ReadText;                                                           //ЧИТАЕМ ИНФОРМАЦИЮ С СОМ-ПОРТА
  SMDR_Memo.Lines.Text := SMDR_Memo.Lines.Text + txt;            //ВЫВОДИМ НА ЭКРАН
  Write(f,txt);                                                                                   //ПИШЕМ ФАЙЛ
  end;
end;

Snowy

Дата 3.2.2006, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

После Write(f, txt); делай.

Код


  Flush(f);

energoatom

Дата 3.2.2006, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 3.2.2006

Репутация: нет
Всего: нет

Спасибо, помогло!

А можно ли сделать расшарить доступ к записываемому файлу?

Snowy

Дата 3.2.2006, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Можно. Если использовать TFileStream.

SoWa

Дата 3.2.2006, 17:26 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74

Второе решение проблеммы, это дописать в конце кода

Код


closefile(f);

--------------------

Всем добра smile

Romikgy

Дата 3.2.2006, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(Snowy @ 3.2.2006, 16:09

)

Если использовать TFileStream.

Можно и без, FileMode

Код


AssignFile(F, FileName);
  FileMode := fmShareCompat;

Константы:

Код


On Windows:

  const

    fmCreate         = $FFFF;
    fmOpenRead       = $0000;
    fmOpenWrite      = $0001;
    fmOpenReadWrite  = $0002;

    fmShareCompat    = $0000 platform;
    fmShareExclusive = $0010;
    fmShareDenyWrite = $0020;
    fmShareDenyRead  = $0030 platform;
    fmShareDenyNone  = $0040;

On Linux:

  const

    fmOpenRead       = O_RDONLY;
    fmOpenWrite      = O_WRONLY;
    fmOpenReadWrite  = O_RDWR;
    fmShareExclusive = $0010;
    fmShareDenyWrite = $0020;
    fmShareDenyNone  = $0030;

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »