Ver Mensaje Individual
  #2  
Antiguo 25-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
Pues eso no es nada, yo ya conseguí guardar imagenes en la base de datos.
Este es el código que guarda la imagen en una base de datos:
Código:
[delphi]
procedure TfrmAgenda.Button1Click(Sender: TObject);
begin
{dmConexion es un TDataModule}
{TblContacto en un TTable}
{ImgFoto es un TImage}
{El Resto son TEdit}
dmConexion.TblContacto.InsertRecord([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,ImgFoto.Picture,NOTAS.Lines]);
end;
el problema es que al cargar solo me muestra los Bitmap y no los JPEG que estan guardados en un campo Graphic de la base de datos, si alguien sabe como corregir esto se lo agradeceria, tambien agradeceria una ayuda para convertir el contenido de un Image a un Bitmap, gracias.
Responder Con Cita