【已解决】 UDP发送一张图片到服务端如何保存
本帖最后由 261869247 于 2010-7-27 23:32 编辑服务端UDPStartup()
$socket = UDPBind("127.0.0.1", 12345)
If @error <> 0 Then Exit
While 1
$data = UDPRecv($socket, 1024 * 1000, 1)
If $data <> "" Then
MsgBox(0, "UDP 数据", $data, 1)
$data = BinaryToString($data, 4);增加:将二进制数据转换成字符
$aSplit = StringSplit($data, " ")
EndIf
WEnd发送端; 客户端
UDPStartup()
$socket = UDPOpen("127.0.0.1", 12345)
UDPSend($socket,StringToBinary ("1.jpg",4)) 时不时来看看 {:face (229):} 将文件以二进制分块发送, 我总是不会活用 TCPSend()? 本帖最后由 261869247 于 2010-7-27 08:36 编辑
恩U 楼上大哥你看UDP怎么弄 刚刚修改了下代码服务端已经能接收到2进制数据了 不知道怎么保存到服务器某个目录(d:\123\这样) 期待中 帖子不能沉! 都快沉了 !! 对这方面比较精通的几位坛友貌似还没上线… 记得好像那个“24”头像的对此有研究 哈哈 那我在线等! 继续等待! 很简单的,我做过,这是我强制同步SQL的图片的代码Func _UpdatePic();上传图片
$aa=_GUICtrlListView_GetItemTextArray($ListView2, -1)
FileDelete ( $ScriptDir&"\Photo\"&$aa )
$read = ReabTableDb($conn, "SELECT Photo FROM StockImage WHERE Ids = '" & $aa & "'")
$file=FileOpen( $ScriptDir&"\Photo\"&$aa, 2+8+16)
FileWrite ($file,$read)
FileClose($file)
GUICtrlSetImage ($Pic1,$ScriptDir&"\Photo\"&$aa)
EndFunc 本帖最后由 261869247 于 2010-7-27 16:46 编辑
要怎么把获取到的2进制字符转换成图片 等待神的出现!
页:
[1]
2