找回密码
 加入
搜索
查看: 5190|回复: 16

[AU3基础] 字符串如何分割成两段指定字符数的二进制数据,又如何转回这段字符串?【已解决】

  [复制链接]
发表于 2017-8-17 03:25:45 | 显示全部楼层 |阅读模式
本帖最后由 fenhanxue 于 2017-8-22 02:31 编辑
问题背景:
TCPRecv ( 主套接字  ,   最大返回量  [, 标志]  )
有最大返回量的限制,假设这个最大返回量为 $max
假设发送端电脑要发送一段中英文混杂文本$text 到接收端电脑,那么分两种情况


1)文本 $text 的长度 <= $max
        这种情况我知道可以这样写代码:
        1.1)发送端
        TCPSend(主套接字,StringToBinary($text,2))
        1.2)接收端
        $receive = TCPRecv (主套接字,$max,1)
        $receive = BinaryToString($receive,2)
        这样接收端就可以最终收到完整的$text
        
        
        
2)文本 $text 的长度 > $max 
        这种情况下不知道具体应该如何对$text 进行二进制分割
        假设此时:
        2* $max        >  $text 的长度 > $max
        
        那么也就意味着发送端需要发送两次二进制数据
                第一次:TCPSend(主套接字,$data_1)        ($data_1 的长度 = $max)
                第二次:TCPSend(主套接字,$data_2)        ($data_2 的长度 = $text 的长度 -  $max)
                这里的        $data_1 和 $data_2 具体应该怎么运算得到?
        然后此时接收端也要收两次二进制数据才行
                第一次:$receive_1 = TCPRecv (主套接字,$max,1)
                第二次:$receive_2 = TCPRecv (主套接字,$max,1)
                这里的$receive_1 和 :$receive_2 又应该如何转变回 $text ?
发表于 2017-8-17 11:14:43 | 显示全部楼层
换个思路,定义二个控制字符,约定chr(1)为发送字符串开始,chr(2)为发送结束.客户端接收到chr(1),认为是字符串的开始,收到chr(2),认为发送结束,转换chr(1)与chr(2)之间的二进制数据即可
 楼主| 发表于 2017-8-17 13:59:23 | 显示全部楼层
回复 2# tubaba
;假设最大返回量为9个字节
$max = 9
;假设一段文本 $text 的长度在 9 到18之间
$text
;那么这段代码是否有问题:
Local $binary = StringToBinary($text,2)
;二进制分成两部分:
$binary_1 = BinaryMid($binary,1,$max)
$binary_2 = BinaryMid($binary,1+$max)
;发送端发送两次,分别为:
                TCPSend(主套接字,$binary_1)  ;第一次
                TCPSend(主套接字,$binary_2)  ;第二次
;接收端接受两次,分别为:
        $receive_1 = TCPRecv (主套接字,$max,1) ;第一次
                $receive_2 = TCPRecv (主套接字,$max,1) ;第二次
                ;接收端完整收到的信息为:
                BinaryToString($receive_1&$receive_2,2)
发表于 2017-8-17 15:11:19 | 显示全部楼层
本帖最后由 tubaba 于 2017-8-17 15:12 编辑

存在一个数据类型转换问题,定义收到04即接收完成
Func _TCPRecv()
        Local $recv, $string = ''
        While 1
                $recv = TCPRecv($ConnectedSocket, 9, 1)
                If ($recv = '' And (Not @error)) Or @error Then ExitLoop
                If $recv <> '' Then
                        $string &= StringRegExpReplace($recv, '(?:0x)(.+)', '$1')
                        If StringRight($string, 2) == '04' Then ExitLoop
                EndIf
        WEnd
;~         $string= BinaryToString('0x' & $string, 4)
        If StringRight($string, 2) == '04' Then
                $string = BinaryToString('0x' & StringTrimRight($string, 2), 4)
        Else
                $string = BinaryToString('0x' & $string, 4)
        EndIf
        If $string = '' Then Return SetError(1, 0, $string)
;~         FileWrite('out1.txt',$string)
        Return SetError(0, 0, $string)
EndFunc   ;==>_TCPRecv
 楼主| 发表于 2017-8-17 17:13:39 | 显示全部楼层
回复 4# tubaba

假设自定义收到的 $end = '04'  作为接收完成的标记,

有没有可能会遇到特殊情况:
某一段字符串 经过 stringtobinary 后,凑巧他的末尾两位 等于  $end ( '04' )?

那么这样的话,就会误判以为接收完成了。
有没什么字符串,是 stringtobinary 后绝对不会出现的?
发表于 2017-8-17 17:35:59 | 显示全部楼层
回复 5# fenhanxue


    我記得  範例有人有傳輸檔案的範例 中間好幾MB 都可以傳
所以理論上應該有處理這個的範例
发表于 2017-8-17 18:05:30 | 显示全部楼层
回复 6# kk_lee69


    抱歉,插楼。。。。。我看见你去官网问 大神 LarsJ。修改选定项颜色用很短的代码搞定了。。。请问,你能同时指定某列的颜色么?
发表于 2017-8-17 18:11:15 | 显示全部楼层
回复 7# yamakawa


    看來就是不行  你可以去看我 另外再發問的 .......

就是我怎麼測試都不行

只是我不能理解的是   官網的 是不用另外做GDI 然後再合併進去

我們之前的方式 似乎是另外的人的  是 畫了一個GDI 然後再合併進去

但是使用 官網的 那個方法 我的 複選框 功能失效
发表于 2017-8-17 18:18:15 | 显示全部楼层
回复 8# kk_lee69


    理论上,官网那个才是正宗的,因为用的是本来的数据结构,只是更改了某些参数,这个兼容性更好。但是我没找到资料$CDDS_ITEMPREPAINT之类的参数到底有什么关系,为什么有时候有些参数可以,有些不行,,,
  gdi那个是直接干掉原来现实的部分直接画上去。所以原来有的某些特性,比如复选框,就没有了。需要我们自己画
 楼主| 发表于 2017-8-17 18:18:19 | 显示全部楼层
本帖最后由 fenhanxue 于 2017-8-17 18:20 编辑

回复 6# kk_lee69


    可能是这个帖子:
http://autoitx.com/forum.php?mod ... =tcp%2B%CE%C4%BC%FE

  范例是档案传输 ,几个关键代码为
  发送端:
   FileOpen($hfile,16)
   While
           $data = FileRead($id,$max);不断循环读取指定长度的二进制数据
           If @error=-1 Then ExitLoop
           TCPSend($netid,$data)
   WEnd
接收端:
        $file = FileOpen ($hfile,16+1)
        While
                $receive = TCPRecv($ConnectedSocket,$max)
                If @error=-1 Then ExitLoop
                FileWrite($file,Binary($data))
        WEnd
我想传输的是程序里的一段长文本(假设为$text),而不是文件,所以需要对 $text 进行分割,而如何将这个 $text 变成二进制数据,并且按照指定的字符长度进行分割,原理不是很懂。

当然如果笨一点的办法,可以参考上面的范例这样写:
接收端:
先把 $text 写到一个txt档案里,然后套用上面的范例代码,读取这个档案,来发送。
接收的时候,也套用上面的代码,接收到一个txt档案里,然后再FileOpen ($hfile,0) 来读取这个txt档案
发表于 2017-8-17 18:58:59 | 显示全部楼层
回复 8# kk_lee69


我这边的测试效果好搞笑

好像没有更新?!要点一下其他行才会变化

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2017-8-17 19:34:24 | 显示全部楼层
本帖最后由 yamakawa 于 2017-8-17 19:35 编辑

回复 8# kk_lee69


    好像可以了。。。。。

修改$NM_CLICK消息为
                                Case $NM_CLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
                                        Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                                        Local $Index = DllStructGetData($tInfo, "Index"), _
                                                        $X = DllStructGetData($tInfo, "X")
                                
                                        If $X < 18 Then ;使用x坐标来判断是否在复选框上点击
                                                If $aShowdata2[$Index][3] = 4096 Then
                                                        $aShowdata2[$Index][3] = 8192 ;4096未选中 8192选中
                                                Else
                                                        $aShowdata2[$Index][3] = 4096 ;4096未选中 8192选中
                                                EndIf
                                        EndIf
                                        Local $Info = DllStructCreate($tagNMLVDISPINFO, $ilParam)

                                        DllStructSetData($Info, "State", $aShowdata2[$Index][3]) ;设置复选框状态
                                        _GUICtrlListView_RedrawItems($hWndFrom, $Index, $Index);<====好像可以了。。。。复选框正常
现在我的问题是。。不知道怎么可以单独设置某个列的颜色。。。原来那个代码好像不起作用了。。好奇怪
发表于 2017-8-17 19:46:22 | 显示全部楼层
回复 10# fenhanxue


    抱歉,楼主,在你的帖子插楼。。。
我想传输的是程序里的一段长文本(假设为$text),而不是文件,所以需要对 $text 进行分割,而如何将这个 $text 变成二进制数据,并且按照指定的字符长度进行分割,原理不是很懂


这个的话,可以先用StringToBinary转换成二进制数据,然后BinaryLen可以获取字节数,然后根据字节数进行判断,分解成小于max的数据,用BinaryMid(提取二进制变量的若干字节.)
发表于 2017-8-17 20:08:43 | 显示全部楼层
回复 13# yamakawa


    另外。。tcpsend成功的话,会返回成功发送的字节数,可以把这个当参数传递给下一次传输。例如这次传输了2048个字节,那么下次binarymid就从2049开始
发表于 2017-8-17 20:14:08 | 显示全部楼层
本帖最后由 yamakawa 于 2017-8-17 20:22 编辑

回复 5# fenhanxue


    另外。4楼说的定义04就是接受完成的意思。一般来说。传输数据不会是04结尾的,但是如果实在怕不保险的话,

  你可以定义某个开始特征码和完成特征码。。
   第一次发送开始码,接收端收到后就知道下次开始是发送的多次信息,
然后全部发送完成后,发送端再发送完成码,接收端知道信息已经接收完毕了。那么就对之前接收到的数据进行合并,转换操作
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-24 09:55 , Processed in 0.275974 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表