delphi7升级为2010 ,关于TIdy TCP控件呢。解决方法

delphi7升级为2010 ,关于TIdy TCP控件呢。

Delphi(Pascal) code

procedure TformMain.IdTCPServer1Execute(AThread: TIdPeerThread);var    i,j,DataSize:Integer;    Buffer:array of byte;    vSendMess: array of Byte;    buffer1:array of byte;begin    with   AThread.Connection   do  //不能在2010下运行    begin    AThread.Connection.ReadFromStack();    DataSize:=AThread.Connection.InputBuffer.Size;    SetLength(Buffer,DataSize);    if DataSize>0  then        ReadBuffer(Buffer[0],DataSize);

TIdPeerThread没有了。
求大家把以上代码改成2010的。

[解决办法]
类似于这样子，稍微改下
var sz:integer;
len:integer;
s:string;
begin

AContext.Connection.IOHandler.CheckForDisconnect(True, True);
sz := AContext.Connection.IOHandler.InputBuffer.Size;
if sz>0 then
begin
len:=AContext.Connection.IOHandler.ReadInteger;
s:=AContext.Connection.IOHandler.ReadString(len);
EditServerText.Text:=s;
end;
end;

[解决办法]
ReadBytes,ReadByte,ReadChar,ReadLn很多

查看更多 下一篇