Скачать: CL | DM;

А как в таблицу парадокс, в поле график запихнуть 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c