VFP 愛用者社區

[Batman]

測試程式如下:
CurUserIP=LocalIP()
Wait wind CurUserIP
clear all
Return


Proc LocalIP
Local oWinsock
oWinsock=CreateObject("MSWinsock.Winsock")
If Type("oWinsock")#"O"
=Messagebox("Initialize Winsock Error")
Return ''
Else
cNetAddress=oWinsock.LocalIP
Release oWinsock
return cNetAddress
endif

以上執行程式沒問題, 可是編譯後, 那執行檔退出來後, 在工作管理員的程序處理仍然存在, 請問加了mswinsock後, 程式應要如何完全退出來?

[syntech]

用上面程式測試,

可以完全退出 !? (0_o) |||

[Batman]

你的測試程序可以釋放出來?我測試是程式沒有完全退出來, 在工作管理員的程序處理仍然存在

[LiuRambo]

點一下就結束程序啦
會退不出來？

[Batman]

不是程式退不出來, 是編譯後,執行程式,出了 IP後, 點一下程式退出來, 但不是真的退了出來, 在查看工作管理員的程序處理仍然存在. 應是在那裡出問題??

[Batman]

會不會是 用了 oWinsock=CreateObject("MSWinsock.Winsock") 後, 要將它釋放出來 ?如是,應怎樣釋放?

[syntech]

證明你是抄來的.

否則你不會不知道 "Release oWinsock " 的用途

[Batman]

是的, 是抄來的測試的, 既程式己 Release了,為何編釋後的exe在退出來後, 進程仍然留在工作管理員的程序處理,沒有被釋效出來, 希望各狐友幫忙一下, 試編釋再執行, 會不會出現我的情況, 謝謝

[Batman]

剛剛再測試,在程式中刪除全部, 祗留一行 wait wind 'aaa', 然後再編釋至testprog再執行, 發現程式還是留在工作管理員的程序處理, 那便不是owinsock的事, 為何不編釋後的exe進程不能釋放出來了, 各孤友可否幫忙

[Batman]

可以了, 完來是我在編釋程式的目錄上建了config.fpw, 內裡有Scree=off, 所以Screen沒被釋放出來, 程序便沒完全釋放, 純屬誤會, 不好意思, 打擾了

[syntech]

不過也可擦屁股擦乾淨一點.
一樣是在本站還是紅狐偷來的.

[richshih]

加 RELEASE ALL +CANCEL 或 QUIT
CLEAR ALL 不會釋放系統變數，也不會清除已編譯程式的緩衝區。使用 CLEAR PROGRAM 來清除已編譯程式的緩衝區l