Ver Mensaje Individual
  #4  
Antiguo 22-06-2007
Avatar de Gabo
[Gabo] Gabo is offline
Miembro Premium
 
Registrado: mar 2007
Ubicación: Murcia (España)
Posts: 684
Reputación: 18
Gabo Va por buen camino
Lightbulb

Pues, siguiendo con la idea, crea un campo en la base de datos para la ruta de la foto (yo uso Interbase, asi que lo creo como un Varchar de 256; pero, si mal no recuerdo no existe en DBase, asi que deberás crearlo como tipo string).

Luego guardas en él la ruta:

Código Delphi [-]
DataModule->Query->SQL->Add("INSERT INTO PERSONAL(PERSONAL_CODIGO,PERSONAL_NOMBRE, PERSONAL_RUTAFOTO) \
                             VALUES (GEN_ID(GPERSONAL_CODIGO,1), :nombre, :rutafoto)");
DataModule->Query->ParamByName("nombre")->AsString=txtNombre->Text;
DataModule->Query->ParamByName("rutafoto")->AsString=fotoDialogo->FileName;

En este ejemplo, le paso la ruta como un parámetro a la sentencia SQL y la obtengo según la foto que haya elegido el usuario desde un TOpenDialog.

Y luego, cuando tengas que mostrar la foto se la asignas a un control TImage, mediante LoadFromFile():

imagen->Picture->LoadFromFile("ruta a la foto aquí");


Espero que te sirva la idea...
Responder Con Cita