Базы данны

← →
LEON (2002-07-04 12:35) [0]

Никогда не занимался загрузкой в базу данных графических рисунков BMP.

Продемонстрируйте в качестве примера отрывок програмного кода

← →
Игорь Шевченко © (2002-07-04 12:39) [1]

В качестве примера отрывок из учета собственных компакт-дисков:

procedure TfrmMain.actLoadAlbumImageExecute(Sender: TObject); resourcestring odAlbumPictureCaption = "Выбор картинки для альбома "; begin odAlbumImg.Title := odAlbumPictureCaption + """ + dmMUS.tblAlbumsName.AsString + """; if odAlbumImg.Execute then begin if dmMUS.tblAlbums.State = dsBrowse then dmMUS.tblAlbums.Edit; try dbAlbumImg.Picture.LoadFromFile(odAlbumImg.FileName); dmMUS.tblAlbums.Post; except dmMUS.tblAlbums.Cancel; raise; end; end; end;

Ещё вариант - через запрос и поток
bit:=Tbitmap.Create;
var
bit : TBitmap;
ms : TMemoryStream;
begin
bit.loadfromfile("ris.bmp");
ms := TMemoryStream.Create;
bit.SaveToStream(ms);
with Query1 do begin
active:=false;
sql.clear;
sql.add("insert into vid(icon) values(:par)");
ParamByName("par").DataType := ftBlob;
ParamByName("par").ParamType := ptInput;
ParamByName("par").LoadFromStream(ms,ftBLOB);
execsql;
end;
bit.Free;
ms.free;

Базы данны Найти похожие ветки