画像をさまざまなファイル形式に保存する

Question

私はTCanvas上の指定された矩形に何かを描画するルーチンprocedure DrawStuff(ACanvas: TCanvas; const ARect: TRect)を持っています。現時点では、PaintBoxのキャンバスでDrawStuffと呼んでいます。今度はSave asオプションを追加しています。ユーザーはDrawStuffの結果を保存するために、さまざまなファイル形式（bmp、wmf、jpg、... - できるだけ多くのTGraphic子孫を選択可能）から選択する必要があります。

TMetafileに描画し、 "bla.bmp"またはAssignをTPictureに保存すると、正しく動作しません。 がビットマップではない拡張子 ".bmp"のファイルを生成します。 - 利用TBitmap.Canvas

• BMP：今、私は特別なケースごとに単一のファイル形式を含まない溶液を理解することはできません。
• wmf/emf：TMetafileCanvasを使用してください。
• などなど

あなたは私のための任意のアイデアを持って知っていますか？

Answer 1

私はこのような単純なおそらく「ダム」の変換を考え推測：

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; 

あなたがのTPictureに割り当てるときのように、機能しなかったのTPictureに割り当て、のTPictureはクラスにグラフィックを変換しますあなたはから割り当てています。

私の例では、元のイメージが最終形式に変換される前にビットマップに変換されるので、2つの変換レイヤーがあります。プロセスにはかなりの情報が失われる可能性があります。たいていの（すべて？）グラフィックタイプはTBitmapとの変換方法を知っていますが、TJPEGImageはTPngImageへの変換方法がわからず、その逆もありません。

ファイル形式に固有の透明性やその他の効果を維持する、より効率的な変換方法を開発できますが、それは私の知る限りです。しかし、あなたのニーズに応じて、それは十分かもしれません。