Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Сохранение *.jpg в базе данныx PARADOX

Автор: DamZ 14.4.2008, 20:10

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

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

smile

Автор: Rodman 14.4.2008, 20:18

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=28796

Автор: standel 3.5.2008, 22:41

Можно поступить по другому. Создайте в таблице поле текстовое, где будет помещаться название картинки (*****.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

Автор: DamZ 5.5.2008, 20:33

standel спасибо за совет smile

, можно попробовать, но хотелось бы хранить картинки всё таки в базе