RAVE y JPG
He tratado de imprimir un JPG en RAVE viendo el ejemplo del manual de rave pero no pasa nada. Tampoco me da ningún error.
De esta forma:
Stream := TMemoryStream.Create;
Image := TJPEGImage.Create;
try
Image.LoadFromFile(ExtractFilePath(ParamStr(0))+'\logo.jpg');
Image.SaveToStream(Stream);
Stream.Position := 0;
PrintImageRect(100,100,150,150,Stream,'JPG');
finally
Image.Free;
Stream.Free
end;
Ahora bien si lo paso a BitMap funciona, el problema es que en el caso de las fotos pierde calidad y se imprimen mal.
Esto funciona sin problemas.
jpg := TJPEGImage.Create;
jpg.LoadFromFile(ExtractFilePath(ParamStr(0))+'\logo.jpg');
jpg.DIBNeeded;
ImagenMB := TBitMap.create;
ImagenMB.Assign(jpg);
PrintBitMapRect(100,100,130,130, ImagenMB);
jpg.free;
Buscando en el foro , hablan de un componente para impriir JPG que ya no está más en Nevrona. ¿? Un usuario pone el archivo pero creo que no es para D7 que estoy usando.
Gracias de antemano.
|