Exception während RS232 Datenempfang

[akuk]

Hallo Klaus
Da bin ich wieder, da gibt es Problem wegen Klassenvererbung.
TCncMessageTransmitter =class(TThread).. ich habe probiert
(TCNCDataReceiver) das ist doch die Bassisklasse ? aber das funktioniert
nicht. siehe Beilage, Fehler in Zeile 17
Gruss
Anton

[Klaus01]

Hallo Anton,

tut mir leid -mein Fehler.
TCncMessageTransmitter hat als Basisklasse TThread.

Kannst Du bitte das override am Ende der Create Definition entfernen?
Das gleiche dann bitte auch noch bei TCncDataReceiver.

Grüße
Klaus

[akuk]

Hallo Klaus
leider der nächste im cncDataReceiver:

geQueue: TThreadQueue<TMeldung>; const comport: shortInt; const destHande: THandle);

[dcc32 Fehler] cncDataReceiver.pas(26): E2037 Deklaration von 'create' unterscheidet sich von vorheriger Deklaration

Grüsse
Antin

[Klaus01]

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

[akuk]

Hallo Klaus
Geht leider nicht, siehe Beilage.
Grüsse
Anton

[Klaus01]

Hallo Anton,

bei mir ist ein Tippfehler im Create.
override muss raus.

constructor TCncDataReceiver.create(var messageQueue: TThreadQueue<TMeldung>; const comport: shortInt; const destHandle: THandle);

Grüße
Klaus

[akuk]

Hallo Klaus
Zeile 16 CNCMessageDispatcher:
constructor Create(const destHandle: THandle; var messageQueue: TThreadQueue<TMeldung>);// override; hier habe ic das override entfernt
nächste sind 12 Fehler : siehe Beilage:
Sollte das receivedMessage nicht receiveMessage sein ?
Grüsse
Anton