線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:464
推到 Plurk!
推到 Facebook!

如何使用一個MTS Date Module 的dll元件!!!!!!

答題得分者是:sryang
p24552311
一般會員


發表:3
回覆:4
積分:1
註冊:2013-09-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2016-11-09 15:21:25 IP:210.201.xxx.xxx 未訂閱
原本一個寫好的MTS Date Module的DLL(IdentifyZip.dll)檔,給ASP網頁使用,
asp使用的寫法,{
Set ZipIdentify=CreateObject("IdentifyZip.mtsIdentyfyZip")
FindZip=ZipIdentify.LookupZip("台北市")
}
但我想在一個簡單環境,delphi開發下,如何使用這個元件IdentifyZip.dll中的LookupZip
如何使用interface

------
eric
sryang
尊榮會員


發表:38
回覆:742
積分:876
註冊:2002-06-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2016-11-10 12:36:49 IP:59.127.xxx.xxx 未訂閱
只要把 CreateObject 改成 CreateOleObject 就好了
------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/
p24552311
一般會員


發表:3
回覆:4
積分:1
註冊:2013-09-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2016-11-10 13:44:08 IP:210.201.xxx.xxx 未訂閱
如何直接在delphi的開發環境下,使用你說的CreateOleObject
我測試中,IdentifyZip是個com 的dll,interface是mtsldentyfyZip
在一個

var
Form1: TForm1;
procedure TForm1.Button1Click(Sender:TOject);
Var
Zipidentify :??? 宣告成什麼物件
begin
Zipidentify := CreateOleObject(IdentifyZip.mtsldentyfyZip)
Edit2.Text := Zipidentify.LookupZip( Edit1.Text)
end;
------
eric
p24552311
一般會員


發表:3
回覆:4
積分:1
註冊:2013-09-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2016-11-10 23:36:50 IP:36.228.xxx.xxx 未訂閱
正確解釋,一個已經註冊的COM 的原件,他在DELPHI開發環境下,如何使用的此COM 的interface
------
eric
sryang
尊榮會員


發表:38
回覆:742
積分:876
註冊:2002-06-27

發送簡訊給我
#5 引用回覆 回覆 發表時間:2016-11-11 10:24:23 IP:59.127.xxx.xxx 未訂閱
既然是 CreateOleObject,自然就宣告成 OleVariant
用完之後記得設定為 NULL 就行
------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/
p24552311
一般會員


發表:3
回覆:4
積分:1
註冊:2013-09-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2016-11-12 10:02:30 IP:210.201.xxx.xxx 未訂閱
感謝你!!!!謝謝妳的指點!!
------
eric
系統時間:2017-11-22 20:37:50
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!