[ilichhernandez]

Hola amigos y colegas, tengo el siguiente problema, tengo unos campos dbedit, un par de memos y 2 image,un dbgrid , un componente tabla, una bd y un datasource, ahora bien necesito agregar registros (datos e imagenes) y no me guarda los datos ni imagenes.... aqui les envio de el codigo que tengo.....

Aqui esta el boton agregar, para realizar la insercion

Código Delphi [-]
procedure TForm1.cxButton1Click(Sender: TObject);
begin
table1.Insert;
end;

Aqui esta el codigo de la carga de imagen

Código Delphi [-]
procedure TForm1.dxButton1Click(Sender: TObject);
Var
  jpg : TJpegImage;
  Stream : TMemoryStream;

begin
  jpg := Nil;
  Stream := Nil;
  Try
    openpicturedialog1.Execute;
    edit1.Text := openpicturedialog1.FileName;
    Jpg := TJpegImage.Create;
    Jpg.LoadFromFile(openpicturedialog1.FileName);
    Stream := TMemoryStream.Create;
    Jpg.SaveToStream(Stream);
    Stream.Position := 0;
    cx_etiqueta.Picture.LoadFromFile(openpicturedialog1.FileName);
    TBlobField(Table1.FieldByName('foto_etiqueta')).LoadFromStream(Stream);
     except
      jpg.free;
      stream.Free;
      raise;
    end;
    jpg.free;
    stream.Free;
end;

Y evidentemente el codigo para salvar

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.Post;
end;

Bueno espero que alguien pueda saber que es lo que no anda bien por aqui.... muchas gracias de antemanos....