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

Вниз

Картинки формата jpg в Paradox   Найти похожие ветки 

 
Юра   (2002-10-09 12:02) [0]

Как наилучшим образом организовать хранение в Paradox картинок формата jpg? С bmp все понятно - объявляешь графическое поле, связываешь с ним TDBImage и все происходит само. С jpg, как я понимаю, надо объявлять BLOB поле и дальше работать с ним руками.


 
Lola   (2002-10-09 12:26) [1]

И bmp и jpg можно хранить в BLOB поле. Для JPG в uses добавляешь JPEG.
var
Bm: TMemoryStream;
Jp: TJpegImage;
begin
Table1.Edit;
Jp:=TJpegImage.Create;
Jp.Assign(Image1.Picture.Bitmap); //Помещаешь изображение в класс TJpegImage;
Bm:=TMemoryStream.Create;
Jp.SaveToStream(Bm); // Сохраняешь Jpeg в потоке
Bm.Seek(0,0);
Dm.Table1PHOTO.LoadFromStream(Bm); //Загружаешь Jpeg в поле через поток
Bm.Free;
Jp.Free;
Table1.Post;
end;




 
Юра   (2002-10-09 14:54) [2]

Да, это я сделал вот так:
tblPhoto.Insert;
tblPhotoPhoto.LoadFromFile(OpenDialog1.FileName);
tblPhoto.post;
Теперь для того, чтобы вытащить из BLOB в TImage - надо будет создать поток, записать в него содержимое поля, потом из стрима - в TJpegImage, а уж из него - в TImage, верно? А можно короче?


 
Lola   (2002-10-09 15:02) [3]

Это самый надежный путь и , по-моему, не очень и длинный :)


 
Юра   (2002-10-09 15:21) [4]

Ну, наверное это уже в потрепаться, но меня как-то не радует, что левой рукой правое ухо... Вместо того, чтобы напрямую переслать - создается поток, туда пишется, сикается, грузится в промежуточный жпег, потом оттуда в картинку... Как-то оно... Гм.
Правда, работает :-)



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

Форум: "Базы";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.012 c
1-101195
LexusU
2002-10-21 14:33
2002.10.31
Как сделать полупрозрачные формы в win98?(по подобиб alphablend )


1-101355
KPY
2002-10-21 07:53
2002.10.31
Перетаскивание рисунка по форме при помощи мыши


14-101522
Volly
2002-10-11 14:16
2002.10.31
Как зарегистрировать программу?


14-101499
vopros
2002-10-11 17:17
2002.10.31
Вот скажи на фига перепись?


3-101091
Leny
2002-10-09 12:18
2002.10.31
Простой вопрос по БД





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