請問有誰有使用過 CodeSoft 軟體 |
尚未結案
|
Jiahong1012
一般會員 發表:7 回覆:17 積分:9 註冊:2004-11-05 發送簡訊給我 |
各位程式高手你們好:
我使用 BCB 要如何去控制 CodeSoft(Printer 軟體)? Labelmanager2_tlb::IDocument* __fastcall Open( BSTR strDocName, VARIANT_BOOL ReadOnly) { _TDispID _dispid(/* Open */ DISPID(7)); TAutoArgs<2> _args; _args[1] = strDocName /*[VT_BSTR:0]*/; _args[2] = ReadOnly /*[VT_BOOL:0]*/; OleFunction(_dispid, _args); return (Labelmanager2_tlb::IDocument*)(LPDISPATCH)_args.GetRetVariant(); } 所以請大家幫幫忙,要如何去設定開啟檔名的路徑給 CodeSoft 的物件??? 編輯記錄
taishyang 重新編輯於 2010-01-05 19:08:42, 註解 無‧
|
ken77
一般會員 發表:4 回覆:4 積分:1 註冊:2003-02-28 發送簡訊給我 |
以下是我利用Project 中Import的功能,產生的Codesoft Type Lib,經測試使用的功能說明,雖然是Delphi的語法,希望能對你有幫助。
LabelManager2(Delphi)元件使用說明 主元件:TApplication = class(TOleServer) 使用方式 Uses Windows, Messages,……, OleServer, LabelManager2_TLB; csApp = TApplication.Create(Self); 屬性及功能說明: 開啟檔案: csApp. csApp.Connect; csApp.Documents.Open('D:\Sale_Out.Lab',false); 顯示/隱藏CodeSoft csApp.Visible := True/False; csApp.AutoQuit : 結束時自動關閉Codesoft. 取得Codesoft內部印表機設定清單 for i:= 0 to csApp.PrinterSystem.Printers(lppxInternalPrinters).Count-1 do memo1.Lines.add(csApp.PrinterSystem.Printers(lppxInternalPrinters).Item(i)); lppxWindowsPrinters : windows print list lppxAllPrinters : 內/外部所有清單 csApp.PrinterSystem.DefaultPrinter : 取得Codesoft預設印表機 for i:= 0 to csApp.PrinterSystem.Families.Count-1 do memo1.Lines.add(csApp.PrinterSystem.Families.Item(i)); 取得支援的印表機廠商清單 for i:= 0 to csApp.PrinterSystem.Models('MARKEM').Count-1 do memo1.Lines.add(csApp.PrinterSystem.Models('MARKEM').Item(i)); 取得單一廠商支援的印表機型號
------
Ken Hsueh |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |