14 replies to this topic

[edwin_simon]

Hola Buena
Como imprimo una imagen usando ReportBuilder, uso Delphi 7 y Access , pero solo guardo la dirección de la imagen en la Base de Datos.

gracias

[TiammatMX]

Hola Buena
Como imprimo una imagen usando ReportBuilder, uso Delphi 7 y Access , pero solo guardo la dirección de la imagen en la Base de Datos.

gracias

Pues si ya tienes el nombre de la ruta, ya tienes la mitad del trabajo hecho. Poner un elemento de impresión de imagen en el reporte y asignarle al nombre el contenido de lo que guardaste en tu base de datos...

[edwin_simon]

mil gracias TiammatMX, por tu ayuda, eso mismo estoy haciendo tanto en el evento onPrint, como el BeforePrint de la banda de impresión pero no me visualiza nada, este es el codigo que uso.

delphi

// Agregar imágen
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
with Tbl_Fotos do
  begin
    if OpenDialog1.Execute then
    begin
      Append;
      FieldByName('Codigo_Imagen').AsString:= Format('%.4d', [Cod]);
      FieldByName('Imagen').AsString:= OpenDialog1.FileName;
      Post;
      Inc(Cod);
    end;
  end;
end;

como puedo hacerlo?

[escafandra]

delphi

uses
  Windows, Printers;
 
//........................
 
procedure PrintBitmap(Bitmap: TBitmap);
var
  PrintHeight: integer;
begin
  Printer.BeginDoc;
  PrintHeight:= MulDiv(Printer.PageWidth, Bitmap.Height, Bitmap.Width);
  Windows.StretchBlt(Printer.Canvas.Handle, 0, 0, Printer.PageWidth, PrintHeight, Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, SRCCOPY);
  Printer.EndDoc;
end;

Ejemplo de uso:

delphi

var
  Bitmap: TBitmap;
begin
  Bitmap:= TBitmap.Create;
  Bitmap.LoadFromFile('Mi_Imagen.bmp');
  PrintBitmap(Bitmap);
  Bitmap.Free;
end;

Saludos.

[edwin_simon]

Gracias escafandra por la ayuda, pero estoy usando Report Builder, para tratar de imprimir

[Rolphy Reyes]

Saludos.

Creo que @TiammatMX se refería algo como esto:

1.- Colocas un componente ppImage.
2.- En el evento BeforePrint del ppReport o de la banda colocas algo como

delphi

ppImage1.Picture.LoadFromFile(TuQuery.FieldByName('RUTA_IMAGEN').AsString);

.

[edwin_simon]

Mil Gracias TiammatMX, escafandra y Rolphy Reyes por su ayuda

[edwin_simon]

Disculpa nuevamente como escribí lo anterior ya puedo visualizar e imprimir la foto, es que siempre mando a imprimir el registro que tengo en pantalla hasta el momento imprime muy bien, pero trate de imprimir todas la fotos pero siempre me imprime la misma alguien puedes decir me el porque?

gracias

[Delphius]

Disculpa nuevamente como escribí lo anterior ya puedo visualizar e imprimir la foto, es que siempre mando a imprimir el registro que tengo en pantalla hasta el momento imprime muy bien, pero trate de imprimir todas la fotos pero siempre me imprime la misma alguien puedes decir me el porque?

gracias

Va a ser necesario que nos des más luz amigo. 
Da una muestra del código, tal como lo tienes, ¿Cómo es la consulta que le pones al reporte? ¿No estarás filtrando los datos? En principio por tu descripción pareciera que se trata de un pequeño desliz tuyo y no te mueves al siguiente registro pero para estar seguro debes describir con lujos y detalles tu caso a fin de detectar donde está el problema.
Recuerda que no estamos a tu lado y no podemos ver tu monitor. 

Saludos,

[edwin_simon]

gracias Delphius
esta rutina la utiliza en el ppImage del Reporte

delphi

procedure TForm1.ppImage2Print(Sender: TObject);
begin
       ppImage2.Picture.LoadFromFile(Tbl_Fotos.FieldByName('Imagen').AsString);
end;

luego lo envio a la impresora normal

delphi

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
      ppReport2.PrintReport;
end;

en el reporte visualizo todos los registro pero con la misma foto y quiero que cara registro tenga su foto.

[Delphius]

¿Cómo es la consulta que estás empleando en el reporte?
Por el código que estoy viendo pareciera ser que estás extrayendo la imagen desde otro DataSet,. De ser así asegúrate de que antes de empezar a imprimir cada registro se esté realizando un .Next sobre el DataSet en cuestión.

Sin ese Next se estará leyendo siempre el mismo registro.

Por cierto, emplea las etiquetas apropiadamente. Para el caso de delphi son válidas:

[nobbc]

delphi

delphi

[/nobbc]

Saludos,

[edwin_simon]

hola buen día, espero este bien
Es verdad tiene razón, estaba usando el dataSet que no era.

gracias mil nuevamente

[edwin_simon]

no se si pueda seguir escribiendo en este mensaje, pero el problemas es con el mismo tema, como ya es hablado del tema sabemos que no guardo la foto en la base de datos si no la dirección.

el problemas esta cuando general un reporte si algún registro no tiene foto me da una Exception Class, alguien como puedo solucionar este problemas?

mil gracias

[cram]

Si no entiendo mal el problema, sería muy sencillo agregar al campo de la tabla un valor default para que acceda a una imagen que siempre existe. Es decir, cuando no haya imagen, se cargue una ficticia (dummy) por default, pero conviene cambiar este valor siempre que no se asigne otro y el mejor lugar es en la descripción del campo.

Saludos.

[enecumene]

delphi

if Tbl_Fotos.FieldByName('Imagen').AsString <> '' then
  ppImage2.Picture.LoadFromFile(Tbl_Fotos.FieldByName('Imagen').AsString);

Saludos.