📄 5515.html
字号:
<html>
<head>
<title>Re: 利用winsocket互传档案的问题</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 利用winsocket互传档案的问题</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:th4005@mail.intonet.net.tw">老怪</a> on September 10, 1998 at 23:32:41:<p>
In Reply to: <a href="5354.html">利用winsocket互传档案的问题</a> posted by 阿信 on September 07, 1998 at 14:54:24:<p>
: 我目前想利用两个winsock互(or单向)传档(ex:aa.bmp),<br>: 但是在开档之后(以binary mode开档),读出来的资料要以<br>: 何种格式储存在阵列?储存之后要如何送出(senddata?)<p>: 如蒙赐教,感激不尽力!!!<p>A.送二进位档案：<br>Dim FileHandle As Integer<br>Dim SendBuff() As Byte<br> FileHandle = FreeFile<br> Open "YourFilePathAndName" For Binary As #FileHandle<br> ReDim SendBuff(LOF(FileHandle) - 1)<br> Get #FileHandle, , SendBuff<br> Winsock1.SendData SendBuff<p>B.送二进位字串：<br>Dim SendBuff() As Byte<br>Dim SendString As String<br> SendString = "利用 WinSock.SendData 二进位方式送字串"<br> ReDim SendBuff(LenB(StrConv(SendString, vbFromUnicode)) - 1)<br> SendBuff = SendString<br> Winsock1.SendData SendBuff<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5515-->
</ul><!--end: 5515-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -