Hola de nuevo...

Estoy realizando un módulo de un programa que permite la exportación de las
imágenes JPG que están almacenadas en una base de datos Paradox en un campo
Blob, y quiero generar un fichero externo con esta imagen (también en
formato JPEG). Esto lo he conseguido con el siguiente procedimiento :

try
Stream:=TMemoryStream.Create;
JPEG:=TJPEGImage.Create;
ObrasFOTOJPEG.SaveToStream(Stream);
Jpeg.PixelFormat:=jf8Bit;
Jpeg.Performance:=jpBestQuality;

Stream.Seek(0,soFromBeginning);
Jpeg.LoadFromStream(Stream);
JPEG.SaveToFile(AddSlash(GetTempDirectory)+ObrasRE FERENCIA.AsString +
ObrasNUMERO.AsString+'.jpg');
finally
Stream.Free;
JPEG.Free;
end;

El problema es que no sé cómo modificar el tamaño del fichero final...
alguen sabe cómo modificar el tamaño de la imagen JPEG al guardarla ?
(Poniendo JPEG.Heigth:=100, no funciona, ya que aparece un error diciendo
que no se puede modificar el tamaño de un JPEG)

Gracias anticipadas.

Xavier

te paso un procedimiento que tengo para generar thumbnails. Le pasas la ruta
a un fichero jpg y te genera, en ese mismo sitio un thumbnail con nombre
igual que el original pero empezando por P.


procedure TForm1.generar_thumbnail(s:String);
var
myjpeg:Tjpegimage;
b:Tbitmap;
fotop:Tbitmap;
a,d:String;
begin
myjpeg:=Tjpegimage.create;
myjpeg.loadfromfile(s);
b:=tbitmap.create;
b.width:=myjpeg.Width;
b.height:=myjpeg.Height;
b.canvas.draw(0,0,myjpeg);
myjpeg.Free;

fotop:=tbitmap.create;
if b.width>b.height then
begin
fotop.width:=160;
fotop.height:=120;
end
else
begin
fotop.width:=120;
fotop.height:=160;
end;

d:=ExtractFilePath(s);
a:=ExtractFileName(s);
a[1]:='P';
fotop.Canvas.StretchDraw(rect(0,0,fotop.Width,foto p.Height),b);
myjpeg:=Tjpegimage.create;
myjpeg.Assign(fotop);
myjpeg.SaveToFile(d+a);
myjpeg.free;
b.free;
fotop.free;
end;







"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2t6umdF1rp731U1***uni-berlin.de...
> Hola de nuevo...
>
> Estoy realizando un módulo de un programa que permite la exportación de
las
> imágenes JPG que están almacenadas en una base de datos Paradox en un
campo
> Blob, y quiero generar un fichero externo con esta imagen (también en
> formato JPEG). Esto lo he conseguido con el siguiente procedimiento :
>
> try
> Stream:=TMemoryStream.Create;
> JPEG:=TJPEGImage.Create;
> ObrasFOTOJPEG.SaveToStream(Stream);
> Jpeg.PixelFormat:=jf8Bit;
> Jpeg.Performance:=jpBestQuality;
>
> Stream.Seek(0,soFromBeginning);
> Jpeg.LoadFromStream(Stream);
> JPEG.SaveToFile(AddSlash(GetTempDirectory)+ObrasRE FERENCIA.AsString +
> ObrasNUMERO.AsString+'.jpg');
> finally
> Stream.Free;
> JPEG.Free;
> end;
>
> El problema es que no sé cómo modificar el tamaño del fichero final...
> alguen sabe cómo modificar el tamaño de la imagen JPEG al guardarla ?
> (Poniendo JPEG.Heigth:=100, no funciona, ya que aparece un error diciendo
> que no se puede modificar el tamaño de un JPEG)
>
> Gracias anticipadas.
>
> Xavier
>
>

te paso un procedimiento que tengo para generar thumbnails. Le pasas la ruta
a un fichero jpg y te genera, en ese mismo sitio un thumbnail con nombre
igual que el original pero empezando por P.


procedure TForm1.generar_thumbnail(s:String);
var
myjpeg:Tjpegimage;
b:Tbitmap;
fotop:Tbitmap;
a,d:String;
begin
myjpeg:=Tjpegimage.create;
myjpeg.loadfromfile(s);
b:=tbitmap.create;
b.width:=myjpeg.Width;
b.height:=myjpeg.Height;
b.canvas.draw(0,0,myjpeg);
myjpeg.Free;

fotop:=tbitmap.create;
if b.width>b.height then
begin
fotop.width:=160;
fotop.height:=120;
end
else
begin
fotop.width:=120;
fotop.height:=160;
end;

d:=ExtractFilePath(s);
a:=ExtractFileName(s);
a[1]:='P';
fotop.Canvas.StretchDraw(rect(0,0,fotop.Width,foto p.Height),b);
myjpeg:=Tjpegimage.create;
myjpeg.Assign(fotop);
myjpeg.SaveToFile(d+a);
myjpeg.free;
b.free;
fotop.free;
end;







"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2t6umdF1rp731U1***uni-berlin.de...
> Hola de nuevo...
>
> Estoy realizando un módulo de un programa que permite la exportación de
las
> imágenes JPG que están almacenadas en una base de datos Paradox en un
campo
> Blob, y quiero generar un fichero externo con esta imagen (también en
> formato JPEG). Esto lo he conseguido con el siguiente procedimiento :
>
> try
> Stream:=TMemoryStream.Create;
> JPEG:=TJPEGImage.Create;
> ObrasFOTOJPEG.SaveToStream(Stream);
> Jpeg.PixelFormat:=jf8Bit;
> Jpeg.Performance:=jpBestQuality;
>
> Stream.Seek(0,soFromBeginning);
> Jpeg.LoadFromStream(Stream);
> JPEG.SaveToFile(AddSlash(GetTempDirectory)+ObrasRE FERENCIA.AsString +
> ObrasNUMERO.AsString+'.jpg');
> finally
> Stream.Free;
> JPEG.Free;
> end;
>
> El problema es que no sé cómo modificar el tamaño del fichero final...
> alguen sabe cómo modificar el tamaño de la imagen JPEG al guardarla ?
> (Poniendo JPEG.Heigth:=100, no funciona, ya que aparece un error diciendo
> que no se puede modificar el tamaño de un JPEG)
>
> Gracias anticipadas.
>
> Xavier
>
>

te paso un procedimiento que tengo para generar thumbnails. Le pasas la ruta
a un fichero jpg y te genera, en ese mismo sitio un thumbnail con nombre
igual que el original pero empezando por P.


procedure TForm1.generar_thumbnail(s:String);
var
myjpeg:Tjpegimage;
b:Tbitmap;
fotop:Tbitmap;
a,d:String;
begin
myjpeg:=Tjpegimage.create;
myjpeg.loadfromfile(s);
b:=tbitmap.create;
b.width:=myjpeg.Width;
b.height:=myjpeg.Height;
b.canvas.draw(0,0,myjpeg);
myjpeg.Free;

fotop:=tbitmap.create;
if b.width>b.height then
begin
fotop.width:=160;
fotop.height:=120;
end
else
begin
fotop.width:=120;
fotop.height:=160;
end;

d:=ExtractFilePath(s);
a:=ExtractFileName(s);
a[1]:='P';
fotop.Canvas.StretchDraw(rect(0,0,fotop.Width,foto p.Height),b);
myjpeg:=Tjpegimage.create;
myjpeg.Assign(fotop);
myjpeg.SaveToFile(d+a);
myjpeg.free;
b.free;
fotop.free;
end;







"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2t6umdF1rp731U1***uni-berlin.de...
> Hola de nuevo...
>
> Estoy realizando un módulo de un programa que permite la exportación de
las
> imágenes JPG que están almacenadas en una base de datos Paradox en un
campo
> Blob, y quiero generar un fichero externo con esta imagen (también en
> formato JPEG). Esto lo he conseguido con el siguiente procedimiento :
>
> try
> Stream:=TMemoryStream.Create;
> JPEG:=TJPEGImage.Create;
> ObrasFOTOJPEG.SaveToStream(Stream);
> Jpeg.PixelFormat:=jf8Bit;
> Jpeg.Performance:=jpBestQuality;
>
> Stream.Seek(0,soFromBeginning);
> Jpeg.LoadFromStream(Stream);
> JPEG.SaveToFile(AddSlash(GetTempDirectory)+ObrasRE FERENCIA.AsString +
> ObrasNUMERO.AsString+'.jpg');
> finally
> Stream.Free;
> JPEG.Free;
> end;
>
> El problema es que no sé cómo modificar el tamaño del fichero final...
> alguen sabe cómo modificar el tamaño de la imagen JPEG al guardarla ?
> (Poniendo JPEG.Heigth:=100, no funciona, ya que aparece un error diciendo
> que no se puede modificar el tamaño de un JPEG)
>
> Gracias anticipadas.
>
> Xavier
>
>

te paso un procedimiento que tengo para generar thumbnails. Le pasas la ruta
a un fichero jpg y te genera, en ese mismo sitio un thumbnail con nombre
igual que el original pero empezando por P.


procedure TForm1.generar_thumbnail(s:String);
var
myjpeg:Tjpegimage;
b:Tbitmap;
fotop:Tbitmap;
a,d:String;
begin
myjpeg:=Tjpegimage.create;
myjpeg.loadfromfile(s);
b:=tbitmap.create;
b.width:=myjpeg.Width;
b.height:=myjpeg.Height;
b.canvas.draw(0,0,myjpeg);
myjpeg.Free;

fotop:=tbitmap.create;
if b.width>b.height then
begin
fotop.width:=160;
fotop.height:=120;
end
else
begin
fotop.width:=120;
fotop.height:=160;
end;

d:=ExtractFilePath(s);
a:=ExtractFileName(s);
a[1]:='P';
fotop.Canvas.StretchDraw(rect(0,0,fotop.Width,foto p.Height),b);
myjpeg:=Tjpegimage.create;
myjpeg.Assign(fotop);
myjpeg.SaveToFile(d+a);
myjpeg.free;
b.free;
fotop.free;
end;







"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2t6umdF1rp731U1***uni-berlin.de...
> Hola de nuevo...
>
> Estoy realizando un módulo de un programa que permite la exportación de
las
> imágenes JPG que están almacenadas en una base de datos Paradox en un
campo
> Blob, y quiero generar un fichero externo con esta imagen (también en
> formato JPEG). Esto lo he conseguido con el siguiente procedimiento :
>
> try
> Stream:=TMemoryStream.Create;
> JPEG:=TJPEGImage.Create;
> ObrasFOTOJPEG.SaveToStream(Stream);
> Jpeg.PixelFormat:=jf8Bit;
> Jpeg.Performance:=jpBestQuality;
>
> Stream.Seek(0,soFromBeginning);
> Jpeg.LoadFromStream(Stream);
> JPEG.SaveToFile(AddSlash(GetTempDirectory)+ObrasRE FERENCIA.AsString +
> ObrasNUMERO.AsString+'.jpg');
> finally
> Stream.Free;
> JPEG.Free;
> end;
>
> El problema es que no sé cómo modificar el tamaño del fichero final...
> alguen sabe cómo modificar el tamaño de la imagen JPEG al guardarla ?
> (Poniendo JPEG.Heigth:=100, no funciona, ya que aparece un error diciendo
> que no se puede modificar el tamaño de un JPEG)
>
> Gracias anticipadas.
>
> Xavier
>
>

te paso un procedimiento que tengo para generar thumbnails. Le pasas la ruta
a un fichero jpg y te genera, en ese mismo sitio un thumbnail con nombre
igual que el original pero empezando por P.


procedure TForm1.generar_thumbnail(s:String);
var
myjpeg:Tjpegimage;
b:Tbitmap;
fotop:Tbitmap;
a,d:String;
begin
myjpeg:=Tjpegimage.create;
myjpeg.loadfromfile(s);
b:=tbitmap.create;
b.width:=myjpeg.Width;
b.height:=myjpeg.Height;
b.canvas.draw(0,0,myjpeg);
myjpeg.Free;

fotop:=tbitmap.create;
if b.width>b.height then
begin
fotop.width:=160;
fotop.height:=120;
end
else
begin
fotop.width:=120;
fotop.height:=160;
end;

d:=ExtractFilePath(s);
a:=ExtractFileName(s);
a[1]:='P';
fotop.Canvas.StretchDraw(rect(0,0,fotop.Width,foto p.Height),b);
myjpeg:=Tjpegimage.create;
myjpeg.Assign(fotop);
myjpeg.SaveToFile(d+a);
myjpeg.free;
b.free;
fotop.free;
end;







"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2t6umdF1rp731U1***uni-berlin.de...
> Hola de nuevo...
>
> Estoy realizando un módulo de un programa que permite la exportación de
las
> imágenes JPG que están almacenadas en una base de datos Paradox en un
campo
> Blob, y quiero generar un fichero externo con esta imagen (también en
> formato JPEG). Esto lo he conseguido con el siguiente procedimiento :
>
> try
> Stream:=TMemoryStream.Create;
> JPEG:=TJPEGImage.Create;
> ObrasFOTOJPEG.SaveToStream(Stream);
> Jpeg.PixelFormat:=jf8Bit;
> Jpeg.Performance:=jpBestQuality;
>
> Stream.Seek(0,soFromBeginning);
> Jpeg.LoadFromStream(Stream);
> JPEG.SaveToFile(AddSlash(GetTempDirectory)+ObrasRE FERENCIA.AsString +
> ObrasNUMERO.AsString+'.jpg');
> finally
> Stream.Free;
> JPEG.Free;
> end;
>
> El problema es que no sé cómo modificar el tamaño del fichero final...
> alguen sabe cómo modificar el tamaño de la imagen JPEG al guardarla ?
> (Poniendo JPEG.Heigth:=100, no funciona, ya que aparece un error diciendo
> que no se puede modificar el tamaño de un JPEG)
>
> Gracias anticipadas.
>
> Xavier
>
>

te paso un procedimiento que tengo para generar thumbnails. Le pasas la ruta
a un fichero jpg y te genera, en ese mismo sitio un thumbnail con nombre
igual que el original pero empezando por P.


procedure TForm1.generar_thumbnail(s:String);
var
myjpeg:Tjpegimage;
b:Tbitmap;
fotop:Tbitmap;
a,d:String;
begin
myjpeg:=Tjpegimage.create;
myjpeg.loadfromfile(s);
b:=tbitmap.create;
b.width:=myjpeg.Width;
b.height:=myjpeg.Height;
b.canvas.draw(0,0,myjpeg);
myjpeg.Free;

fotop:=tbitmap.create;
if b.width>b.height then
begin
fotop.width:=160;
fotop.height:=120;
end
else
begin
fotop.width:=120;
fotop.height:=160;
end;

d:=ExtractFilePath(s);
a:=ExtractFileName(s);
a[1]:='P';
fotop.Canvas.StretchDraw(rect(0,0,fotop.Width,foto p.Height),b);
myjpeg:=Tjpegimage.create;
myjpeg.Assign(fotop);
myjpeg.SaveToFile(d+a);
myjpeg.free;
b.free;
fotop.free;
end;







"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2t6umdF1rp731U1***uni-berlin.de...
> Hola de nuevo...
>
> Estoy realizando un módulo de un programa que permite la exportación de
las
> imágenes JPG que están almacenadas en una base de datos Paradox en un
campo
> Blob, y quiero generar un fichero externo con esta imagen (también en
> formato JPEG). Esto lo he conseguido con el siguiente procedimiento :
>
> try
> Stream:=TMemoryStream.Create;
> JPEG:=TJPEGImage.Create;
> ObrasFOTOJPEG.SaveToStream(Stream);
> Jpeg.PixelFormat:=jf8Bit;
> Jpeg.Performance:=jpBestQuality;
>
> Stream.Seek(0,soFromBeginning);
> Jpeg.LoadFromStream(Stream);
> JPEG.SaveToFile(AddSlash(GetTempDirectory)+ObrasRE FERENCIA.AsString +
> ObrasNUMERO.AsString+'.jpg');
> finally
> Stream.Free;
> JPEG.Free;
> end;
>
> El problema es que no sé cómo modificar el tamaño del fichero final...
> alguen sabe cómo modificar el tamaño de la imagen JPEG al guardarla ?
> (Poniendo JPEG.Heigth:=100, no funciona, ya que aparece un error diciendo
> que no se puede modificar el tamaño de un JPEG)
>
> Gracias anticipadas.
>
> Xavier
>
>

te paso un procedimiento que tengo para generar thumbnails. Le pasas la ruta
a un fichero jpg y te genera, en ese mismo sitio un thumbnail con nombre
igual que el original pero empezando por P.


procedure TForm1.generar_thumbnail(s:String);
var
myjpeg:Tjpegimage;
b:Tbitmap;
fotop:Tbitmap;
a,d:String;
begin
myjpeg:=Tjpegimage.create;
myjpeg.loadfromfile(s);
b:=tbitmap.create;
b.width:=myjpeg.Width;
b.height:=myjpeg.Height;
b.canvas.draw(0,0,myjpeg);
myjpeg.Free;

fotop:=tbitmap.create;
if b.width>b.height then
begin
fotop.width:=160;
fotop.height:=120;
end
else
begin
fotop.width:=120;
fotop.height:=160;
end;

d:=ExtractFilePath(s);
a:=ExtractFileName(s);
a[1]:='P';
fotop.Canvas.StretchDraw(rect(0,0,fotop.Width,foto p.Height),b);
myjpeg:=Tjpegimage.create;
myjpeg.Assign(fotop);
myjpeg.SaveToFile(d+a);
myjpeg.free;
b.free;
fotop.free;
end;







"Xavier Seguí" <xsegui***informart.es> escribió en el mensaje
news:2t6umdF1rp731U1***uni-berlin.de...
> Hola de nuevo...
>
> Estoy realizando un módulo de un programa que permite la exportación de
las
> imágenes JPG que están almacenadas en una base de datos Paradox en un
campo
> Blob, y quiero generar un fichero externo con esta imagen (también en
> formato JPEG). Esto lo he conseguido con el siguiente procedimiento :
>
> try
> Stream:=TMemoryStream.Create;
> JPEG:=TJPEGImage.Create;
> ObrasFOTOJPEG.SaveToStream(Stream);
> Jpeg.PixelFormat:=jf8Bit;
> Jpeg.Performance:=jpBestQuality;
>
> Stream.Seek(0,soFromBeginning);
> Jpeg.LoadFromStream(Stream);
> JPEG.SaveToFile(AddSlash(GetTempDirectory)+ObrasRE FERENCIA.AsString +
> ObrasNUMERO.AsString+'.jpg');
> finally
> Stream.Free;
> JPEG.Free;
> end;
>
> El problema es que no sé cómo modificar el tamaño del fichero final...
> alguen sabe cómo modificar el tamaño de la imagen JPEG al guardarla ?
> (Poniendo JPEG.Heigth:=100, no funciona, ya que aparece un error diciendo
> que no se puede modificar el tamaño de un JPEG)
>
> Gracias anticipadas.
>
> Xavier
>
>

Gracias... Tiene buena pinta... lo pruebo y te digo cosas.

Xavier

Gracias... Tiene buena pinta... lo pruebo y te digo cosas.

Xavier