• Registered: 2014-10-19
  • Posts: 25

Topic: DBFile файлы только определенного типа

Приветствую! а возможно ли сделать чтоб в БД добавлялись файлы только с определенным расширением (в моем случае JPG)?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: DBFile файлы только определенного типа

Приветствую,


можно, создайте событие OnClick у кнопки с действием "Сохранить запись"

procedure Form2_ButtonSave_OnClick (Sender: string; var Cancel: boolean);
var
    s: string;
begin
  s := LowerCase(ExtractFileExt(Form2.dbFile.Text)); // получаем расширение файлы из компонента DBFile
  if (s<>'') and (s<>'.jpg') then // если расширение не сооветствует .jpg, тогда показываем сообщение об этом и отменяем действие сохранения записи
  begin
      ShowMessage('Допускается сохранять только JPG файлы');
      Cancel := True;
  end;
end;
Dmitry.
  • Registered: 2014-10-19
  • Posts: 25

Re: DBFile файлы только определенного типа

Спасибо!

  • Registered: 2014-10-19
  • Posts: 25

Re: DBFile файлы только определенного типа

Доброго времени суток!

при загрузке формы должно проверяться на наличие файла с расширением .jpg и при его наличии отображаться в DBImage1

var
    file : string;
begin
      file := Lowercase(ExtractFileExt(AddBanner.DBFile1.Text));
      if (file<>'') and (file='.jpg') then AddBanner.DBImage1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + AddBanner.DBFile1.dbFileName);
end;

ругаться, что это не картинка перестало, зато выдает ошибку is not a valid floating point value

  • Registered: 2014-02-14
  • Posts: 10,294

Re: DBFile файлы только определенного типа

mr_xxl
Приветствую,


скорей всего ошибка не в данном скрипте, а в каком то другом, приложите пожалуйста ваш проект и описание действий, приводящих к ошибке.

Dmitry.
  • Registered: 2014-10-19
  • Posts: 25

Re: DBFile файлы только определенного типа

Действительно, ошибка была в другом, странно, что она не проявлялась до этого...
Спасибо!