以前写的一个demo,供参考 调试前先加一个INET控件 Private Sub Command1_Click() Dim strURL As String Dim bData() As Byte ' Data variable strURL = _ "http://shanwu/wxs.zip" bData() = Inet1.OpenURL(strURL, icByteArray) Open "C:\wxs.zip" For Binary Access Write _ As #intFile Put #intFile, , bData() Close #intFile End Sub
TO JQ: 程序太大,而且中间涉及公司的一些保密材料,因为我是在做一个工程时加进去的,用了很多全局变量,而且有很多接口自检代码,传给你肯定没法运行的,而如今快过年了,我正在做回家的准备,挺忙。年后吧,我把所有代码传上来,希望到时各位兄弟姐妹帮我改进改进。
blackstone(黑石头) 的DEMO中必须加上: Dim intFile intFile = FreeFile() ------------ 其实应该使用WINSOCK,对联接的保持,传输接收的先后次序和加密问题,WINSOCK已经封装了。
If you prepare to use the MS Comm control, it is too limited. The best way is use RAS API(rasapi32.dll). But because it is the API, you will use it at the VC++. It is raw and power!!!If you want it, mail me!
有人做过传输吗?在DOS, 用UCDOS的传输工具是可以的,但它是DOS的,遗憾。
调试前先加一个INET控件
Private Sub Command1_Click()
Dim strURL As String
Dim bData() As Byte ' Data variable
strURL = _
"http://shanwu/wxs.zip"
bData() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\wxs.zip" For Binary Access Write _
As #intFile
Put #intFile, , bData()
Close #intFile
End Sub
程序太大,而且中间涉及公司的一些保密材料,因为我是在做一个工程时加进去的,用了很多全局变量,而且有很多接口自检代码,传给你肯定没法运行的,而如今快过年了,我正在做回家的准备,挺忙。年后吧,我把所有代码传上来,希望到时各位兄弟姐妹帮我改进改进。
OICQ:5043160
Email:[email protected]
用 C++Builder 开发的 GAME 速度快不快 ??? 但说无妨!!!
Dim intFile
intFile = FreeFile()
------------
其实应该使用WINSOCK,对联接的保持,传输接收的先后次序和加密问题,WINSOCK已经封装了。