Topic: DBFile файлы только определенного типа
Приветствую! а возможно ли сделать чтоб в БД добавлялись файлы только с определенным расширением (в моем случае JPG)?
My Visual Database → Russian → DBFile файлы только определенного типа
Приветствую! а возможно ли сделать чтоб в БД добавлялись файлы только с определенным расширением (в моем случае JPG)?
Приветствую,
можно, создайте событие 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;
Спасибо!
Доброго времени суток!
при загрузке формы должно проверяться на наличие файла с расширением .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
mr_xxl
Приветствую,
скорей всего ошибка не в данном скрипте, а в каком то другом, приложите пожалуйста ваш проект и описание действий, приводящих к ошибке.
Действительно, ошибка была в другом, странно, что она не проявлялась до этого...
Спасибо!
My Visual Database → Russian → DBFile файлы только определенного типа
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi