meta파일을 생성하여 그림을 그리고 그것을 bmp로 옮긴후
최종목표인 jpg파일로 저장할려고 합니다.
win2000에서는 이상없는데 win98에서는 bmp의 크기를 설정시
세로길이가 너무커서 "매개변수..."라는 에러가 발생합니다.
물론 bmp의 크기를 강제로 작게하면 이상은 없지만 그림 밑부분이
잘리고요.
결론적으로 bmp의 크기에 한계가 있는지? 있으면 확장이 가능한지?
가 알고 싶고요
jpg로 저장할때 CompressQuality를 25이하로 낮게하니 "JPEG Error #36"이
발생합니다.
고수님들의 조언을 구합니다....흑... T.T
==============================================
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
MyMeta : TMetafile;
MyMCan : TMetafileCanvas;
MyBMP : TBitmap;
MyJPG : TJPEGImage;
iPage : Integer;
begin
iPage := 5;
try
MyMeta := TMetafile.Create;
with v_MyMeta do begin
Width := 2630; Height := (1860 * iPage);
end;
MyMCan := TMetafileCanvas.Create(MyMeta, 0);
Draw(MyMCan);
MyMCan.Free;
MyBMP := TBitmap.Create;
with MyBMP do begin
Height := MyMeta.Height; <-- 이때 MyMeta의 높이가 큼
Width := MyMeta.Width;
end;
MyBMP.Canvas.Draw(0, 0, MyMeta);
MyBMP.SaveToFile('e:jms.bmp');
MyJPG := TJPEGImage.Create;
MyJPG.Assign(MyBMP);
MyJPG.SaveToFile('e:jms.jpg');
MyJPG.Free;
MyBMP.Free;
MyMeta.SaveToFile('e:jms.wmf');
finally
MyMeta.Free;
end;
end;