[VB6 ] VB在呼叫dll檔案時會自動關閉

看板Visual_Basic作者dogs1231992 (河豚)時間9年前 (2015/01/28 20:54)推噓2(2推 0噓 2→)

留言4則, 2人參與討論串1/1

我今天在嘗試以VB6來呼叫dll檔時，遇到兩種情形上網查了之後，還是不太知道怎麼解決="= 前情提要：我寫了一個Fortran檔，用Program開頭，轉成dll檔之後進入的端口是MAIN_ (我也有改寫成Subroutine過，兩者結果會一樣，所以不是轉檔出問題) 程式內容大略為 Program 宣告變數 Open檔案，讀取設定值 Open檔案，用來輸出答案利用設定值進行模擬運算(很複雜的矩陣跟迴圈運算) 收斂之後將結果輸出 End Program 此時，我利用VB呼叫dll檔近來，程式碼為 Private Declare Sub MAIN_ Lib "BaseCase.dll" () Private Sub Command1_Click() Call MAIN_ End Sub 此時遇到了第一個問題，程式正確的被執行了，而且我確定其結果有收斂因為我在收斂之後會輸出答案，而Output file的數據停在答案的一半不到換個方向講就是，程式跑完之後，不知道什麼原因，答案的Write只執行到一半程式就被關閉了(不管是在編譯器內或者輸出成EXE檔，他都會自動關閉我本來有想說會不會是因為我的輸出數據過多，因此我就嘗試寫了另一個新的檔案讓他輸出整數1到50000，結果沒問題(若要輸出1到50萬，則會顯示堆疊空間不足) 因此我想說是不是因為我把太多數據都寫到同一個TXT檔內，才會導致程式自動關閉? (他這部分就沒有顯示任何訊息，突然就關閉了) 接著，我將Output的資料分開寫，寫到兩個不同的file內，此時軟體可以正常的執行然後將所有數據都輸出 (因為我在最後有叫他輸出一個計算時間，因此我可以確定全部都有輸出 But，第二個問題出現了，我一樣用上面的那些程式碼執行在我按第一次執行的時候，他可以得到正確的答案但是當我再按一次時，程式又會直接關閉 (但是有執行，依照輸出結果來看，是跑到一半就停掉了) 我此時檢查output檔案，可以發現我的兩個output檔有其中一個有被改寫，另一個則是原封不動，這表示我的程式在邊模擬邊輸出時當掉了 (這部分我是懷疑說是不是因為我的Fortran內的Open指令設定為 OPEN(UNIT=8,FILE="INPUT_DATA_FILE.TXT") OPEN(UNIT=9,FILE="OUTPUT_DATA_FILE.TXT") 沒有給status所導致，但是我依舊無法理解說，為什麼程式會執行到一半自動關閉? 還有，為什麼我的程式明明已經順利模擬完了，卻會在輸出時寫到一半就關掉了? 我是有想到說利用下面這種方法，直接呼叫我的執行檔，這樣的話就可以無限次點取了 (每次模擬都等於呼叫一次執行檔，因此各自獨立不影響) Private Sub Command1_Click() Shell ("cmd /C BaseCase.exe") End Sub 但我還是希望用成dll檔的形式，這樣未來在使用上也會比較方便希望有好心的鄉民們教小弟如何避免上述情形應該如何讓每次的call dll都獨立而不互相影響呢? -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.112.23.91 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1422449649.A.1AF.html