问题描述
- 关于远程桌面控制出错的问题
-
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',该怎么修改呢?请各位大神指点一下。
时间: 2024-10-30 08:40:44