Форум: "Базы";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
ВнизА как в таблицу парадокс, в поле график запихнуть jpeg. Найти похожие ветки
← →
Zloy (2002-10-26 16:02) [0]Приветствую!!! А как в таблицу парадокс, в поле график запихнуть jpeg. ОЧЕНЬ НАДО
← →
Zloy (2002-10-27 18:00) [1]АУУУУУУУУУУУУУУУ!!!!!!!!!!!
← →
Вольный Стрелок (2002-10-27 19:24) [2]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-28 00:59) [3]Дело в том, что я неиспоьлзую SQL, как без него это сделать
← →
Desdechado (2002-10-28 10:25) [4]1. все-таки использовать SQL
2. изучить TBlobField и его методы - для Query и Table они одинаковы
← →
sunwheel (2002-10-28 11:16) [5]
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;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.155 c