我有很多文件是*.QRP格式的，我怎样才能用DELPHI写个程序，打开这些文件， 并且另存到*,txt,或者*.xls？？？？ 我是初学者，高手救命！！！！ 發表人 - myage23 於 2003/04/25 21:50:53

我是用BCB的...我提供我的方法給你參考    記得include 這個檔案 qrextra.hpp  

    if (OpenDialog1->Execute())
    {
        TQRPHandler *QRPDevice;
        QRPDevice=new TQRPHandler();
        QRPDevice->Filename = OpenDialog1->FileName;
        QRPDevice->Preview();
        delete QRPDevice;
    }
 

上面是開檔的方法...這裡提供匯出檔案的方法 要再 include 這個檔案 qrexport.hp  

    if (OpenDialog1->Execute())
    {
//開檔預覽
        TQRPHandler *QRPDevice;
        QRPDevice=new TQRPHandler();
        QRPDevice->Filename = OpenDialog1->FileName;
        QRPDevice->Preview();
//另存HTML檔案
        TQRHTMLDocumentFilter *AHTMLExportFilter;
        AHTMLExportFilter= TQRHTMLDocumentFilter("REPORT.HTM");
        QRPDevice->ExportToFilter(AHTMLExportFilter);
        delete AHTMLExportFilter;
//另存文字檔
        TQRAsciiExportFilter *AAsciiExportFilter;
        AAsciiExportFilter = TQRAsciiExportFilter("REPORT.TXT");
        QRPDevice->ExportToFilter(AAsciiExportFilter);
        delete AAsciiExportFilter;
//另存CSV檔
        TQRCommaSeparatedFilter *ACommaSeparatedExportFilter;
        ACommaSeparatedExportFilter= TQRCommaSeparatedFilter("REPORT.CSV");
        QRPDevice->ExportToFilter(ACommaSeparatedExportFilter);
        delete ACommaSeparatedExportFilter;            delete QRPDevice;
    }
 

QuickReport 只能匯出這三種格式...如果需要Excel的格式可能要自行處理或找其他的元件了 發表人 - artist1002 於 2003/04/26 01:30:24

THANK YOU！我平时不会用DELPHI，只是因为要打开QRP文件才自学DELPHI，没想到DELPHI太难了。請问有没有现成的程序呀？？你给出代码，我不会用呀。我是菜鸟。 發表人 - myage23 於 2003/04/26 12:03:19

引言: 請问有没有现成的程序呀？？你给出代码，我不会用呀。我是菜鸟。

這位同學...bcb的source看不懂， delphi的demo也有相關的範例程式... 說我是菜鳥不可恥，沒有人一生下來就會寫程式，問題是，如果打著我是菜鳥的招牌要人加給你現成的程序，說不過去，自己先試試，研究一下，看書也好看help看範例也好，問與回答是互動的,擺明了我不會你們一定要教我這樣子很說不過去. Fear is the path to the dark side. Fear leads to anger.Anger leads to hate.Hate leads to suffering....

不好意思喔...我只會BCB說...不會Delphi 看看有沒有人能幫你改成Delphi的吧... 我只會把Delphi的碼改成BCB的