Lưu hình ảnh vào nhiều định dạng tệp khác nhau

Question

Tôi có một thường lệ procedure DrawStuff(ACanvas: TCanvas; const ARect: TRect) vẽ thứ gì đó vào hình chữ nhật được chỉ định trên một TCanvas. Tại thời điểm này tôi gọi DrawStuff bằng canvas của PaintBox. Bây giờ tôi đang thêm một tùy chọn Save as, trong đó người dùng có thể chọn từ nhiều định dạng tệp khác nhau (bmp, wmf, jpg, ... - thích hợp nhất với nhiều hậu duệ TGraphic) để lưu kết quả của DrawStuff vào .

Vẽ đến TMetafile và lưu thành "bla.bmp" hoặc Assign nhập vào TPicture không hoạt động chính xác - ví dụ: nó tạo ra các tệp có phần mở rộng ".bmp" mà không phải là bitmap. Ngay bây giờ tôi không thể tìm ra giải pháp không liên quan đến vỏ bọc đặc biệt ở mỗi định dạng tệp đơn lẻ:

• bmp - Sử dụng TBitmap.Canvas.
• wmf/emf: Sử dụng TMetafileCanvas.
• v.v.

Bạn có biết ý kiến ​​nào cho tôi không?

Answer 1

Tôi đoán một sự chuyển đổi "câm" có lẽ cũng đơn giản như thế này:

type 
    TGraphicTypeEnum = (gteBMP, gteJPG, gteTIF, gtePNG); 

procedure SaveGraphicAs(AGraphic : TGraphic; AGraphicType : TGraphicTypeEnum; AFileName : String); 
var vGraphicClass : TGraphicClass; 
    vTargetGraphic : TGraphic; 
    vBmp : TBitmap; 
begin 

    case AGraphicType of 
    gteBMP : vGraphicClass := TBitmap; 
    gtejpg : vGraphicClass := TJPEGImage; 
    gtetif : vGraphicClass := TWICImage; 
    gtepng : vGraphicClass := TPngImage; 
    else 
    // EXIT; or raise... 
    end; 
    if aGraphic is vGraphicClass then //As suggested by Rob Kennedy 
    AGraphic.SaveToFile(AFileName) 
    else 
    begin 
    vBmp := nil; 
    vTargetGraphic := vGraphicClass.Create; 
    try 
     vBmp := TBitmap.Create; 
     vBmp.Assign(AGraphic); 
     vTargetGraphic.Assign(vBmp); 
     vTargetGraphic.SaveToFile(aFileName); 
    finally 
     vTargetGraphic.Free; 
     vBmp.Free; 
    end; 
    end; 
end; 

Gán một TPicture đã không làm việc, như khi bạn gán cho một TPicture, TPicture sẽ chuyển đổi đồ họa đến lớp bạn đang chỉ định từ.

Lưu ý rằng trong ví dụ của tôi, có 2 lớp chuyển đổi khi hình ảnh gốc được chuyển thành bitmap trước khi được chuyển đổi sang định dạng cuối cùng. Có thể có khá nhiều mất thông tin trong quá trình này. Hầu hết (tất cả?) Loại đồ họa biết cách chuyển đổi sang và từ TBitmap, nhưng TJPEGImage không biết cách chuyển đổi sang TPngImage và ngược lại.

Phương pháp chuyển đổi hiệu quả hơn có thể được phát triển giữ tính minh bạch và các hiệu ứng khác cụ thể cho định dạng tệp, nhưng đó là kiến ​​thức của tôi. Nhưng tùy theo nhu cầu của bạn, điều đó có thể là đủ.