Подскажите пожалуйста,
как создать компонент TClientSocket, с добавленным к нему полем типа TStringStream
вижу этот код таким
Код:
TMyClientSocket = class(TClientSocket)
private
SS:TStringStream;
protected
public
published
end;
использую так
Код:
var
test1:TMyClientSocket;
begin
test1.SS:=TStringStream.Create;
test1.SS.WriteString('test');
test1.SS.SaveToFile(ExtractFilePath(ParamStr(0))+'tss.txt');
test1.SS.Free;
end;
Но вылетает ошибка