TMyClient = class(TWSocketClient)
protected
FScrSpy: TScreenSpy;
FPos: Integer;
FCmd: array[0..SizeOf(TCtlCmd) - 1] of Char;
constructor TMyClient.Create(AOwner: TComponent); //构造
begin
inherited Create(AOwner); //调用
OnDataAvailable := DataAvailable;
OnError := Error;
//
FScrSpy := TScreenSpy.Create;
FScrSpy.Socket := Self;
FPos := 0;
end;
destructor TMyClient.Destroy;
begin
if Assigned(FScrSpy) then
begin
FScrSpy.Terminate;
FScrSpy := nil;
end;
inherited;
end;
运行后,显示:incompatible types:'TWSocket' and 'TMyClient' 不兼容,如何修改。
FScrSpy.Socket := Self;
'Self',该怎么修改呢?请各位大神指点一下。