Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.022 c
1-95399
sergey32
2002-07-16 10:28
2002.07.29
Может дурацкий вопрос


14-95563
Polygon
2002-07-03 13:58
2002.07.29
IBX for Kylix 2


4-95626
Voland!
2002-05-21 03:31
2002.07.29
Крыса


1-95383
finger
2002-07-15 09:51
2002.07.29
Доступ к файлу


3-95253
Alenka
2002-07-09 10:31
2002.07.29
Запомнить значение в текущей ячейки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский