20567.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 35 行

HTML
35 行
字号 
<html>  <head>    <title>关于winsock传二进制档案..</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>关于winsock传二进制档案..</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:chaojen2@ms38.hinet.net">Buier</a> on October 24, 1999 at 02:39:03:<p>请问各位高手,小弟想要透过winsock在网路中传送档案,但是遇到了一个<br>很奇怪的难题..试了好几个晚上,从原本大的执行档传送到最后自己开纯<br>文字档几byte 的传送都会遇到问题..<br>其中有几个疑问的地方,用winsock传资料时是不是要在当中加上延迟??<br>程式中是以msgbox 来延迟的.因为如果不加的话资料收的更乱七八糟..<br>会的高手请您花一点时间会小弟解惑吧..<p>p.s 子琏兄如果你有看到的话请你帮忙小弟一下,赫密斯软体真的写的很<br>棒.<p>'两个winsock 传资料的主要程式片断<p>Dim Arry(10000) As Byte, Cnt As Double<br>'这里是传送部分的程式片断<br>Private Sub Command1_Click()<br>    Dim T As Byte, T1 As Double<br>    Open "C:\1.txt" For Binary Access Read As #1<br>        For T1 = 1 To FileLen("C:\1.txt")<br>            Get #1, , T<br>            A = DoEvents()<br>            MsgBox "Server:" + Str$(T)<br>            sckSer.SendData T<br>        Next<br>    Close<br>    MsgBox "Send Over"<br>End Sub<br>'这里是接收部分的片段<br>Private Sub sckSer_ConnectionRequest(ByVal requestID As Long)<br>    sckSer.Close<br>    sckSer.Accept requestID<br>End Sub<br>'存档,放至 Arry() as byte<br>Private Sub Command4_Click()<br>    Dim T1 As Double<br>    Open "C:\2.txt" For Binary Access Write As #2<br>        For T1 = 0 To Cnt<br>            Put #2, , Arry(T1)<br>            A = DoEvents()<br>        Next<br>    Close #2<br>    MsgBox "Saved"<br>End Sub<br><br><ul><li><a href="http://netcity3.web.hinet.net/UserData/chaojen2/">VB心得交流网</a></ul><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20567--><!--top: 20664--><li><a href="20664.html">Re: 关于winsock传二进制档案..</a> <b>琏琏</b> <i>17:57:44 10/26/99</i>(<!--responses: 20664-->0)<ul><!--insert: 20664--></ul><!--end: 20664--><!--top: 20591--><li><a href="20591.html">你程式有漏给吧!</a> <b>小吴</b> <i>22:23:57 10/24/99</i>(<!--responses: 20591-->1)<ul><!--insert: 20591--><!--top: 20596--><li><a href="20596.html">Re: 我重新post, 发现了新的问题了..</a> <b>Buier</b> <i>04:38:28 10/25/99</i>(<!--responses: 20596-->0)<ul><!--insert: 20596--></ul><!--end: 20596--></ul><!--end: 20591--></ul><!--end: 20567--><br><hr size=7 width=75%><p></body></html>

20567.html - 源码说明

本页面展示了「VB技巧问答10000例 VB技巧问答10000例」中的 20567.html 源码文件，采用 HTML 编程语言编写，共 35 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?