1,问题的提出
公司开发了一个图像压缩上传程序。采用Delphi语言实现。大致步骤如下:
1,上传前将文件打开装载到TJpegImage,
2,创建一个TBitmap组件,设置其大小,采用StretchDraw方法将TJpegImage的图像绘制到TBitmap组件,
3,将TBitmap组件的图像赋值给TJpegImage,
4,设定TJpegImage的压缩率,调用压缩方法执行压缩,
5,最后保存新的图像到文件中
代码如下:
//输入:要转换大小的图片文件路径 //输出:转换后文件的路径 function ConvertJPGFile(const inFile: string): string; var img1, img2: TImage; bmp: TBitmap; JPEGImage : TJpegImage; Stream:TFileStream; i: integer; const compress_ratio: array[1..6] of integer=(75,50,25,10,5,2); begin JPEGImage := TJpegImage.Create; bmp := TBitmap.Create; EnterCriticalSection(RTLCriticalSection2); try result := GetTempFilePath + ExtractFilename(inFile); JPEGImage.LoadFromFile(inFile); //要求图像分辨率不小于704×576个像素点 if (1.0 * JPEGImage.Width)/JPEGImage.Height >= (704.0/576.0) then begin //原图宽度足够。应以高度为准进行缩小 bmp.Height := 600;//新图像高度 bmp.Width := (bmp.Height*JPEGImage.Width) div JPEGImage.Height;//新图像宽度,按比例 end else begin //原图高度足够。应以宽度为准进行缩小 bmp.Width := 1024;//新图像宽度 bmp.Height := (bmp.Width*JPEGImage.Height) div JPEGImage.Width;//新图像高度,按比例 end; bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, JPEGImage); JPEGImage.Assign(bmp); for i:=1 to 1 do begin JPEGImage.CompressionQuality := compress_ratio[i]; JPEGImage.Compress; JPEGImage.SaveToFile(result); end; finally JpegImage.Free; bmp.Free; LeaveCriticalSection(RTLCriticalSection2); end; end;
此代码在正常环境下执行没有问题,但发现若在子线程中调用,则会频繁出现“Out of system resources”、“存储空间不足,无法处理此命令”等错误。
分析原因可能是JpegImage组件不支持多线程,只在主线程中是安全的。因此,应该在主线程中调用ConvertJPGFile方法。
那么子线程如何让主线程中调用ConvertJPGFile方法呢?转换前后的文件名称如何传递呢?
2,解决思路
可以采用子线程向主线程发送消息,主线程收到消息后,转换图片,然后向子线程发送消息,子线程等到转换完毕的消息后,继续执行。
1,子线程调用postMessage,向主线程发送特定消息WM_5001,然后调用GetMessage函数等候主线程消息
2,主线程的WndProc过程,收到消息WM_5001后,执行图片压缩,然后向子线程PostThreadMessage,发送消息WM_5002
3,子线程收到主线程消息,继续处理
按以上思路 实现后,图片压缩不再出现错误。要说明的是,采用Message的WParam传递字符串参数不可靠,有时会出现字符串截断。因此程序采用全局变量进行参数传递。
3,程序实现
子线程调用:
//调用主线程函数处理图像压缩,否则会出现“out of resource”之类的错误 function Thread_tcp.ConvertJPGFile(inFile: string; var outFile: string; var outFileSize: integer): Boolean; var Msg: tagMsg; begin g_convert_fn_in := inFile; postMessage(GetMainHandler, WM_5001,0,0); while GetMessage(Msg,0,0,0) do begin if Msg.message=WM_5002 then begin outFile := g_convert_fn_out; outFileSize := GetFileSize(outFile); Result := outFileSize>0; Exit; end; end; end;
主线程响应:
procedure TfMain.WndProc(var Message: TMessage); var fn: string; p: PChar; begin if Message.Msg = WM_5001 then begin g_convert_fn_out := ConvertJPGFile(g_convert_fn_in); if getTcpThreadID>0 then PostThreadMessage(getTcpThreadID, WM_5002,0,0); end else inherited; end;
全局变量声明:
var g_convert_fn_in: string; //转换图片输入文件 g_convert_fn_out: string; //转换图片输出文件 const WM_5001=WM_USER+5001; //子线程向主线程发送消息,由主线程压缩图片 WM_5002=WM_USER+5002; //主线程向子线程发送消息,压缩图片完毕