Salvar imagem em JPEG

[Ronaldo Lanhellas]

Estou usando o seguinte codigo

jpg := TJpegImage.Create;
jpg.LoadFromFile(OpenDialogEsposa.FileName);
clipboard.Assign(jpg);
jpg.CompressionQuality := 1;
jpg.Compress;
jpg.SaveToFile(OpenDialogEsposa.FileName);
DBImage2.Picture.LoadFromFile(OpenDialogEsposa.FileName);
jpg.Free;

e quando vou salvar o registro, simplesmente ele não salva. Tentei em BITMAP e salvou normal, mais o problema é que BITMAP é muito pesado e não da pra comprimir igual JPEG.

[Ronaldo Lanhellas]

ninguém pode me ajudar?

[robinhocne]

ninguém pode me ajudar?

verifica nesse tópico que eu abri, pois eu fiz com bmp e comprimi.

http://scriptbrasil.com.br/forum/index.php?showtopic=154667

Acho que também pode te ajudar.....

exemplo 1

exemplo 2

Editado Outubro 27, 2010 por robinhocne