来源：http://www.delphibbs.com/delphibbs/dispq.asp?lid=2190549

procedure TForm1.Button1Click(Sender: TObject);
type TDebugDL = record
   Parm1:String;
   Parm2:String;
   Parm3:String;
   Parm4:String;
   Parm5:String;
   Parm6:String;
   Parm7:String;
end;
var
   FSyn_Buf: array[0..2] of char;
   TheStream: TWinSocketStream;
   ClientSocket: TClientSocket;
   iPkglen: integer;
   iTotalPkg: Word;
   DebugDL: TDebugDL;
begin
DebugDL.Parm1:=Format('%-6s',['010200']);
DebugDL.Parm2:=Format('%-6s',['335615']);
DebugDL.Parm3:=Format('%-10s',['100120130']);
DebugDL.Parm4:=Format('%-8s',['']);
DebugDL.Parm5:=Format('%-2s',['']);
DebugDL.Parm6:=Format('%-2s',['02']);
DebugDL.Parm7:=Format('%-5s',['96528']);
FSyn_Buf[0] := #2;
FSyn_Buf[1] := #0;
FSyn_Buf[2] := #0;
iPkglen:= sizeof(DebugDL);                  //数据包长度
iTotalPkg:= htons(word(iPkglen));   <font color=red>(*为什么运行到这句要发生错误*)</font>
//建立连接
ClientSocket:= TClientSocket.Create(nil);
TheStream:= TWinSocketStream.Create(ClientSocket.Socket,6000);
ClientSocket.ClientType:= ctBlocking;
ClientSocket.Address:= '172.16.2.1';
ClientSocket.Port :=3000;
ClientSocket.Open;
TheStream.Write(FSyn_Buf,4);                 //发包头
TheStream.Write(iTotalPkg,2);                //发长度
//  TheStream.Write(htons(iTotalPkg),2);       //发内容
FillChar(Buffer1, 5, 0);
if TheStream.WaitForData(6000) then begin
   TheStream.Read(Buffer1,4);
   for i:=0 to 5-1 do  //前4位是包的长度
     strRec:=strRec+Buffer1[i];
   showmessage(strRec);
end;
end;

计算机处理器有两种排序方式：big-endian和little-endian。
intel86处理器用little-endian：字节的排序是从最无意义的字节到最有意义的字节。称为“主机字节顺序”。
在网络上指定IP地址和端口号，必须用big-endian来表示：从最有意义的字节到最无意义的字节。一般称之为“网络字节顺序”。
主机字节顺序与网络字节顺序的转换函数：
u_long htonl(u_long hostlogn);
int WSAHtonl(
SOCKET s,
u_long hostlogn,
u_long FAR * lpnetlong
);
u_short htons(u_short hostshort);
int WSAHtons(
SOCKET s,
u_short hostshort,
u_short FAR * lpnetshort
);
htonl和WSAHtonl的hostlong参数是按主机字节顺序排序的一个4字节数。
htonl函数返回的数网络字节顺序，WSAHtonl函数通过lpnetlogn参数返回网络字节顺序排序数。用于IP地址转换。
htons和WSAHtons的hostshort参数是按主机字节顺序排序的一个2字节数。用于端口转换。
htons函数把这个hostshort参数当作按网络字节排序的一个2字节数返回，而WSAHtons函数则通过lpnetshort参数返回。
下面4个函数是前4个函数的逆向函数，它们把网络字节顺序转换成主机字节顺序：
u_long ntohl(u_long netlong);
int WSANtohl(
SOCKET s,
u_long netlog,
u_long FAR * lphostlong
);
u_short ntohs(u_short netshort);
int WSANtohs(
SOCKET s,
u_short netshort,
u_short FAR * lphostshort
);
例：
var
InternetAddr: TSockAddrIn;
const
nProtId = 5150; //端口号。主机字节顺序排序格式
cp = '136.149.3.29'; //IP地址。点分internet地址格式
begin
{使用IP地址族}
InternetAddr.sin_family := AF_INET;
{将cp转换为4字节整数，并把它分配给sin_addr}
InternetAddr.sin_addr.S_addr := inet_addr(cp);
{将字段转换为网络字节顺序，并分配给sin_port}
InternetAddr.sin_port := htons(nProtId);
end;

来自: Another_eYes, 时间: 2003-09-22 7:56:00, ID: 2191192 
应当没有错的，最多出来一个warning（也许你的哪个编译开关不对所以无法运行？）。
因为Integer->Word强制类型转换可能造成数据失真。用iTotalPkg:= htons(word(Cardinal(iPkglen)))试试。

说句题外话：
iPkglen:= sizeof(DebugDL);                  //数据包长度
这句没有意义，因为iPkglen永远等于28(不管你param1~param7中有没有数据也不管你那里面的数据是什么)

来自: youjq, 时间: 2003-09-22 14:39:00, ID: 2192327 
TO:Another_eYes
我试过加Cardinal也没用，运行到Htons这句时屏幕就会弹出一个错误框好象
是什么内存地址出错什么的，是系统的。还有其他办法吗？

来自: youjq, 时间: 2003-09-22 18:16:00, ID: 2193094 
问题解决了，原因是我 use  了idwinsocket 应该use winsocket就对了