Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сохранение *.jpg в базе данныx PARADOX 
:(
    Опции темы
DamZ
Дата 14.4.2008, 20:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 25.2.2008

Репутация: нет
Всего: нет
Возникла проблема:
Есть база данных с таблицей PARADOX7 (файлы с расширениями *.DB и *.MB), нужно сохранять в ней файлы формата *.jpg, а сохраняются только в формате *.bmp из-за этого база занимает ОЧЕНЬ много места на диске. 

Подскажите ПОЖАЛУЙСТА как можно сохранять в базу файлы *.jpg или как еще можно уменьшить размер базы c картинками.

 smile  smile  smile  smile  smile  smile  smile  smile 
PM MAIL   Вверх
Rodman
Дата 14.4.2008, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
изучай


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
standel
Дата 3.5.2008, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 17.3.2008

Репутация: нет
Всего: нет
Можно поступить по другому. Создайте в таблице поле текстовое, где будет помещаться название картинки (*****.jpg), а для картинок создайте каталог, например FOTO, где они и будут храниться. А затем по полю вызываете необходимую картинку из файла и помещаете на компонент TImage

Код

procedure ShowFoto(foto: string);
begin
try
Form5.Image1.Picture.LoadFromFile(BmpPath+foto);
Form5.Image1.Visible:= true;
except

on EFOpenError do
begin
MessageDlg('Фотографии нет',mtInformation, [mbOk],0);
end;
end;
end;


procedure TForm5.FormCreate(Sender: TObject);
begin
BmpPath := ExtractFilePath(ParamStr(0))+'foto\'; 
end;

procedure TForm5.Button6Click(Sender: TObject);
begin
 if DBText6.Caption <> '' then
      begin
      showFoto(DBText6.Caption);
      Image1.Visible := True;
      end else
      Image1.Visible := False;
end;

M
Rodman		Модератор: Используйте тег - code




Это сообщение отредактировал(а) Rodman - 4.5.2008, 20:35
PM MAIL   Вверх
DamZ
Дата 5.5.2008, 20:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 25.2.2008

Репутация: нет
Всего: нет
standel спасибо за совет smile, можно попробовать, но хотелось бы хранить картинки всё таки в базе
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0415 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.