Hola a todos, tengo un peque�o problema, resulta que quiero implementar dentro de un programa que realice, una rutina que permita imprimir credenciales, algunos datos ser�n fijos otros los tomara de la tabla de datos, el punto es que logro colocar todos los datos menos la foto de la persona, alguien me podr�a orientar, quiz� el tema ya se halla comentado en la lista de boletines que he recibido no he encontrado nada relacionado, les agradezco de antemano.

Yo hice algo parecido en php almacenando el nombre de la foto en la bd y la foto en una carpeta a parte, implementarlo en Lazarus no tiene que ser muy dif�cil.
Un saludo.

El 26 de agosto de 2011 19:07, Francisco Javier Solis Palma < fsolispa en gmail.com> escribi�:

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110828/f58166e8/attachment.html>

Hola, si los datos son una imagen y quieres cargarla desde el disco, te paso las rutinas que uso. Si lo que quieres es tener la imagen en un campo blob en la base de datos, tendr�a que rebuscar pues lo hice hace mucho. Creo recordar que era pasando el campo blob a un TMemoryStream y de ah� hacer un assign al TImage destino.

Espero te pueda servir.
Un saludo.

procedure TPedidos_Print.OnEnterRect(Memo: TStringList; View: TfrView);
Var
   vImage : TImage;
   vFileDir: String;
   vFileNam: String;
begin
   if assigned( View ) and
      (View.Name = 'Picture1') and
      (View is TfrPictureView)
   then
     try
       vImage := TImage.Create( nil );
       vFileDir := CfgApplication.Path + CfgApplication.ConfigINI.DirImages;
       vFileNam := qryDetail.FieldByName('Imagen').asString;
       try
         if LoadImgFromFile( vImage, vFileDir + vFileNam ) then
           TfrPictureView(View).Picture.Bitmap.Assign(
vImage.Picture.Bitmap )
         else
           TfrPictureView(View).Picture.Clear;
       finally
         FreeAndNil( vImage );
       end;
     except
       TfrPictureView(View).Picture.Clear;
     end;
end;
function LoadImgFromFile(Image: TImage; FileName: String): Boolean;
begin
   Result := False;
   Image.Picture.Clear;
   try
     if (FileName  '') and FileExists(FileName) then
     begin
       Image.Picture.LoadFromFile(FileName);
       Result := True;
     end;
   except
   end;
end;

El 26/08/11 19:07, Francisco Javier Solis Palma escribi�: