Bo Berglund via Lazarus
2018-10-13 18:43:43 UTC
This is what I have:
In a unit where a logging class is defined:
type
TRxEvent = procedure (const Buffer: TBytes) of object;
...
TWiFiCommLogger = class(TThread)
private
...
FOnRxData: TRxEvent;
...
public
...
property OnRxData: TRxEvent read FOnRxData write FOnRxData;
...
end;
procedure TWiFiCommLogger.Execute;
begin
while not Terminated do
begin
...
if Assigned(FOnRxData) then
begin
FOnRxData(FBuffer);
SetLength(FBuffer, 0);
end;
...
Then in the form unit where I want to use this:
...
private
...
procedure OnRxSS(Buf: TBytes);
...
end;
In the form constructor:
procedure TfrmCommTest.FormCreate(Sender: TObject);
...
FLogSS := TWiFiCommLogger.Create;
FLogSS.OnRxData := OnRxSS; // <== Error on this line
...
When I compile this I get the following error:
formcommtest.pas(112,22) Error: Incompatible types: got
"TfrmCommTest.OnRxSS(TBytes);" expected "<procedure variable type of
procedure(const TBytes) of object;Register>"
What am I doing wrong here?
I have written similar types of programs where I have used this kind
of construction and it has worked fine (in Delphi).
Both the form file and the unit where the handler class is defined
have been set to:
{$mode Delphi}
--
Bo Berglund
Developer in Sweden
--
In a unit where a logging class is defined:
type
TRxEvent = procedure (const Buffer: TBytes) of object;
...
TWiFiCommLogger = class(TThread)
private
...
FOnRxData: TRxEvent;
...
public
...
property OnRxData: TRxEvent read FOnRxData write FOnRxData;
...
end;
procedure TWiFiCommLogger.Execute;
begin
while not Terminated do
begin
...
if Assigned(FOnRxData) then
begin
FOnRxData(FBuffer);
SetLength(FBuffer, 0);
end;
...
Then in the form unit where I want to use this:
...
private
...
procedure OnRxSS(Buf: TBytes);
...
end;
In the form constructor:
procedure TfrmCommTest.FormCreate(Sender: TObject);
...
FLogSS := TWiFiCommLogger.Create;
FLogSS.OnRxData := OnRxSS; // <== Error on this line
...
When I compile this I get the following error:
formcommtest.pas(112,22) Error: Incompatible types: got
"TfrmCommTest.OnRxSS(TBytes);" expected "<procedure variable type of
procedure(const TBytes) of object;Register>"
What am I doing wrong here?
I have written similar types of programs where I have used this kind
of construction and it has worked fine (in Delphi).
Both the form file and the unit where the handler class is defined
have been set to:
{$mode Delphi}
--
Bo Berglund
Developer in Sweden
--