Re: [delphi-en] Save a modified jpeg

[Bobby Clarke]

Hi Alin

Here is some code that works.

Bobby


uses
  JPeg

var
  JPG : TJPegImage;
  BMP : TBitMap;
begin
  BMP := TBitMap.Create;
    try
      BMP.PixelFormat     := pf24bit;
        
           <set up BMP>

      SaveDialog1.DefaultExt := '.jpg';
      if SaveDialog1.Execute then
        begin
           if lowercase(ExtractFileExt(SaveDialog1.FileName)) = '.bmp' 
then BMP.SaveToFile(SaveDialog1.FileName)
          else if lowercase(ExtractFileExt(SaveDialog1.FileName)) = 
'.jpg' then
            begin
              JPG := TJPegImage.Create;
              try
                JPG.Assign(BMP);
                JPG.SaveToFile(SaveDialog1.FileName);
              finally
                JPG.Free;
              end;
       end;
    finally
      BMP.Free;
    end;
end;

Alin wrote:
>
> HI guys, im kinda new to this group and i searched the message
> database but could not find an answer to my prob. im trying to send
> jpeg images thru a small client server application. the thing is when
> i save the modified jpeg (ex. grayscale, half size etc.) it saves the
> internal bmp, with the *.jpg but full colors and resolution. if some
> one could give some hints.
> im using BDS delphi but on Win32. thanks
>
> 
> ------------------------------------------------------------------------
>
> Internal Virus Database is out-of-date.
> Checked by AVG Free Edition.
> Version: 7.5.446 / Virus Database: 268.18.18/734 - Release Date: 26/03/2007 
> 14:31
>   


[Non-text portions of this message have been removed]