Главная страница
    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.45 MB
Время: 0.007 c
1-95304
Digi
2002-07-17 04:15
2002.07.29
перехватывание сообщений


3-95269
Loco
2002-07-09 15:43
2002.07.29
Query


14-95561
Tahion
2002-06-25 10:15
2002.07.29
Как сделать, чтоб форма появлялась сама?


1-95310
Romeo
2002-07-17 16:39
2002.07.29
Регистры SSE


1-95431
victor-s72
2002-07-16 16:57
2002.07.29
TChart --> SaveToBitmapFile





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский