Добавление в БД

[Claster]

Ребята подскажите как добавить данные в бд
на фото:
Название, вид, цена - обычные поле в ИБ(ну соотведственно цена для работы с цислами поле)
Фото и Опис - Блоб поля

Как написатьпроцедуру добавления данных в БД с фоткой!!!
тут фото добавляеться отдельной процедуркой: фото добавляеться в инмайдж

[mihali4]

Вот пример. Переделаете его под себя.

Сохранение фото в базе

Мой способ.

procedure TFMain.BitBtn1Click(Sender: TObject);
begin
Clipboard.Assign(Image1.Picture);
FDM1.TKartFoto.BlobType:=ftBlob;
FDM1.TKart.Edit;
DBImage1.PasteFromClipboard;
FDM1.TKart.Post;
FDM1.TKart.Refresh;
DBImage1.Repaint;
end;

[Claster]

обьясните строки в процедуре

[Claster]

Вот мой способ добавления фотки (т.е она добавляеться в инмайж а потом от туда вытягивается)

procedure TForm1.FreeButton8Click(Sender: TObject);
begin
with OpenPictureDialog1 do
    begin
      Filename:='';
      if Execute   then
        begin
          JPEGtoBMP(Filename);
          image4.Picture.LoadFromFile(Filename+'.bmp');
          image4.Visible:=true;
       end;
   end;
  Stream := TMemoryStream.Create;
  Stream.Clear;
  Image1.Picture.Bitmap.SaveToStream(Stream);
end;

Добавление данных

procedure TForm1.FreeButton9Click(Sender: TObject);
begin
if (Edit3.Text=' ') or (Edit4.Text=' ') or(Edit5.Text=' ') or (Memo1.Lines.Text=' ')
 then
       begin
         ShowMessage('Введите значения');
       end
 else
  begin
    im1:='';
  Stream.Position := 0;
  for i := 1 to Stream.Size do
    begin
      Stream.Read(d1, 1);
      im1 := im1+d1;
    end;
    with unit3.DataModule1.IBQuery1 do
      begin
        //берем из базы следующий айдишник
        close;
        sql.Clear;
        sql.Text:='select max(id) from IBTable1;';
        open;
        max:=Fields[0].AsInteger+1;
        //записуем данные в базу
        close;
        sql.clear;
        sql.Text:='insert into IBTable1(id,NAZVANIE,VID,CENA,OPIS,FOTO) values (:a,:b,:c,:d,:e,:f);';
        ParamByName('a').AsInteger:=max;
        ParamByName('b').AsString:=Edit3.Text;
        ParamByName('f').AsBlob:=im1;
        ParamByName('e').asblob:=Memo1.Lines.Text;
        ParamByName('c').AsString:=Edit4.Text;
        ParamByName('d').AsString:=Edit5.Text;
        ExecSQL;
        ShowMessage('Данные успешно сохранены!!!');
        Edit3.Text:='';
        Edit4.Text:='';
        Edit5.Text:='';
        Image4.Picture:=nil;
        Memo1.Lines.Text:='';
      end;
      Stream.Free;
      Stream:=nil;
      DeleteFile(OpenPictureDialog1.Filename+'.bmp');
  end;
end;

Прога после нажатия кнопки добавить просто висит