Запись/чтение BLOB полей

← →
Alek Aaz (2003-01-05 06:24) [0]

Вообще кто как это делает?
Пожалуйста, примеры с кодом. Может потом в FAQ запихнуть. Общие ответы типа "Смотри LoadFromStream и SaveToStream" не принимаются.

← →
Дмитрий К.К. (2003-01-05 07:41) [1]

СлабО F1 нажать?

TBlobField.LoadFromStream

Loads a BLOB from a stream into the field.

procedure LoadFromStream(Stream: TStream);

Description

Use LoadFromStream to copy the contents of a stream into the BLOB field. Specify the stream from which the field’s value is copied as the value of the LoadFromStream parameter.

var

FS: TFileStream;
begin
if not (Query1.State in [dsInsert, dsEdit]) then Query1.Insert;
FS := TFileStream.Create("c:\Windows\Winlogo.bmp", fmOpenRead);
try
Query1Images.LoadFromStream(FS);
finally
FS.Free;
end;
Query1.Post;
end;

← →
Lola (2003-01-05 10:31) [2]

А насчет FAQ предложение хорошее, учитывая частоту появления этого вопроса.

← →
shel (2003-01-05 16:09) [3]

Я пытаюсь так, но не проходит.
Может проблема в том, что я с базами только 3-е суток работал?

Что это такое Query1Images.LoadFromStream(FS)?

procedure TForm1.Button3Click(Sender: TObject);
Var
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
try
(ADOTable1.FieldByName("Image") as TGraphicField).SaveToStream(MS);
Image1.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;
end;

← →
Delirium^.Tremens (2003-01-05 16:24) [4]

> Я пытаюсь так, но не проходит

В какое место не проходит, конкретно?

> Что это такое Query1Image.LoadFromStream(FS)?

Если на TQuery сделать dblclick, появится окошко, в котором, при нажатии правой кн. мыши (или Ctrl+F), можно создать объекты Fields Collection. Объект, соответствующий полю Image таблицы, по умолчанию буден назван в честь мамы и папы (Query1 и Field Image). Если это будет поле класса TBlobField или типа того, у него будут методы LoadFrom... SaveTo...
и т.д. и т.п.

← →
shel (2003-01-05 19:38) [5]

Спасибо, разобрался!

Запись/чтение BLOB полей Найти похожие ветки