Cita:
Empezado por radenf
Estimado(a) aanil:
Si utilizas el componente EDBImage de Sebastián Mayora, de distribución gratuita, que encuentras fácilmente al hacer una búsqueda en la web, podrás insertar imágenes en formato jpeg en tu BD, sin hacer ningún esfuerzo.
Te adjunto el código que te permite insertar o eliminar las imágenes. Debes incluir en tu Form este componente, un OpenPictureDialog y un ActionList para definir los DataSetEdit1 y DataSetRefresh1.
Para insertar imágenes en la BD
Código Delphi [-]procedure Form1.ButtonInsertarFotografia1Click(Sender: TObject); begin if DataSetEdit1.Execute then if OpenPictureDialog1.Execute then EDBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName); DataSetRefresh1.Execute; end;
Para eliminar las imágenes de la BD
Código Delphi [-]procedure Form1.ButtonEliminarFotografia1Click(Sender: TObject); begin if Message1.MessageDlg('¿ Realmente desea eliminar esta Fotografía ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin DataSetEdit1.Execute ; EDBImage1.Field.Clear ; DataSetRefresh1.Execute; end; end;
Espero haber podido ayudarte
Salu2
|
Estimado aanil me pondrias incicar como defino los DataSetEdit1 y DataSetRefresh1 te lo agradeceria bastante, ya que instale bien edibimage 1.6, pero no graba como dice su readme sin una linea de codigo
Saludos