Ver Mensaje Individual
  #4  
Antiguo 30-10-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Edgar.

Podrías usar un TOpenPictureDialog para buscar la imágen y luego en el evento OnClick del botón, hacer algo como por ejemplo:
Código Delphi [-]
...
uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  Jpg : TJPEGImage;
begin
  if OpenPictureDialog1.Execute then
  begin
    Jpg := TJPEGImage.Create;
    try
      Jpg.LoadFromFile(OpenPictureDialog1.FileName);
      DataSet.Edit;
      DataSet.FieldByName('CAMPO_BLOB').Assign(Jpg);
    finally
      Jpg.Free;
    end;
  end;
end;
No utilizo MySQL, pero en Firebird guarda la imágen jpg sin problemas.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 30-10-2012 a las 20:46:37.
Responder Con Cita