📄 20596.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<html>  <head>    <title>Re: 我重新post, 发现了新的问题了..</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: 我重新post, 发现了新的问题了..</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 25, 1999 at 04:38:28:<p>In Reply to: <a href="20591.html">你程式有漏给吧!</a> posted by 小吴 on October 24, 1999 at 22:23:57:<p>: 你 POST 上来的程式漏了最重要的 DataArrival 事件，这样谁能帮你找问题呀!?<br>真的吗,sorry...我重新post 一次..<br>其中sleep 放在module中,我又有新的问题了..以下程<br>式应该可以作拷贝的动作,虽然很慢..一次一位元的传<br>,但是有一个很奇怪的地方.如果送资料的时候没有加上<br>延迟(sleep)的话,那接收到的资料就会乱七八遭的..??<br>还有在tcp/ip的传输模式下以前记得老师说过好像一次<br>最大可以传 1518byte?  谢谢大家肯花时间帮忙喽..^^<p>Dim Arry(10000) As Byte, Cnt As Double<br>Private Sub Command1_Click()<br>    Dim T As Byte, T1 As Double<br>    Open "C:\1.htm" For Binary Access Read As #1<br>        MsgBox FileLen("C:\1.txt")<br>        For T1 = 1 To FileLen("C:\1.htm")<br>            Get #1, , T<br>            'MsgBox "Server:" + Str$(T)<br>            sckSer.SendData T<br>            Module1.Sleep (300)<br>            A = DoEvents()<br>        Next<br>    Close<br>    MsgBox "Send Over"<br>End Sub<p>Private Sub Command2_Click()<br>    sckCli.Connect Text1.Text<br>End Sub<p>Private Sub Command3_Click()<br>    sckCli.Close<br>    sckSer.Close<br>    sckSer.Listen<br>    Form1.Caption = "No Connected"<br>End Sub<p>Private Sub Command4_Click()<br>    Dim T1 As Double<br>    Open "C:\2.htm" For Binary Access Write As #2<br>        For T1 = 0 To Cnt - 1<br>            Put #2, , Arry(T1)<br>            A = DoEvents()<br>        Next<br>    Close #2<br>    MsgBox "Saved"<br>End Sub<p>Private Sub Form_Load()<br>    sckSer.Listen<br>End Sub<p>Private Sub sckCli_Connect()<br>    If sckCli.State = 7 Then Form1.Caption = "Connected"<br>End Sub<p>Private Sub sckCli_DataArrival(ByVal bytesTotal As Long)<br>    Dim T As Byte<br>    sckCli.GetData T, vbByte<br>    Arry(Cnt) = T<br>    Cnt = Cnt + 1<br>End Sub<p>Private Sub sckSer_ConnectionRequest(ByVal requestID As Long)<br>    sckSer.Close<br>    sckSer.Accept requestID<br>End Sub<p><p><p><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: 20596--></ul><!--end: 20596--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明

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