| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
А как в таблицу парадокс, в поле график запихнуть jpeg. [D5, Paradox]
Zloy © (2002-10-26 16:02:00)Приветствую!!! А как в таблицу парадокс, в поле график запихнуть jpeg. ОЧЕНЬ НАДО
sunwheel (2002-10-28 11:16:00) [1]
Var St : TStream;
NewGraphic : TGraphic;
...
St := TBlobStream.Create(Blob,bmWrite); // Blob:TBlobField;
try
NewGraphic := TGraphicClass(TJPEGImage).Create;
try
NewGraphic.Assign(Pic.Graphic); //Pic:TPicture;
NewGraphic.SaveToStream(St);
finally
NewGraphic.Free;
end;
finally
St.Free;
end;
Desdechado (2002-10-28 10:25:00) [2]1. все-таки использовать SQL
2. изучить TBlobField и его методы - для Query и Table они одинаковы
Zloy (2002-10-28 00:59:00) [3]Дело в том, что я неиспоьлзую SQL, как без него это сделать
Вольный Стрелок (2002-10-27 19:24:00) [4]Query1.Sql.Text :=
"INSERT INTO testblob " +
" ( " +
" fBlob" +
" )" +
" VALUES" +
" (" +
" :ParamBlobField" +
")";
Query1.ParamByName("ParamBlobField").DataType := ftBlob;
Query1.ParamByName("ParamBlobField").ParamType := ptInput;
Query1.ParamByName("ParamBlobField").LoadFromFile("MyFile",ftBlob);
Query1.ExecSql;
Zloy (2002-10-27 18:00:00) [5]АУУУУУУУУУУУУУУУ!!!!!!!!!!!
| |
