но он не все картинки маленькие берет, когда я умышленно уменьшаю, все равно ошибка
Где посмотреть параметры BDE?
Я реализовал почти то что хотел но через одно неудобство с помощью этого кода можно сохранить в базу любую картинку любого размера но только из Буфера! то есть из любого граф. редактора, к примеру из Paint
Код:
procedure TForm1.Button4Click(Sender: TObject);
var
C: TClipboard;
begin
C := TClipboard.Create;
try
if Clipboard.HasFormat(CF_BITMAP) then
DBImage1.PasteFromClipboard
else
ShowMessage('Буфер обмена не содержит изображения!');
finally
C.Free;
Image2.Picture.Bitmap.Assign(Table1.fieldbyname('foto1'));
end;
end;
Admin: Напоминаю про теги, при рецедиве последуют санкции.
Но мне так не нужно, удобнее через форму выбора файла! Но никак не получается.... Пока не научился сделать через форму выбора файла придется добавлять фотки из Paint'a