Thema: Delphi async Fragen

Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#27

Re: async Fragen

  Alt 14. Sep 2005, 09:45
Jetzt, ja.

Zu deinem ReceiveBuffer1 führe noch eine weitere Variable ein:

Delphi-Quellcode:
type
  TDemoForm = class(TForm)
  ...
  private
    CommandCode: Char;
    ReceiveBuffer1: array of byte;
  end;
Wenn du dein Command mit PutString() sendest, dann speichere es auch gleich noch in CommandCode ab. So kannst du beim Eintreffen der Antwort erkennen, wo du die Werte sichtbar machen willst:

Delphi-Quellcode:
begin
  ...
  case CommandCode of
    'U': LabelU.Caption := IntToStr(Messwert(ReceiveBuffer1));
    'A': LabelA.Caption := ...
  end;
end;
Die Funktion Messwert() habe ich mir eben ausgedacht - nur damit du die nicht irgendwo suchst...

marabu
  Mit Zitat antworten Zitat