Запись чтение Blob-fields использую BDE

← →
PhAn (2004-07-23 09:45) [0]

Как прочитать/записать в blob картинку

← →
Reindeer Moss Eater © (2004-07-23 09:45) [1]

TBlobField и его методы

← →
PhAn (2004-07-23 10:10) [2]

Извени а по конкретнее можешь, я туплю наверно, кучу ссылок нашел но так и не понял где у TBlobField указать таблицу и поле, что-то через dataset(я обычно обходился только TQuery)

← →
Reindeer Moss Eater © (2004-07-23 10:12) [3]

где у TBlobField указать таблицу и поле

TBlobField.DataSet
TBlobField.FieldName

← →
Reindeer Moss Eater © (2004-07-23 10:15) [4]

я туплю наверно, кучу ссылок нашел но так и не понял где у TBlobField указать таблицу и поле,

Не надо ничего указывать.
В датасете надо взять поле, привести его к TBlobField и вызвать у него соотвю метод

← →
Reindeer Moss Eater © (2004-07-23 10:22) [5]

кучу ссылок нашел но так и не понял ...

Reindeer Moss Eater © (23.07.04 09:45) [1]
TBlobField и его методы

Пишем в коде слово TBlobField. Давим на F1.
Выбираем methods.
Жмем на LoadFromFile
И что же мы видим вместо кучи ссылок?

TBlobField.LoadFromFile

TBlobField See also

Loads a BLOB from a file into the field.

procedure LoadFromFile(const FileName: string);

Description
Use LoadFromFile to load the contents of a file into a BLOB field. Specify the name of the file to load into the field as the value of the FileName parameter.

if not (Query.State in [dsInsert, dsEdit]) then Query1.Insert;

Query1Images.LoadFromFile("c:\Windows\Waves.bmp");
Query1.Post;

← →
PhAn (2004-07-23 10:31) [6]

>Description
>Use LoadFromFile to load the contents of a file into a BLOB >field. Specify the name of the file to load into the field as >the value of the FileName parameter.

if not (Query.State in [dsInsert, dsEdit]) then Query1.Insert; Query1Images.LoadFromFile("c:\Windows\Waves.bmp"); Query1.Post;
В этом коде что означает "Query1Images" - что за класс и с чем его едят?

← →
Reindeer Moss Eater © (2004-07-23 10:32) [7]

TBlobField

← →
PhAn (2004-07-23 11:11) [8]

Имеем тестовую базу с таблицей:
images(id(counter),img(memo))

procedure TForm1.Button1Click(Sender: TObject); var Query1Images:TBlobField; begin Query1Images:=TBlobField.Create(self); Query1Images.DataSet:=Query1; Query1Images.FieldName:="img"; if not (Query1.State in [dsInsert, dsEdit]) then Query1.Insert; If OpenPictureDialog1.Execute then begin Query1Images.LoadFromFile(OpenPictureDialog1.FileName); Query1.Post; end; end;

что должно быть в query1.sql?

← →
Reindeer Moss Eater © (2004-07-23 11:13) [9]

Слушай, может просто откроешь Demos\Db\Biolife.dpr ?
А то я чувствую это надолго.

PS весь код из своего постинга 8 выброси целиком.

with TQuery.Create(nil) do
try
AliasName := "dbdemos";
Sql.Text := "select * from biolife";
RequestLive := True;
Open;
Edit;
TBlobField(FileldByName("Photo")).LoadFromFile("Красивая тетка в купальнике.bmp");
Post;
finally
Free;
end;

[Error] File pro tetku not found. Change file name and try again.

← →
PhAn (2004-07-23 12:00) [12]

Работает вот только я не пойму следующую строку, как она работает, к контексту чего она привязана :( :
TBlobField(FieldByName("Photo")).LoadFromFile("Красивая тетка в купальнике.bmp");

>Слушай, может просто откроешь Demos\Db\Biolife.dpr ?
ни в 5 ни в 7 нет, ты в какой его нашел, я сам собирался одним хелпом обойтись да не получилось
>А то я чувствую это надолго.
Да вроде все :)
Спасибо.

к контексту чего она привязана
К контексту купальника

Запись чтение Blob-fields использую BDE Найти похожие ветки