图片处理

xayzmb 2003-10-16 02:49:16
谁有用winsock控件传送图片文件的代码?
请贴一下
多谢!!!!!

另外帮忙看看我的代码问题出在哪里?

服务器代码:************************************************
Option Explicit
Private wskI As Long

Private Sub Form_Load()
wskI = 0
wskS(0).Protocol = sckTCPProtocol
wskS(0).LocalPort = 8000
wskS(0).Listen
End Sub

Private Sub wskS_ConnectionRequest(Index As Integer, ByVal requestID As Long)
wskI = wskI + 1
Load wskS(wskI)
wskS(wskI).Accept requestID
End Sub


Private Sub wskS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim receivefile() As Byte
Dim lenth As Single
Dim i As Long
ReDim receivefile(1 To bytesTotal)

wskS(Index).GetData receivefile, vbArray + vbByte

Open App.Path & "\1.jpg" For Binary As #1
Put #1, lenth + 1, receivefile
Close #1

lenth = lenth + UBound(receivefile) - LBound(receivefile) + 1


End Sub
******************************************************************

客户端代码:******************************************************
Option Explicit

Private Sub cmdCMD_Click()
Dim myfile() As Byte
Dim position As Long
Dim FileName As String

FileName = App.Path & "\1.jpg"
position = FileLen(FileName)
ReDim myfile(position - 1) As Byte

Open FileName For Binary As #1
Get #1, , myfile
Close #1

wskC.SendData myfile

End Sub

Private Sub Form_Load()
wskC.RemoteHost = "192.168.0.100"
wskC.RemotePort = 8000
wskC.Connect
End Sub
*****************************************************************
这两段代码可以向服务器送过去一个文件
但打开却什么也看不到
为什么?
...全文
69 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
daviddivad 2003-10-16
  • 打赏
  • 举报
回复
我就是这样处理的
daviddivad 2003-10-16
  • 打赏
  • 举报
回复
邮件已发出,请查收。

欢迎提提意见。
xayzmb 2003-10-16
  • 打赏
  • 举报
回复
请问: daviddivad(你真行,居然比我还快! Scorpio)

如果先将图片读成二进制文件
再把文件分割装入一个数组
然后分数次将数组发出
到接收方再把数组合成一个文件
这样处理行吗?
xayzmb 2003-10-16
  • 打赏
  • 举报
回复
xaxzh@163.com
多谢daviddivad(你真行,居然比我还快! Scorpio)
xayzmb 2003-10-16
  • 打赏
  • 举报
回复
自己顶一下.
daviddivad 2003-10-16
  • 打赏
  • 举报
回复
我自己有写过一个用WINSOCK传送文件的控件,要的话,留MAIL

你的问题可能出现在:WINSOCK每次传送是有大小的,好象最多是8092字节

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧