विभिन्न प्रकार के फ़ाइल प्रारूपों में चित्र सहेजें

Question

मेरे पास एक नियमित procedure DrawStuff(ACanvas: TCanvas; const ARect: TRect) है जो टीसीएनवास पर निर्दिष्ट आयत में कुछ खींचता है। फिलहाल मैं एक पेंटबॉक्स के कैनवास के साथ DrawStuff पर कॉल करता हूं। अब मैं Save as विकल्प जोड़ रहा हूं, जिसमें उपयोगकर्ता DrawStuff के परिणामों को सहेजने के लिए विभिन्न प्रकार के फ़ाइल स्वरूपों (बीएमपी, डब्ल्यूएमएफ, जेपीजी, ... - जितना संभव हो सके उतने टीजीआरएफसी वंशजों) से चयन करने में सक्षम होंगे। ।

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 परतें हैं क्योंकि मूल छवि को अंतिम प्रारूप में परिवर्तित करने से पहले बिटमैप में परिवर्तित किया गया है। प्रक्रिया में जानकारी का काफी नुकसान हो सकता है। अधिकांश (सभी?) ग्राफ़िक प्रकार को पता है कि टीबीटमैप से कैसे और कैसे परिवर्तित किया जाए, लेकिन TJPEGImage को पता नहीं है कि TPngImage में कैसे परिवर्तित करें और इसके विपरीत।

अधिक कुशल रूपांतरण विधि विकसित की जा सकती है जो पारदर्शीता और फ़ाइल प्रारूप के लिए विशिष्ट अन्य प्रभाव रखती है, लेकिन यह मेरा ज्ञान है। लेकिन आपकी जरूरतों के आधार पर, यह पर्याप्त हो सकता है।