VPF::Как записать все значения из BLOB полей в 1 файл

МММ

Дата 15.3.2007, 10:35 (ссылка)

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

Загрузка ...

Опытный

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

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

Есть код

Код


  ADOTable1.first;
  for I := 0 to ADOTable1.RecordCount - 1 do
     begin
      blob := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('d1'), bmRead);
      try
        blob.Seek(0, soFromBeginning);
       with TFileStream.Create('c:\111.txt', fmCreate) do
          try
            CopyFrom(blob, blob.Size)
          finally
            Free
          end;
       finally
        blob.Free;
        ADOTable1.next;
      end;
     end;

как заставить чтобы файл 111.txt дописывался? а не переписвался последним значение Blob поля ? тоесть в файле должны быть все blob занчения из таблицы.

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

Аренда VPS хостинга в России
x6x.ru

DimW

Дата 15.3.2007, 10:58 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1330
Регистрация: 24.2.2005
Где: Орёл

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

Цитата(МММ @ 15.3.2007, 10:35

)

как заставить чтобы файл 111.txt дописывался? а не переписвался последним значение Blob поля ?

прочитать как пользоваться:

assignfile();
append();
write();
closefile();

МММ

Дата 16.3.2007, 01:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

прочитать как пользоваться:

assignfile();
append();
write();
closefile();

спасибо конечно, это я знаю...., то-есть стандартно TFileStream.Create('c:\111.txt', fmCreate) только новый файл создает, дописывать никак не научить :(

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

Аренда VPS хостинга в России
x6x.ru

dimazu

Дата 16.3.2007, 08:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


var
  MyStream : TFileStream;
...
begin
  ...
  if not FileExists ('c:\111.txt') then
    MyStream := TFileStream.Create ('c:\111.txt', fmCreate)
  else
    MyStream := TFileStream.Create ('c:\111.txt', fmOpenReadWrite);
  try
    MyStream.Position := MyStream.Size;
    MyStream.Write({тута записываем, чего надо записать});
  finally
    MyStream.Free;
  end;
end;

Это сообщение отредактировал(а) dimazu - 16.3.2007, 08:16

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