【LogDataServer】修改：修改支持DELPHI7编译
【LogDataServer】修改：修改支持D7编译；修改详情:中修改代码：
⑴.把
procedure IdUDPServerLogUDPRead(Sender: TObject; AData: TBytes;ABinding: TIdSocketHandle);
改为：
procedure IdUDPServerLogUDPRead(Sender: TObject; AData: TStream;ABinding: TIdSocketHandle);
⑵.把
procedure TFrmLogData.IdUDPServerLogUDPRead(Sender: TObject; AData: TBytes;ABinding: TIdSocketHandle);
var
LogStr: string;
begin
try
SetLength(LogStr,Length(AData));
Move(AData, LogStr, Length(AData));
LogMsgList.Add(LogStr);
except
end;
end;
改为：
procedure TFrmLogData.IdUDPServerLogUDPRead(Sender: TObject; AData: TStream;ABinding: TIdSocketHandle);
var
LogStr: string;
begin
try
SetLength(LogStr, AData.Size);
AData.Read(LogStr, AData.Size);
LogMsgList.Add(LogStr);
except
end;
end;
页:
[1]