Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.29;
Скачать: CL | DM;

Вниз

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

 
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;




 
fnatali ©   (2002-07-04 13:19) [2]

Ещё вариант - через запрос и поток
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;



Страницы: 1 вся ветка

Текущий архив: 2002.07.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-95277
CAHbKA
2002-07-17 08:26
2002.07.29
HintForm


1-95288
Ученик
2002-07-16 08:43
2002.07.29
Блокирование событийных методов On*


14-95502
esprit_bel
2002-06-22 02:17
2002.07.29
клава


1-95320
_Alex_
2002-07-17 22:47
2002.07.29
StringGrid сортировка


1-95302
Свой
2002-07-17 15:34
2002.07.29
Таймер