类似于这样子,稍微改下 var sz:integer; len:integer; s:string; beginAContext.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;
var sz:integer;
len:integer;
s:string;
beginAContext.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;