procedure TForm1.Button4Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute
then
begin
Table1.Edit;
// TBlobField(Table1.FieldByName('Foto1')).LoadFromFi le(OpenPictureDialog1.FileName); // работает, но сохраняет только если загружаю некие мелкие картинки в формате bmp, когда фотку меняю расширение на bmp - выходит ошибка Image invalid, уменьшаю ее в размерах - та же ошибка.
dbImage1.Picture.LoadFromFile(OpenPictureDialog1.F ileName); //то же самое что и выше, сохраняет ту же самую мелкую картинку, остальные подобные картинки почему то выдает ошибку, не понятно какой параметр изображений ему не нравится....Если убираю ниже команду Table1.Post; то загружает и выдает изображение всех фоток подряд, но они исчезают как только нажимаю "Сохранить". А так же они не появляются при загрузке в DBImage если активна команда Table1.Post;
// Table1.Post;
end;
end;
Помогите, в чем тут проблема??? работает на какою то долю процентов
|