[Ludo]

Доброе утро!
На форме есть компонент FilenameEdit, как только выбрана картинка, она должна отображаться в image1, который также есть на форме. А после по нажатию на кнопку сохраняться в базу данных.
Помогите пожалуйста реализовать.

[Alegun]

Насчёт показа картинки

Код:

Image1.Picture.LoadFromFile(FilenameEdit.Text);

Ответ с delphiworld "Как сохранить картинку в DB"

Код:

ADOQuery1.Edit;
TBLOBField(ADOQuery1.FieldByName('myField')).LoadFromFile(FilenameEdit.Text);
ADOQuery1.Post;

З.Ы. Оказалось, всё не так уж и просто. Вот про сабжевый вариант, или вот, ещё.
А вот с нашего форума

[Ludo]

Спасибо Вам Большое!!!!!

[Ludo]

Я реализую через StoredProc, ошибок не выдает но в таблицу не записывает, подскажите в чем может быть причина?

Код:

DataModule1.StoredProc.Close;
DataModule1.StoredProc.ProcedureName:='InsertScan';
DataModule1.StoredProc.Parameters.Clear;
DataModule1.StoredProc.Parameters.CreateParameter('nom_scan', ftInteger, pdInput, 10, null);
DataModule1.StoredProc.Parameters.ParamValues['nom_scan']:=1;
DataModule1.StoredProc.Parameters.CreateParameter('nom_doc', ftInteger, pdInput, 10, null);
DataModule1.StoredProc.Parameters.ParamValues['nom_doc']:=1;
DataModule1.StoredProc.Parameters.CreateParameter('scan', ftBlob, pdInput, 10, null);
DataModule1.StoredProc.Parameters.ParamValues['scan']:=FilenameEdit.Text;
//DataModule1.QLogTable.Edit;
//TBLOBField(DataModule1.QLogTable.FieldByName('scan')).LoadFromFile(FilenameEdit.Text);
//DataModule1.QLogTable.Post;
ShowMessage('Картинка удачно сохранена!');

Админ: Пользуемся тегами для оформления кода!

[Alegun]

З.Ы. А что, через запрос QLogTable не добавляет?

[Ludo]

Я не знаю как это поле привести в blob DataModule1.StoredProc.Parameters.ParamValues['scan']:=FilenameEdit.Text;
А Вы?

[Alegun]

Аналогично но посмотрите вот это, должно точно помочь.

З.Ы. Вот рабочий пример на ADO под базу Access

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var
  jpg: TJPEGImage;
  bmp: TBitmap;
begin
 if OpenDialog1.Execute then
  begin
   jpg:= TJPEGImage.Create;
   bmp:= TBitmap.Create;
  try
   jpg.LoadFromFile(OpenDialog1.FileName);
   bmp.Assign(jpg);
   ADOTable1.Edit; 
   ADOTable1.FieldByName('scan').Assign(bmp); 
   ADOTable1.Post; 
  finally
   jpg.Free;
   bmp.Free;
  end;
 end;{execute}
end;

а по другому, не смотря на множество примеров в сети загрузить так и не получилось (да и надоело базы разных форматов клепать), не знаю, может у меня провайдер мелкомяконький кривой, может компонентов каких не хватает, поэтому и фиаско, всё может быть