Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Tserial abschiessen

    Delphi
    by Klaus01, 17. Aug 2006
  procedure TSS.tC_SerialRxData(Sender: TObject);
  Var C : Char;
  begin
  While (tC_Serial.ReadChar(C)>0) and not sofort_beenden do Begin
  tc_serial.ZapRxQueue; // wenn dann hier den Puffer löschen
  
  Case C of
  #2 : HS:='';
  #3 : Begin
  tC_String:=HS;
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Tserial abschiessen

    Delphi
    by Klaus01, 17. Aug 2006
  Kannst Du mal einen Breakpoint in Deinem OnClose Ereignis setzen.
  Und dann mal schauen ob direkt nach der Beendigung des Programms
  da hinein gesprungen wird.
  Wenn es da auch schon länger dauert, dann hängt Dein Programm
  vielleicht noch woanders in der Verarbeitung fest.
  
  Wenn Du die Zeichen von der Schnittstelle gelesen hast,
  mußt Du dann nich das Puffer der Schnittstelle leeren?
  
  Das...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Tserial abschiessen

    Delphi
    by Klaus01, 17. Aug 2006
  Das Problem ist, dass Dein Programm in der Schleife steckt
  und keine Systemmeldungen verarbeitet.
  
  
  procedure TSS.tC_SerialRxData(Sender: TObject);
  Var C : Char;
  begin
  While tC_Serial.ReadChar(C)>0 do Begin
  Application.ProcessMessages; // <----
  Case C of