从INDY9升级到INDY10的改正方法

来源：互联网发布：mac怎么取消开机启动编辑：程序博客网时间：2024/04/29 19:04

转自：http://www.cnblogs.com/qq528/archive/2008/12/26/1363006.html

1、TIdUDPClient

INDY9:

TIdUDPClient1.SendBuffer('127.0.0.1',9999,Request,SizeOf(Request));
TIdUDPClient1.ReceiveBuffer(ResponseBlock,SizeOf(ResponseBlock));

INDY10:

VAR:Temp:Tbytes；

TIdUDPClient1.SendBuffer('127.0.0.1', 9999, RawToBytes(Request, SizeOf(Request)));
SetLength(Temp, SizeOf(ResponseBlock));

TIdUDPClient1.ReceiveBuffer(Temp);
bytestoraw(Temp, ResponseBlock, SizeOf(ResponseBlock));

2、TIdUDPServer

INDY9:

procedure TfrmMain.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);

......

if AData.Size = SizeOf(Request) then
begin
AData.Read(Request,SizeOf(Request));

.........

ABinding.SendTo(ABinding.PeerIP,ABinding.PeerPort,FileInfo,SizeOf(FileInfo));

INDY10:

procedure TfrmMain.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
ABinding: TIdSocketHandle);

.......

   if length(AData)= SizeOf(Request) then
   begin
       //将接收到的Tbytes信息转化为Trequest类型的数据结构Request中
      BytesToRaw(AData, Request, SizeOf(TRequest));

ABinding.SendTo(ABinding.PeerIP,ABinding.PeerPort,rawtobytes(FileInfo,SizeOf(FileInfo)));