Ver Mensaje Individual
  #4  
Antiguo 29-08-2007
Avatar de mightydragonlor
[mightydragonlor] mightydragonlor is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Medellín-Colombia
Posts: 587
Reputación: 18
mightydragonlor Va por buen camino
Lo siento, pero es que no me deja editar el comentario, pero aquí va el código.
Es necesario convertir la imagen a un Bitmap y para eso es la función ToBMP
dmConexxion es un DataModule
TblContacto es un TTable
Código Delphi [-]
procedure TfrmAgenda.btnGuardarClick(Sender: TObject);
begin
  dmConexion.TblContacto.AppendRecord([NIL,NICK.Text,NOMBRES.Text,APELLIDOS.Text,TEL_PER.Text
    ,TEL_LAB.Text,TEL_MOV.Text,DIRECCION.Text,CIUDAD.Text
    ,MAIL_PER.Text,MAIL_LAB.Text,MAIL_ADD.Text
    ,FECHA_NAC.Date,ToBMP(ImgFoto.Picture.Graphic),NOTAS.Lines]);
end;

function TfrmAgenda.ToBMP(g: TGraphic): TBitMap;
begin
  try
    Result:=TBitmap.Create;
    Result.Width:= g.Width;
    Result.Height:= g.Height;
    Result.Palette:=g.palette;
    Result.PixelFormat:=pf15bit;
    Result.Canvas.Draw(0,0,g);
  except
    Result:=nil;
  end;
end;
Listo, es muy sencillo, la verdad es que me gustaria guardar la imagen como JPG, ya que como BMP pesa mucho, pero tengo problemas cargando la imagen desde la base de datos si está guardada en JPG, algo que no pasa si la guardo como BMP.

Última edición por ecfisa fecha: 27-03-2015 a las 09:44:38. Razón: agregar etiquetas
Responder Con Cita