Ver Mensaje Individual
  #5  
Antiguo 12-02-2013
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 233
Reputación: 14
darkamerico Va por buen camino
Thumbs up Hola

Bueno haber si mi ayuda te es util:

Asumo que ya tienes una tabla en mysql con un campo blob (al que llamaremos foto) para alojar las imagenes.

Paso 1: Agrega un TTable y enlazalo con tu tabla
Paso 2: Pega en un formulario un componente TDBImage
Paso 3: Agrega un componente TOpenPictureDialog .
Paso 4: Agrega un boton con caption='Cargar Imagen' | name=btnCargarImagen y coloca el siguiente codigo en su evento Click:

Código Delphi [-]
procedure TForm1.btnCargarImagenClick(Sender: TObject);
begin
   if OpenPictureDialog1.Execute then
   begin
      table1.edit;
      DBImage1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
      table1.post;
   end;
end;

Espero que este codigo te ayude.

Saludos
Responder Con Cita