Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > MSACCESS+ADO+JPEG

Автор: Vitiligo 17.12.2006, 21:28

Помогите вставить в Таблицу БД MS ACCESS 2000 JPEG Картинку. Работает все в DELPHI 2006 через ADO.
Курсовик горит... все работает, только с JPEG'ом напряг.

Автор: Mephisto 20.12.2006, 10:32

Код


procedure TForm1.SavePicture(ID : integer);
var
  AStream : TMemoryStream;
begin
  AStream := TMemoryStream.Create;
  try
    Image1.Picture.Bitmap.SaveToStream(AStream);

    Query1.Close;
    Query1.SQL.Text := 'insert into table1 (ID, pctBLOB) values (:id, :pct)';

    Query1.Parameters.ParamByName('ID').Value := ID;
    Query1.Parameters.ParamByName('pct').LoadFromStream(AStream, ftBlob);

    Query1.ExecSQL;
  finally
    FreeAndNil(AStream);
  end;
end;

Добавлено @ 10:33
А вообще в DRKB посмотри. Там кажецо видел примеры были...

Автор: Vitiligo 20.12.2006, 15:13

Выдает ошибку "Неправильно определен объект Parameter. Предоставлены несовместимые или неполные сведения"

Помогите пожалуйста, курсовик уже завтра сдавать... у меня только с картинками проблемы, причем BMP тоже не вставляется!

Автор: Mephisto 20.12.2006, 16:33

Покажи что у тебя написано! smile