全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1620
推到 Plurk!
推到 Facebook!

COM元件如何Create(有delphi範例)

尚未結案
demon1042001
一般會員


發表:14
回覆:19
積分:6
註冊:2002-06-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-09-10 18:02:06 IP:61.218.xxx.xxx 訂閱
這是一個COM元件(或者說只是個class,因為它無法直接使用,需要create)

在delphi裡,可以這樣建立起來
myScanMgr := CoScanningManager.Create;

但在bcb裡
我找不到可用的法方,
只好求救一下各位了

var
Form1: TForm1;
myScanMgr : ScanningManager;
mySession : SessionInfo;
Const
AppName = '998';
AppDir = 'C:\Program Files\Scantron\ScanTools Plus Link SDK\Samples\Applications';
ProfileDir = 'C:\Program Files\Scantron\ScanTools Plus Link SDK\Samples\Profiles';
DataDir = 'C:\Program Files\Scantron\ScanTools Plus Link SDK\Samples\Data Files';
DataFile = '998.dat';


procedure TForm1.FormCreate(Sender: TObject);
var
PortsWithScanners, FPoint : Integer;
begin
//產生一個ScanningManger的實體,宣告在TLB檔案
myScanMgr := CoScanningManager.Create;
myScanMgr.SetClientWindowHandle(self.Handle);
PortsWithScanners := myScanMgr.GetPortsWithScanners(ScanToolsPlusLink_TLB.L_PORT_USE_CURRENT);
myScanMgr.AutoConfigureScanner(PortsWithScanners,1);
//初始化 mySession; will hold user's preferences
mySession := CoSessionInfo.Create;
//定義預設路徑
mySession.ApplicationDirectory := AppDir;
mySession.ProfileDirectory := ProfileDir;
mySession.DataDirectory := DataDir;
mySession.Application := AppName;
mySession.DataFile := DataFile;
myScanMgr.Scan(mySession, 0);
end;
系統時間:2017-12-13 1:47:12
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!