Delphi-Quellcode:
TCncDataReceiver = class(TThread)
private
fCommTest: TOptiNumericComm;
fMessageQueue: TThreadQueue<TMeldung>;
fComPort: ShortInt;
fDestHandle: THandle;
function receiveDataCom: TMeldung;
public
constructor create(var messageQueue: TThreadQueue<TMeldung>; const comport: shortInt; const destHandle: THandle); override;
destructor destroy; override;
procedure Execute; override;
end;
Delphi-Quellcode:
constructor TCncDataReceiver.create(var messageQueue: TThreadQueue<TMeldung>; const comport: shortInt; const destHande: THandle);
begin
inherited create(true);
fCommTest := TOptiNumericComm.Create;
fMessageQueue := messageQueue;
fComPort := comPort;
fDestHandle := destHandle;
suspended := false;
end;
.. wenn Du das override wieder hereinnimmst.
TThread.create() hat eine andere Signatur.
Also müsste override gesetzt werden.
Grüße
Klaus