Como guardar imagenes de un PaintBox????

[pablopessoa]

mira a mi me paso algo similar pero guardando la imagen que tenia en un Timage simulando un Paint de windows y el problema con el saveToFile es que no te va a agregar la extension, se la tenes que agregar vos, por ejemplo

ruta:='c:\fotos';
nombreImagen:='Pirulo';
extension:= '.JPG';
imagen.saveToFile (ruta+nombreImagen+extension)

demas esta decir que podes poner
image.SaveToFile (ruta+savedialog1.filename+'.jpg')
y listo!

[gaston260]

amigo puedes usar un directorilistbox para la ruta + un edit para el nombre y un filtercombobox para la extencion de esta forma !

Código Delphi [-]
    Canvas.CopyRect(Rect(0,0,Width,Height), PaintBox1.Canvas, Rect(0,0,Width,Height));
   end;
  //Bitmap.SaveToFile('C:\ImagenPaintBox.bmp');
  Bitmap.SaveToFile(DirectoryListBox1.GetNamePath + Edit2.Text + FilterComboBox1.Text )
 Finally
  Bitmap.Free;

DirectoryListBox1.GetNamePath es el path
edit2 es el nombre
filtercombobox es la extencion

no es muy categorico pero por lo menos guarda donde vos queres que guarde y no tenes que hacerlo por codigo ni nada por el estilo

pd : espero que te sirva saludos !

[betopin]

Agradezco las sugerencias de ambos aunque ya pude arreglar el problemilla del savedialog y ya me sirve directamente con el, gravandome el archivo con la extension que escojo desde este. Tenia un par de errores en su configuracion. Se las dejo por si alguien mas las quiere usar

Todas las Opciones del cuadro de Options van en false salvo las dos que se ven en la imagen

Sin embargo...sigo teniendo el problema de la captura de la imagen del paintbox

Esta linea

bm->Canvas->CopyRect(Rect(0,0,tmpW,tmpH),PaintBox1->Canvas,Rect(0,0,tmpW,tmpH)

me esta capturando es un trozo de la pantalla que en ese momento se visualiza

Alguien podria sugerirme como arreglar esto

Gracias de antemano!!!!!

[pablopessoa]

mira la verdad no soy ningun experto y como no logro darme cuenta de que es lo que puede estar saliendote mal, te muestro el codigo qeu yo uso para salvar la imagen ( yo trabajo sobre unTimage) y fijate si te sirve:

Código Delphi [-]
procedure TForm15.guardarClick(Sender: TObject);
var
    bmp:TBitmap;
begin
    bmp := TBitmap.Create;
    bmp.Width:= Image1.Width;
    bmp.Height:= Image1.Height;
    bmp.Canvas.CopyRect(Rect(0,0, bmp.Width, bmp.Height),       Image1.Canvas,Rect(0,0,Image1.Width,Image1.Height));

ojala te sirva, saludos!