VB6+Python混合編程(COM組件)

Python的方便不用說,VB6做GUI的簡單程度更不用說胸竞。二者混合編程的需求一直非常旺盛,但我苦苦搜尋了很久参萄,始終未找到合適的解決方案卫枝。
在很長一段時間內,我都是通過創(chuàng)建讹挎、讀取校赤、刪除臨時文件來在VB程序和Python程序間傳遞信息,麻煩筒溃,且低級马篮。(如下)
比如下面是一個典型的處理流程


1. VB創(chuàng)建需要處理的文本please.txt,并調用Python

2. Python讀取怜奖、處理文本浑测,并將處理后的文本保存為ok.txt

3. VB在執(zhí)行上面語句后進入死循環(huán),等待ok.txt生成歪玲,完成后讀取迁央,繼續(xù)流程

諸位請看掷匠,是不是非常符合麻煩、低級的描述岖圈?但沒有更好的解決方案讹语,只有如此。

----激動人心的分界線-----

后來發(fā)現(xiàn)了一本書(python programming on win32幅狮,有興趣的找來看)募强,終于讓我發(fā)現(xiàn)了解決方法。COM組件崇摄!

COM is a technology from Microsoft that allows objects to communicate without the need for either object to know any details about the other, even the language it's implemented in.

看看本書某章節(jié)的總結:

We have seen examples of the various data types that can be passed back and forth between the two languages: numbers, strings, and arrays. The ability to pass multidimensional arrays allows you to move large amounts of data between the two languages without writing a lot of conversion code.

也不用說很多擎值,不想看書的,看看下面這個我從書中摘抄的簡短例子逐抑,就能知道該方法的核心之處鸠儿。
在python里:

#需要先安裝pipywin32模塊
import pythoncom
class PythonUtilities:

    _public_methods_=['SplitString']
    _reg_progid_='PythonDemos.Utilities'
    _reg_clsid_=pythoncom.CreateGuid()

    def SplitString(self, val, item=None):
        import string 
        if item !=None: 
            item=str(item)
        val=str(val)
        return val.split(item)

if __name__=='__main__':
    print ('Registering COM server...')
    import win32com.server.register
    win32com.server.register.UseCommandLine(PythonUtilities)

以管理員身份執(zhí)行上述代碼。在注冊成功后厕氨,COM組件會一直保留进每,不受開關機影響,因此可以在任意時候進行調用命斧。最妙的是田晚,你可以隨時更新代碼的函數部分,而無需重新注冊国葬,因此通常情況下贤徒,你只需要在注冊時使用管理員權限。

在VB里:

Private Sub Form_Load()
    Set PythonUtils = CreateObject("PythonDemos.Utilities")
    response = PythonUtils.SplitString("Hello from VB")
    For Each Item In response
        MsgBox Item
    Next
End Sub

上面說COM組件會一直保留汇四,如果需要注銷接奈,可使用管理員權限執(zhí)行命令行語句(py_name是上面python文件的名稱)。

> python py_name.py --unregister

多余的不用說了通孽,一試便知序宦,這點代碼足以解決諸多混合編程的難題。

該方法不僅適用于VB+Python背苦,Office互捌,Delphi,C++等等行剂,均可使用疫剃。

注:針對評論說的python版本,上述案例使用的是64位python+vb6硼讽,沒有問題。實測VBA同樣可以牲阁。
我使用的Python版本

再注:有同學反映說所給的案例無法執(zhí)行固阁,我將該案例上傳壤躲,供各位參考。下載后執(zhí)行bat文件注冊COM备燃,就可以打開VB工程使用了碉克。


鏈接: https://pan.baidu.com/s/1MUx_NkGMfMKYuGc-8W1tKQ 提取碼: hvrh

最后編輯于
?著作權歸作者所有,轉載或內容合作請聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個濱河市并齐,隨后出現(xiàn)的幾起案子漏麦,更是在濱河造成了極大的恐慌,老刑警劉巖况褪,帶你破解...
    沈念sama閱讀 207,113評論 6 481
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件撕贞,死亡現(xiàn)場離奇詭異,居然都是意外死亡测垛,警方通過查閱死者的電腦和手機捏膨,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,644評論 2 381
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來食侮,“玉大人号涯,你說我怎么就攤上這事【馄撸” “怎么了链快?”我有些...
    開封第一講書人閱讀 153,340評論 0 344
  • 文/不壞的土叔 我叫張陵,是天一觀的道長眉尸。 經常有香客問我域蜗,道長,這世上最難降的妖魔是什么效五? 我笑而不...
    開封第一講書人閱讀 55,449評論 1 279
  • 正文 為了忘掉前任地消,我火速辦了婚禮,結果婚禮上畏妖,老公的妹妹穿的比我還像新娘脉执。我一直安慰自己,他們只是感情好戒劫,可當我...
    茶點故事閱讀 64,445評論 5 374
  • 文/花漫 我一把揭開白布半夷。 她就那樣靜靜地躺著,像睡著了一般迅细。 火紅的嫁衣襯著肌膚如雪巫橄。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 49,166評論 1 284
  • 那天茵典,我揣著相機與錄音湘换,去河邊找鬼。 笑死,一個胖子當著我的面吹牛彩倚,可吹牛的內容都是我干的筹我。 我是一名探鬼主播,決...
    沈念sama閱讀 38,442評論 3 401
  • 文/蒼蘭香墨 我猛地睜開眼帆离,長吁一口氣:“原來是場噩夢啊……” “哼蔬蕊!你這毒婦竟也來了?” 一聲冷哼從身側響起哥谷,我...
    開封第一講書人閱讀 37,105評論 0 261
  • 序言:老撾萬榮一對情侶失蹤岸夯,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后们妥,有當地人在樹林里發(fā)現(xiàn)了一具尸體猜扮,經...
    沈念sama閱讀 43,601評論 1 300
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內容為張勛視角 年9月15日...
    茶點故事閱讀 36,066評論 2 325
  • 正文 我和宋清朗相戀三年王悍,在試婚紗的時候發(fā)現(xiàn)自己被綠了破镰。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 38,161評論 1 334
  • 序言:一個原本活蹦亂跳的男人離奇死亡压储,死狀恐怖鲜漩,靈堂內的尸體忽然破棺而出,到底是詐尸還是另有隱情集惋,我是刑警寧澤孕似,帶...
    沈念sama閱讀 33,792評論 4 323
  • 正文 年R本政府宣布,位于F島的核電站刮刑,受9級特大地震影響喉祭,放射性物質發(fā)生泄漏。R本人自食惡果不足惜雷绢,卻給世界環(huán)境...
    茶點故事閱讀 39,351評論 3 307
  • 文/蒙蒙 一泛烙、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧翘紊,春花似錦蔽氨、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,352評論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至踪宠,卻和暖如春自赔,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背柳琢。 一陣腳步聲響...
    開封第一講書人閱讀 31,584評論 1 261
  • 我被黑心中介騙來泰國打工绍妨, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留润脸,地道東北人。 一個月前我還...
    沈念sama閱讀 45,618評論 2 355
  • 正文 我出身青樓他去,卻偏偏與公主長得像津函,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子孤页,可洞房花燭夜當晚...
    茶點故事閱讀 42,916評論 2 344

推薦閱讀更多精彩內容

  • rljs by sennchi Timeline of History Part One The Cognitiv...
    sennchi閱讀 7,294評論 0 10
  • 2017匆匆而過。 很想問自己: 這一年涩馆,過得還好嗎行施? 安靜下來, 回頭想想: 這一年里魂那, 做了什么蛾号, 得到了什么...
    眉眼如初wss閱讀 277評論 0 0
  • 文/夏小沫 1 周末和好友麥子逛街鲜结,聊到各自的工作,麥子告訴我活逆,她們辦公室最近發(fā)生了一件讓大家頗為頭疼的事精刷。 有個...
    夏曉墨文案閱讀 623評論 4 10