Android UART EventListener

[TiGü]

Hilft dir das weiter?

Delphi-Quellcode:

  JUARTEventListenerClass = interface(JEventListenerClass)
    ['{EC9DB672-36FF-40F5-8E3B-5D4C00808A91}']
    { class } procedure onUARTEvent(P1: JUARTEvent); cdecl; // Deprecated
  end;

  TDeinEreignisHorcher = class(TInterfacedObject, JUARTEventListenerClass)

  public
    procedure onUARTEvent(P1: JUARTEvent); cdecl;

  end;

  { TDeinEreignisHorcher }

procedure TDeinEreignisHorcher.onUARTEvent(P1: JUARTEvent);
var
  EventType: string;
  Event: string;
begin
  EventType := IntToStr(P1.getEventType);

  Event := JStringToString(P1.toString);

  ShowMessage(EventType + ' : ' + Event)
end;