Exception während RS232 Datenempfang

[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

[Klaus01]

Hallo Anton,

Delphi-Quellcode:

procedure TCncMessageDispatcher.processMessage(meldung: TMeldung);
var
  NewDataRecord : PNewDataRecord;
  SendDataRecord : PNewDataRecord;
  receivedMessage : TMeldung;
  msg : tagMSG;

begin
  receivedMessage := meldung;
  try
    New(NewDataRecord);
    NewDataRecord^.ThreadID := GetCurrentThreadID;
    NewDataRecord^.DataLength := Length(receivedMessage);
    SetLength(NewDataRecord^.Data, Length(receivedMessage));
    move(receivedMessage[0], NewDataRecord^.Data[0], NewDataRecord^.DataLength);
  except
    on e: Exception do
      raise Exception.Create(format('Receiver thread error: %s',[e.Message]));
  end;
  PostMessage( fDestHandle, TH_MESSAGE, TH_DATAM, Integer(NewDataRecord));

  if (receivedMessage[0] and $0F) = $06  then
  begin
    if PeekMessage(&msg, 0, 0, 0, PM_REMOVE) then
    begin
      case msg.wParam of
        TTH_SEND: begin
          SendDataRecord := PNewDataRecord(msg.lParam);
          fCommTest.transmitMessage(SendDataRecord^.Data);
        end;
      end;
    end;
  end;
  PostMessage( fDestHandle, TH_MESSAGE, TH_CLOSE, GetCurrentThreadID );
end;

receivedMessage ist schon richtig, nur das man dort nicht den Type übergeben sollte (mea culpa).
Es sollte dort der Parameter meldung übergeben werden.

Grüße
Klaus

[akuk]

Hallo Klaus
da kommt das nechste:
schlimmste ist, ich sehe da kein Fehler:

zBsp Zeile 145:
[dcc32 Fehler] F_MainWindow.pas(145): E2029 ')' erwartet, aber ',' gefunden

fCncMessageTransmitter := TCncMessageTransmitter(fOutMessageQueue, COMPORT, Form1.Handle); // ????

Da bin ich ehrlich gesagt total überfordert
Grüsse
Anton