有一個位元組陣列，一共40000個位元組，通過UDP協議發送的時候，分成40個包，每個包1000個位元組，每個包之前加上24個位元組的包頭，也就是每個包包含有1024個位元組。包頭前面的18個位元組都是固定不變的，第19個位元組表示的是單組的總報數，這個也是固定不變的，是40；第20個位元組是表示的此包所處的位置是40個包中的第幾個，后面的四個位元組是表示的大回圈，表示的是發送的是第幾個40000個位元組，或者可以理解成發送的第幾個40個包，因為40個包是一次采集的資料，判斷完后要將這40個包放在一個陣列里面，謝謝！
uj5u.com熱心網友回復：
這個說“包頭”不太合適，和udp資料包的包頭存在歧義，可以稱它為data部分的頭部，處理起來不是很繁瑣。你可以參考一下：定義type : datPak，給它添加成員 index(int)代表本包在本組資料的id，PakCount (int)代表本組資料總包數，databyte()代表截掉data頭部的本組資料
根據第一個包，獲取該組的總包數，設定該長度的datPak陣列，然后讀出該包的id填充到相應的datPak里
以后每一個包也讀出包id并分別填充到相應datPak里
最后用for回圈拼接。
不知道你的發包頻率如何，是不斷有40000位元組在發送呢，還是隔段時間才發一個40000。如果是前者，不同批次的包會相互干擾，還需要調整一下包結構，為這批40000位元組的包設定一個批次號（例如生成時間），以便區分；如果是隔段時間才會發送一個40000位元組，那就沒關系，不會有干擾。
uj5u.com熱心網友回復：
關于發包的頻率是一直再發，換句話講就是接受的時候有可能不是從第一個包接受，而是從其他的包接受。這個時候就要把這些包丟掉，直接從下一個回圈開始收。能不能給個例子參考下，你的意思我大概明白，但是無從下手啊。uj5u.com熱心網友回復：
亂序不需要丟棄包。否則也不用切割40000位元組的資料，直接發就行。只有收不到所有包的時候，才需要丟棄包。如果條件允許，最好是把包的資料定義調整一下，帶上資料批次。你直接說你什么地方遇到問題了吧
uj5u.com熱心網友回復：
UDP 收包好像是可以無序的。所以你分包資訊應該是帶上這些資訊：
大包的ID，避免多組資料混起來。
總長度，收到第一個子包可以用來創建資料陣列。
分包數，收到第一個子包可以用來創建一個Boolean陣列。
分包號，Boolean陣列的下標，用來標記哪個子包已經收到。
其實索引，就是資料陣列的下標，用來填充到陣列的起始位置。
資料長度。
每個子包處理完后檢查一下Boolean陣列，全收到了就可以輸出資料陣列了。
uj5u.com熱心網友回復：
這么垃圾的回答 受不了
uj5u.com熱心網友回復：
DATAARRAVAL事件中p1=d0(18)*500 ‘d0（18）是包頭中第19個位元組，其值表示的是現在是40個包中的第幾個包
for i=0 to 499
d(p1+i)=d0(24+i*2)*256+d0(24+i*2+1) ‘兩個位元組一個點，40個包除掉包頭，一共是40000的位元組，一共20000個點放在一個d()陣列里面
現在的問題是，如果DATAARRAVAL事件中接受的包不是從第一個包開始接受，而是從40個包中第20個包接受，那么d()這個陣列存盤的前10000個點是下一回圈發送40個包中的前20個包，而后10000個點是當前回圈中的后40個包，所以就是如何判斷這四十個包是否是一個回圈里面的40個包
uj5u.com熱心網友回復：
因為你的資料有結構上的設計缺陷，所以無解，解決方案參考前面的說明uj5u.com熱心網友回復：
看不懂不是錯。把正確的方法當垃圾就是人有問題！
uj5u.com熱心網友回復：
'有一個位元組陣列，一共40000個位元組，通過UDP協議發送的時候，分成40個包，每個包1000個位元組，
'每個包之前加上24個位元組的包頭，也就是每個包包含有1024個位元組。包頭前面的18個位元組都是固
'定不變的，第19個位元組表示的是單組的總報數，這個也是固定不變的，是40；第20個位元組是表示
'的此包所處的位置是40個包中的第幾個(0..39)，后面的四個位元組是表示的大回圈，表示的是發送的是第
'幾個40000個位元組，或者可以理解成發送的第幾個40個包，因為40個包是一次采集的資料，判斷完
'后要將這40個包放在一個陣列里面
'全域變數
Dim Pack(0 to 1023) as Byte
Dim Data(0 to 39999) as Byte
Dim Received(0 to 39) as Boolean
Dim L as Long
Dim i as Long
'收包處理：
WinSock1.GetData Pack, vbArray + vbByte, 1024
L=Clng(Pack(19)) mod 40
Debug.Print "收到第"+CStr(L)+"個包"
Received(L)=True
L=L*1000
for i=0 to 999
Data(L+i)=Pack(24+i)
next
for i=0 to 39
if not Received(i) then exit for
next
if i>39 then
Debug.Print "所有40個包都已收到且放在Data陣列中"
endif
uj5u.com熱心網友回復：
'全域變數
Dim Pack(0 to 1023) as Byte
Dim Data(0 to 39999) as Byte
Dim Received(0 to 39) as Boolean
Dim L as Long
Dim i as Long
'收包處理：
WinSock1.GetData Pack, vbArray + vbByte, 1024
L=Clng(Pack(19)) mod 40
Debug.Print "收到第"+CStr(L)+"個包"
Received(L)=True
L=L*1000
for i=0 to 999
Data(L+i)=Pack(24+i)
next
for i=0 to 39
if not Received(i) then exit for
next
if i>39 then
Debug.Print "所有40個包都已收到且放在Data陣列中"
endif
[/code]
如果接受的時候是從第20個包開始，那該怎么辦，此時Data陣列中前面的資料是后一個回圈的40個包中的前20個包，后面的資料是當前回圈的后20個包的資料
uj5u.com熱心網友回復：
用結構體能更靈活地處理這個問題，不然的話，需要用二維陣列。你還是再優化一下代碼吧。思路是別人的，代碼總得是你自己的吧？而且最大的問題已經和你說了，不同批次的資料干擾你沒有處理。把握好問題的關鍵點，先想再去做
uj5u.com熱心網友回復：
'有一個位元組陣列，一共40000個位元組，通過UDP協議發送的時候，分成40個包，每個包1000個位元組，
'每個包之前加上24個位元組的包頭，也就是每個包包含有1024個位元組。包頭前面的18個位元組都是固
'定不變的，第19個位元組表示的是單組的總報數，這個也是固定不變的，是40；第20個位元組是表示
'的此包所處的位置是40個包中的第幾個(0..39)，后面的四個位元組是表示的大回圈，表示的是發送的是第
'幾個40000個位元組，或者可以理解成發送的第幾個40個包，因為40個包是一次采集的資料，判斷完
'后要將這40個包放在一個陣列里面
'全域變數
Const MAXN as long=1000 '最多收MAXN個
Dim Pack(0 to 1023) as Byte
Dim Data(0 to MAXN-1,0 to 39999) as Byte
Dim Received(0 to MAXN-1,0 to 39) as Boolean
Dim P As Long
Dim L as Long
Dim i as Long
'收包處理：
WinSock1.GetData Pack, vbArray + vbByte, 1024
L=Clng(Pack(19)) mod 40
P=(1&*Pack(20)+256&*Pack(21)+65536&*Pack(22)+16777216&*Pack(23)) mod MAXN '先低位元組后高位元組存盤
Debug.Print "收到"+CStr(P)+"的第"+CStr(L)+"個包"
Received(P,L)=True
L=L*1000
for i=0 to 999
Data(P,L+i)=Pack(24+i)
next
for i=0 to 39
if not Received(P,i) then exit for
next
if i>39 then
Debug.Print CStr(P)+"的所有40個包都已收到且放在Data("+CStr(P)+",0 to 39999)陣列中"
endif
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/108046.html
標籤：網絡編程
上一篇：問題，如圖所示