| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись чтение Blob-fields использую BDE [D5, D7, WinXP]

PhAn ©   (2004-07-23 09:45:00) 

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

---

Reindeer Moss Eater   (2004-07-23 12:02:00) [1]

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

---

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

Работает вот только я не пойму следующую строку, как она работает, к контексту чего она привязана :(  :

TBlobField(FieldByName('Photo')).LoadFromFile('Красивая тетка в купальнике.bmp');


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

---

Johnmen   (2004-07-23 11:37:00) [3]

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

---

Reindeer Moss Eater   (2004-07-23 11:16:00) [4]

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;

---

Reindeer Moss Eater   (2004-07-23 11:13:00) [5]

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

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

---

PhAn   (2004-07-23 11:11:00) [6]

Имеем тестовую базу с таблицей:
 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 10:32:00) [7]

TBlobField

---

PhAn   (2004-07-23 10:31:00) [8]

>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:22:00) [9]

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

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;

---

Reindeer Moss Eater   (2004-07-23 10:15:00) [10]

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

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

---

Reindeer Moss Eater   (2004-07-23 10:12:00) [11]

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

TBlobField.DataSet
TBlobField.FieldName

---

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

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

---

Reindeer Moss Eater   (2004-07-23 09:45:00) [13]

TBlobField и его методы

---

Наверх