如何对一个无类型的数据报进行分组与重组(200分)

eire · 2006-03-05

例:  接收到一个pointer 类型数据报(const pData

ointer;cbDatasize:integer)  分割成自定义大小的包并在包中加入自定义信息例顺序号ID,在收到这些包后根据加入的ID进行重组.

hsgrass · 2006-03-05

record型达不到你的要求吗？ type  ptest = ^ttest;  Ttest = record    id: integer;    data: string[233];  end;  pTestList = array of ptest;

eire · 2006-03-05

hsgrass多谢你的回答,这个pData是从VC调用方传来的数据,类型未知,pData 如何转到record类型,并可成功的组包呢. ptest = ^ttest;  Ttest = record    id: integer;    data:

pointer;

点击展开...

  end;

hsgrass · 2006-03-05

知道长度就可以啦，你认为它是什么类型就是什么类型，如char, byte, integer.... var rdata: integer; rchar: char; rArrChar: array[0..9] of char; s: string; data: pointer; // 如果是字数(integer),那么这就指向整数，字符就指向字符。 begin  rdata := 12345678;  data := @rdata;  showmessage(inttostr(pinteger(data)^));  rchar := 'A';  data := @rchar;  showmessage(pchar(data)^);  StrCopy(rArrChar, 'abcdefghi');  data := @rArrChar;  s := pchar(data);  showmessage(s); end;

阿九 · 2006-03-05

学习。

eire · 2006-03-06

"你可以自己定义一个协议呀. 用个池做等待给每个协议一个握手. 如果太长就重发. 收到后进行合并. 根据一组ID进行合并. 就行了呀. " 上面是一个叫微程的朋友说的,觉得很有道理,有做过的朋友吗?给点资料?(我才接触网络编程是新手)

putianren · 2006-03-07

wuwengaoshou · 2006-03-07

分包就得得组包 网络数据有可能分包到达 所以最好加上包长度等标识 这样包的出错机率才会减小

zhlfdm · 2006-03-07

太多东西要学了。。。。有点乱。。。。。

baiduan · 2006-03-07

tcp要分可以理解，udp需要分吗？

eire · 2006-03-07

to baiduan,那如何避免UDP传送中丢包以及接收包顺序问题呢?

wanghongyong · 2006-03-07

要学习，收藏

eire · 2006-03-07

Java数据报之失序和丢包 -------------------------------------------------------------------------------- 2005-08-29  点击:564  来源:CSDN  作者:keepeye   习惯了TCP编程，认为UDP可以包办这些问题是错误的。一个UDP应用程序要承担可靠性方面的全部工作，包括报文的丢失、重复、时延、乱序以及连接失效等问题。 通常我们在可靠性好，传输时延小的局域网上开发测试，一些问题不容易暴露，但在大型互联网上却会出现错误。 UDP协议把递送的可靠性责任推到了上层即应用层，下面简单编写了几个类来专门处理两个问题：乱序和丢包。

eire · 2006-03-07

udp协议是1种无连接的协议，他和tcp协议比较有传输速度快，占用资源少的问题。 但是由于udp协议本身没有自动找包的功能，因此经常会出现丢包的现象，会造成传送的文件丢包的现象 因为时间匆忙和水平有限，本人在效率上没有作优化，只是简单的实现，请大家自己看源码吧 注释： 主要功能：把文件猜成4k大小的包在包头+上包的长度接受了1个包判断长度是否和接受的长度相符如果 符合那么就继续发，如果出现丢包那么就从发 希望大家有什么好的建议通知我，我会尽量完善的 Option Explicit ''''============================================== ''''=============================== ''''udp传文件 ''''客户端 ''''作者: 影子 ''''================================ ''''============================================== Dim FileNumber As Integer ''''用来存文件的句柄 Dim LenFile As Long ''''文件的长度 Private Sub Command2_Click() closefile End Sub Private Sub Form_Load() Winsock0.LocalPort = 5698 Winsock0.Bind beginfile End Sub Private Sub Winsock0_DataArrival(ByVal bytesTotal As Long) Dim FileByte() As Byte Winsock0.GetData FileByte, vbArray + vbByte ''''接收类型为:字节数组 Dim mendByte() As Byte, i As Long, j As Long Dim temp As String, temp1 As String ''''获得包长 j = UBound(FileByte) ''''合并包头  For i = 0 To 7 Step 2        temp = temp & Chr(FileByte(i))  Next ''''比较长度看丢包没有 If Val(temp) = j Then    ReDim mendByte(j - 8) ''''    提出包头        For i = 0 To j - 8            mendByte(i) = FileByte(i + 7)        Next ''''        写文件    Put #FileNumber, , mendByte ''''    发送继续发送的请求    frmmain.Winsock0.SendData "ok" Else ''''出现丢包，请求重发    frmmain.Winsock0.SendData "no" End If End Sub Public Sub beginfile() FileNumber = FreeFile ''''取得未使用的文件号 Open "c:/aaa.exe" For Binary As #FileNumber ''''打开文件 End Sub Public Sub closefile() ''''关闭文件句柄     Close #FileNumber End Sub Option Explicit Dim GetFileNum As Integer Dim LenFile As Long Dim Sendbaye() As Byte ''''发送的包 ''''=============================== ''''udp传文件 ''''作者: 影子 ''''服务器端 ''''================================ Private Sub Command1_Click()        GetFileNum = FreeFile ''''取得未使用的文件号        LenFile = FileLen("d:/aa.rar&quot

''''获得需传送的文件的长度        Open "d:/aa.rar" For Binary As #GetFileNum ''''打开需传送的文件        Command1.Enabled = False ''''        传送文件        Call TCPSendFile(frmmain.Winsock0, GetFileNum, SplitFile)        Text1.Text = Now End Sub Private Sub Form_Load() frmmain.Winsock0.RemoteHost = "192.168.0.12" ''''服务器ip frmmain.Winsock0.RemotePort = 5698 End Sub ''''========================================================================= ''''为了清晰,下面分别用两个子过程来完成计算这次还可以传多少个字节的数据和传送数据 ''''========================================================================== Private Function SplitFile() As Long ''''拆包        On Error Resume Next        Dim GetCount As Long        ''''计算出这次可发送的字节数        If LenFile >= 4000 Then        GetCount = 4000        LenFile = LenFile - GetCount        Else        GetCount = LenFile        LenFile = LenFile - GetCount        End If        SplitFile = GetCount End Function Private Sub TCPSendFile(objWinSock As Winsock, FileNumber As Integer, SendLen As Long)        Dim FileByte() As Byte, i As Long, j As Long        Dim temp As String        ReDim Sendbaye(0)                Dim tempa As String * 4        ReDim FileByte(SendLen - 1)        tempa = SendLen + 7        Sendbaye = tempa '''' 把长度负值给包头        Get #FileNumber, , FileByte ''''读取文件        ReDim Preserve Sendbaye(SendLen + 7) ''''把包头+到文件头        For i = 0 To UBound(FileByte)            Sendbaye(i + 7) = FileByte(i)        Next        frmmain.Winsock0.SendData Sendbaye End Sub Private Sub Winsock0_DataArrival(ByVal bytesTotal As Long) Dim str As String frmmain.Winsock0.GetData str Select Case str Case "ok" ''''成功继续发送        If LenFile = 0 Then ''''发送完成            MsgBox "成功"            Exit Sub        End If       Call TCPSendFile(frmmain.Winsock0, GetFileNum, SplitFile) Case "no" ''''不成功重发上一个包        frmmain.Winsock0.SendData Sendbaye End Select End Sub

eire · 2006-03-07

上面VB对包的无序没作处理

寻路 · 2006-03-09

我觉得用UDP协议做软件有可能需要自己增加安全性，但是TCP应该是不需要的，因为在其它层（不记得了，好象是IP层）已经做了这部分的工作。不知道你的软件是使用的什么协议？网络编程其实还是有一些难度的，一些细节，如果你不清楚会有很多问题。期待高手的做答！

iamy · 2006-03-10

你管它是什么类型的 它就是二进制流 把它分成块 放进你自己定义的机构体里面好了

jingtao · 2006-03-11

如果是TCP协议的话,看是什么层了. 如果物理帧,需要自己写TCP协议栈.不过WINSOCK.PAS有个地方定义有错误 ntohl函数定义错误 解决:在单元里面自己重新定义 const  winsocket = 'wsock32.dll'; function ntohl(netlong: DWORD): DWORD; stdcall; external winsocket name 'ntohl'; //注意

elphi本身的定义错误 不要小看这个定义.有一次做Tcp协议栈的时候: if TcpCache.affirm > ntohl(pTcpPacket^.tcphdr.th_seq) then begin //确认过了,表示是重发数据包 StrPCopy(cTemp,Format('%s重发数据包(%s),No=%d,seq=%u,ack=%u',HeadMsg,FlagName,i,ntohl(pTcpPacket^.tcphdr.th_ack),ntohl(pTcpPacket^.tcphdr.th_seq)])); 就是因为这个定义让我调试了差不多一天时间.从头到尾检查了几次那庞大的代码, 逻辑都是正确的,最后才发现是这里出问题了.

jingtao · 2006-03-11

不过TCP包只会存在重发包和乱序包,不会存在丢弃包.

eire · 2006-03-13

jingtao大侠:   如何在接收方请求重发未收到的包,在发送方如何接收,定位,并重发?

如何对一个无类型的数据报进行分组与重组(200分)

eire

Unregistered / Unconfirmed

hsgrass

Unregistered / Unconfirmed

eire

Unregistered / Unconfirmed

hsgrass

Unregistered / Unconfirmed

阿九

Unregistered / Unconfirmed

eire

Unregistered / Unconfirmed

putianren

Unregistered / Unconfirmed

wuwengaoshou

Unregistered / Unconfirmed

zhlfdm

Unregistered / Unconfirmed

baiduan

Unregistered / Unconfirmed

eire

Unregistered / Unconfirmed

wanghongyong

Unregistered / Unconfirmed

eire

Unregistered / Unconfirmed

eire

Unregistered / Unconfirmed

eire

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

iamy

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

eire

Unregistered / Unconfirmed

Similar threads