शर्मिंदगी की तीन लाइनें

मैंने सीखा कि WinWord कैसे चलाया जाता है और एक अद्भुत साइट पर एक दस्तावेज़ में अपनी लाइनें सम्मिलित करें: http://jmvidal.cse.sc.edu/csce790/PS4/

यह क्या है, आप पूछते हैं, क्योंकि Microsoft OLE स्वचालन तकनीक काफी व्यापक रूप से वर्णित है और इसका उपयोग 10 वर्षों से किया गया है। और यहां जो आश्चर्यजनक है वह यह है कि जब DO_WORD फ़ंक्शन को किसी अन्य प्रोजेक्ट में स्थानांतरित किया गया था, तो इससे त्रुटि हुई, Word बस प्रारंभ नहीं करना चाहता था। यह इस तथ्य के बावजूद है कि परियोजना सी ++ में लिखी गई है, लेकिन, दुर्भाग्य से, एमएफसी तकनीक का उपयोग नहीं करता है। कुछ भी काम क्यों नहीं करता है, क्योंकि सभी पुस्तिकाओं में संकेत के अनुसार OLE आरंभीकरण कार्य आगे बढ़ता है? यह पता चला है कि यह अकेले पर्याप्त नहीं है और आपको इसके अलावा MFC लाइब्रेरी को इनिशियलाइज़ करना होगा। यह कैसे करें?

नतीजतन, हमारे पास 2 कार्यक्रम हैं, पहले एक में, जो हमारी परियोजना की भूमिका निभाता है और नीचे दिए गए स्रोतों के रूप में प्रस्तुत किया जाता है, DO_WORD फ़ंक्शन को तुरंत _tWinMain () से कहा जाता है। दूसरे कार्यक्रम में, जो ऊपर दिए गए लिंक से प्राप्त किया गया था, पहले MFC के माध्यम से एक संवाद बनाया जाता है, और उसके बाद ही DO_WORD कहा जाता है। जैसा कि अपेक्षित था, पहला कार्यक्रम काम करने से इनकार करता है, दूसरा ठीक काम करता है।

तब दूसरे कार्यक्रम को डिबगर में अवर्णनीय शर्मिंदगी के अधीन किया गया था। नतीजतन, पहले एक को अंतिम रूप दिया गया था और नीचे प्रस्तावित कोड आपके ध्यान के लिए निकला है। शोमनिज़्म की केवल तीन पंक्तियाँ ही विनवर्ड और पूर्ण विकसित कार्यों की एक सामान्य शुरुआत की ओर ले जाती हैं।

फ़ाइल wordmain.cpp:

#include "stdafx.h" #include "msword9.h" void DO_WORD(void) { AfxOleInit(); AfxEnableControlContainer(); //start word COleVariant covTrue((short)TRUE), covFALSE((short)FALSE), covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); _Application app; Documents Docs; _Document Doc; Selection Select; _Font Font; Find myFind; if (!app.CreateDispatch("Word.Application")) { AfxMessageBox ("Couldn't start Word"); return ;//FALSE; } app.SetVisible(TRUE); CString fileName = "C:/MyDocFile.doc"; Docs = app.GetDocuments(); Doc = Docs.Add(covOptional,covOptional,covOptional,covOptional); Select = app.GetSelection(); //Get Current font object and change it Font = Select.GetFont(); Font.SetBold(TRUE); Font.SetItalic(TRUE); Font.SetSize(18); Select.TypeText("Hello this is a Word doc.\n"); /* Doc.SaveAs(COleVariant(fileName), covOptional,covOptional,covOptional, covOptional,covOptional,covFALSE,covOptional, covOptional,covOptional,covOptional); //Doc.Close(covFALSE, covOptional, covOptional); app.Quit(covFALSE,covOptional,covOptional); */ AfxOleTerm(); } extern "C" int WINAPI _tWinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPTSTR lpCmdLine, int nCmdShow) { //   AFX_MODULE_STATE* pModuleState = AfxGetModuleState(); pModuleState->m_bDLL = 0; CWinApp *theApp = new CWinApp; DO_WORD(); delete theApp; return 0; } 

Compile.bat संकलन फ़ाइल Visual Studio 2010 और पुराने Visual Studio 6.0 के लिए उपयुक्त है। इसमें हम दो फाइल संकलित करते हैं, wordmain.cpp जो ऊपर दी गई है, साथ ही msword9.cpp जो लिंक पर दिए गए निर्देशों का पालन करके प्राप्त की जा सकती है, अर्थात् Ctrl-W दबाकर और फिर स्वचालन टैब पर Add New Class बटन पर क्लिक करें और फिर फ़ाइल का चयन करें “ C: \ Program Files \ Microsoft Office \ Office \ msword9.olb "और पहले वर्गों पर क्लिक करके सभी वर्गों का चयन करें, और शिफ्ट पकड़े हुए, कक्षाओं की संबंधित सूची के अंतिम तत्व पर।

Compile.bat संकलन फ़ाइल:

 rem Visual Studio 2010 call "C:\Program Files\Microsoft Visual Studio 10.0\VC\BIN\vcvars32.bat" rem Visual Studio 6.0 rem call "C:\Program Files\Microsoft Visual Studio\VC98\BIN\vcvars32.bat" mkdir Release cl /nologo /MD /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_AFXDLL" /D "_MBCS" /Fo".\Release\\" /Fd".\Release\\" /FD /c "wordmain.cpp" "msword9.cpp" link /nologo /subsystem:windows /incremental:no /machine:I386 /out:".\Release\wordmain.exe" ".\Release\wordmain.OBJ" ".\Release\msword9.obj" 

UPD: मैंने इस पोस्ट के स्रोतों को msword9.cpp सहित, statja.rar फ़ाइल में पोस्ट किया है।