type TWinSocketStringStream = class(TWinSocketStream) public function ReadString(nMaxLength: Integer; var str, sErrMsg: string): Boolean; function WriteString(const str: string; var sErrMsg: string): Boolean; end; 对delphi中的类TWinSocketStream进行继承,封装soc