Вставка картинки

← →
Валера (2006-02-19 13:16) [0]

Как с помощью SQL через Query в таблицу типпа Paradox
вставить картинку из файла???

← →
Desdechado © (2006-02-19 15:11) [1]

дежурный пример
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;

выставить из БД - домашнее задание

← →
Валера (2006-02-19 18:42) [2]

procedure TFrm_Editor.BitBtn5Click(Sender: TObject);
begin
if Frm_Module.OPD_Foto.Execute then begin
with Frm_Module.Query1 do
begin
Close;
SQL.Clear;
SQL.Add ("Update Price.db Set fBlob = :ParamBlobField Where Name = """+DB_Name.Text+""" ");
//"INSERT INTO Price.db "+"("+"fBlob"+") "+" VALUES "+"("+":ParamBlobField"+")";
ParamByName("ParamBlobField").DataType := ftBlob;
ParamByName("ParamBlobField").ParamType := ptInput;
ParamByName("ParamBlobField").LoadFromFile(Frm_Module.OPD_Foto.FileName,ftBlob);
ExecSql;
end;
end;
end;

Если вот эта процедура реальна то как сдельть, чтоб она не выдовала ошибку "Bitmap image is not valid"

Frm_Module - форма на которой находятся компоненты Query и т.д.
OPD_Foto - это OpenPictureDialog.
Price.db - это таблица
fBlob - это поле типпа Graphic (или OLE лучше??? )

← →
Desdechado © (2006-02-19 19:21) [3]

> "Bitmap image is not valid"
переведу: нужно BMP, а ты кормишь меня непонятно чем

← →
Валера (2006-02-19 19:40) [4]

СПАСИБО большое!!!! Все работает.

А реально сделать чтоб и JPEG тоже отображался???

использовать универсальный для двоичной информации тип поля BLOB, если он есть в парадоксе

Вставка картинки Найти похожие ветки