VPF::кеширование изменений - Форум программистов

Vinnety

Дата 23.11.2003, 13:36 (ссылка)

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

Загрузка ...

Шустрый

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

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

Подскажите! Как правильно записывать данные в BLOB-поля с помощью Query.
И как правильно организовать кеширование изменений (т.е. данные
заносились в физическую ТБД и не пропадали)?

<Spawn>

Дата 23.11.2003, 15:49 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Вот пример кэширования:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  with DataSource do
  begin
    CachedUpdates:= True;
    Edit;
    //К примеру у тебя все манипуляции с полями происходят в другой форме, тогда
    SomeForm:= TSomeForm.Create(Self);
    try
      if SomeForm.ShowModal = mrOk then
      begin
        Post;
        ApplyUpdates
      end
      else
      begin
        Cancel;
        CancelUpdates;
      end;  
    finally
      CachedUpdates:= False;
      FreeAndNil(SomeForm);
    end;
  end; 
end;

Это сообщение отредактировал(а) <Spawn> - 23.11.2003, 15:50

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Vinnety

Дата 23.11.2003, 17:00 (ссылка)

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

Загрузка ...

Шустрый

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

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

А как же правильно записывать данные в BLOB-поля с помощью Query?

Vit

Дата 24.11.2003, 00:13 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Кверя:

SQL

Insert into MyTable (MyBlobField)
Values (:BlobField)

Код:

Код

Query1.params.parseSQL(Query1.slq.text, true);
(Query1.params.parambyname('BlobField') as TBlobField).LoadFromStream или Assign или LoadFromFile
Query1.ExecSQL;

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

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