TO：zw84611;我发现了一点不知道是不是这里的原因。
定义个结构：
Type
TDataFormat=packed record
a:Byte;
b:Byte;
c:array[0..1] of byte;
d:array [0..512] of char;
end;
然后开始：
var
tmp:TDataFormat;
tmp1:TMemoryStream;
str:string;
i:integer;
begin
str:='abcdefghdsddddddddddddddddddddddddddddd';
with tmp do
begin
a:=$30;
b:=1;
c[0]:=0;
c[1]:=Length(str);
for i:=0 to 10 do
Stream:=(str[i+1]);
end;
str:=inttostr(tmp.Head)+inttostr(tmp.SerNumber)+tmp.stream;
tmp1:=TMemoryStream.Create;
//*******************************************//
tmp1.WriteBuffer(tmp,sizeof(tmp)) ;
//*******************************************//
FSockAddrIn.SIn_Addr.S_addr := inet_addr(PChar('172.18.16.1')); ;
FSockAddrIn.SIn_Port := htons(strtoint('8888'));
sendto(sock, tmp1.memory^, tmp1.Size, 0, FSockAddrIn, sizeof(FSockAddrIn));
tmp1.Free;
end;
当我运行后，在服务端获得我发出去的包没有IP/PORT。
但是我改成这样不发送结构，发送一个字符串就没问题（而且不管多长，当然了不能朝过STRING的长度）。
tmp1:=TMemoryStream.Create;
//*******************************************//
tmp1.Write(str[1],sizeof(str)) ;
//*******************************************//
FSockAddrIn.SIn_Addr.S_addr := inet_addr(PChar('172.18.16.1')); ;
FSockAddrIn.SIn_Port := htons(strtoint('8888'));
sendto(sock, tmp1.memory^, tmp1.Size, 0, FSockAddrIn, sizeof(FSockAddrIn));
是不是关于流在写入一个结构的时候的问题呀，
userIP,port,0);