Цитата:
Если использую то, что предложил Kapitoshka438, то ошибка не вылетает, но в то же время записи изображения в таблицу не происходит!
|
Это был ответ на второй вопрос. Его надо вставить в обработчик события DoAfterScroll твоего датасета.
Вот ответ на первый вопрос:
Код:
var
Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
Image1.Picture.Graphic.SaveToStream(Stream);
TBlobField(Table.FieldByName('Photo')).LoadFromStream(Stream);
Stream.Free;
end;