如何将JPG图像转换为bmp文件，并指定图像大小？？？？？

Question

现想将JPG文件保存到SQL server的image类型字段中，怎么样将jpg文件在打开时转换为bmp并指定为160X120的图片。

Answer 1

///Bitmap 和 JPEG 格式间的快速转换function Bmp2Jpg(Bmp: TBitmap; Quality: Integer = 100): TJpegImage;beginResult := nil;if Assigned(Bmp)then beginResult := TJpegImage.Create;Result.Assign(Bmp); {It′s all folks...}Result.CompressionQuality := Quality;Result.JPEGNeeded; {Key method...}Result.Compress;end;end;function Jpg2Bmp(Jpg: TJpegImage): TBitmap;beginResult := nil;if Assigned(Jpg)then beginResult := TBitmap.Create;Jpg.DIBNeeded; {Key method...}Result.Assign(Jpg); {It′s all folks...}end;end;

Answer 2

这里有个bmp转jpg的希望对搂主有帮助
procedure TForm1.Button1Click(Sender: TObject);
var
  ExmJpeg : TJPEGImage;
  ExmImage : TImage;
  Appath : String;
begin
  if Edit1.Text = '' then
  begin
    ShowMessage('请选择要转换的.bmp文件');
    Exit;
  end;
  Appath := ExtractFileDir(Application.ExeName);
  ExmImage := TImage.Create(Self);
  ExmJpeg := TJPEGImage.Create;
  ExmImage.Picture.LoadFromFile(Edit1.Text);
  ExmJpeg.Assign(ExmImage.Picture.Bitmap);
  if (MessageBox(Handle,'真的转化为.jpg吗？请按确定','提示',MB_YESNO + MB_ICONINFORMATION) = idyes) then
    ExmJpeg.SaveToFile(Edit2.Text+'.jpg');
    ExmJpeg.Free;
    ExmImage.Free;
end;

Answer 3

uses
  Graphics, JPEG;function ZoomImage(var JpegImage: TJpegImage; SetWidth: integer; SetHeight:
  integer);TBitmap;
var
  BitMapTmp: TBitmap;
begin
  JpegImage.DIBNeeded;
  Result:= TBitmap.Create;    Result.Assign(JpegImage);
    JpegImage.Free;
    BitMapTmp := TBitmap.Create;
    try
      BitMapTmp.Assign(BitMap);
      Result.Width := SetWidth;
      Result.Height := SetHeight;
      Result.Canvas.StretchDraw(Result.Canvas.ClipRect, BitMapTmp);
    finally
      BitMapTmp.Free;
    end;
   
end;

Answer 4

转换好像可以，但是怎么往sqlserver中存的时候，怎么还是存不进去呢。
怎么才能把jpg文件像bmp的一样可以存进去，又可以用dbiamge显示呢？

Answer 5

JPG可以存入SQLSERVER但要想在dbiamge中显示,就要改dbiamge控件了,还用Image控件吧!

Answer 6

我有bmp转换成jpeg并存到数据库的例子
email:[email protected]

Answer 7

问题解决了，jpg转为bmp再保存。谢谢各位。