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

請問一下 vb 轉 delphi 的問題

尚未結案
degr
一般會員


發表:22
回覆:36
積分:21
註冊:2002-03-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-06-27 00:00:12 IP:61.13.xxx.xxx 未訂閱
Dim PIPAdapterManager As PIPAdapterSDK.CPIPAdapterManager 我要如何宣告呢 var PIPAdapterManager : Variant; XMLNODE,XMLDOM: Variant; 宣告這樣可以嗎 還有就是 Set XMLNODE=XMLDOM.selectSingleNode("RosettaNetMessage/ServiceContent") 是要轉成這樣嗎(Delphi) XMLNODE:=XMLDOM.selectSingleNode('RosettaNetMessage/ServiceContent'); 這是vb的 XMLDOM.documentElement.replaceChild XMLNODE, XMLDOM.selectSingleNode("RosettaNetMessage/ServiceContent") 要轉成怎樣的delphi,這我就看不懂了 這是vb code Set PIPAdapterManager=CreateObject("PIPAdapterSDK.CPIPAdapterManager") 下面是delphi,這樣可以嗎 PIPAdapterManager:=CreateOleObject('PIPAdapterSDK.CPIPAdapterManager') 這是vb code (看不懂如何轉成delphi) Call PIPAdapterManager.DeliverResponseMessage(FlowID, XMLDOM.xml) 請問有長官可以為我解說一下嗎...遇到vb沒折的人
baby999
一般會員


發表:0
回覆:8
積分:1
註冊:2003-01-20

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-06-27 21:05:40 IP:203.175.xxx.xxx 未訂閱
http://www.delphibbs.com/keylife/iblog_show.asp?xid=1107 你试试EventSinkImp If you are familiar with VB, EventSinkImp allows you to achieve the equivalent of VB's Dim WithEvents mechanism. What is EventSinkImp? EventSinkImp is a free utility (comes with full source code for enthusiasts) that imports COM connection point-based event interfaces for ease of use in Delphi applications. EventSinkImp creates stub classes/components that publishes event methods as native Delphi events so that you can easily build applications that need to capture COM-based events from Delphi, Visual Basic, or Visual C server COM components. If you are familiar with VB, EventSinkImp allows you to achieve the equivalent of VB's Dim WithEvents mechanism. 你可以在 http://www.techvanguards.com/products/eventsinkimp/ 下载 那儿有很多好东西呀
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-06-27 22:02:31 IP:61.62.xxx.xxx 未訂閱
Dim PIPAdapterManager As PIPAdapterSDK.CPIPAdapterManager 我要如何宣告呢 var    PIPAdapterManager : Variant;   XMLNODE,XMLDOM: Variant; 宣告這樣可以嗎 是的 還有就是 Set XMLNODE=XMLDOM.selectSingleNode("RosettaNetMessage/ServiceContent") 是要轉成這樣嗎(Delphi) XMLNODE:=XMLDOM.selectSingleNode('RosettaNetMessage/ServiceContent'); 是的 這是vb的 XMLDOM.documentElement.replaceChild XMLNODE, XMLDOM.selectSingleNode("RosettaNetMessage/ServiceContent") 要轉成怎樣的delphi,這我就看不懂了 XMLDOM.documentElement.replaceChild(XMLNODE, XMLDOM.selectSingleNode('RosettaNetMessage/ServiceContent')); 這是vb code Set PIPAdapterManager=CreateObject("PIPAdapterSDK.CPIPAdapterManager") 下面是delphi,這樣可以嗎 PIPAdapterManager:=CreateOleObject('PIPAdapterSDK.CPIPAdapterManager') 可以的 這是vb code (看不懂如何轉成delphi) Call PIPAdapterManager.DeliverResponseMessage(FlowID, XMLDOM.xml) PIPAdapterManager.DeliverResponseMessage(FlowID, XMLDOM.xml) 有問題的部分是不是可以請你先自行試試看後再 post 上來問, 不要什麼都拿上來問, 一整坨問題, 和之前都是一樣重覆的!!
系統時間:2024-04-27 12:48:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!