![]() |
AsyncPro- Daten auslesen mit Trigger Avail???
Hallo!
Ich shcon wieder mit meinem AsyncPro und Wettersensor, aus dem ich Daten auslesen möchte. Also ich hab den AsyncPro von TurboPower installiert und die kommunikation zu Sensor klappt :-D Sende Befehle mit ApdComPort.Output und der Sensor nimmt diese auch brav...hab ich im HyperTerminal kontrolliert...jetzt das problem: Wenn der Sensor einen Befahlsstaz erhält, soll er Daten zurückschicken...diese müsse ja abgeholt werden, welches ich mit Trigge rAvail machen möchte. Ich möchte die Daten (ein string aus datum uhrzeit temperatur druck und feuchte) einlesen und in einem memo ausgeben... Wie mach ich das? Hab mir die Hilfe durch gelesen aber komme mal wieder nicht weit. Hat jemand ein Beispiel oder aknn mir seinen SourceCode geben? Ich habe in der Hilfe die hier gefunden: weiß abr nichts recht damit anzufangen...also bitte wiedermal :Kann mir wer helfen?????? The following example collects incoming data until it finds a carriage return character (ASCII 13). If the incoming data stream contained "TurboPower Software"<CR>, ApdComPortTriggerAvail would be called one or more times until the entire string except <CR> was received. ApdComPortTriggerData would then be called and could process the complete string. ApdComPortTriggerAvail would then be called again with the <CR> and any other data that followed it. ApdComPortTriggerData would not be called again in this example, because the handler disables the data trigger. const S : string = ''; ... CRTrig := ApdComPort.AddDataTrigger(#13, False); ... procedure TMyForm.ApdComPortTriggerData( CP : TObject; TriggerHandle : Word); begin if TriggerHandle = CRTrig then begin ...do something with S ApdComPort.RemoveTrigger(TriggerHandle); end; end; procedure TMyForm.ApdComPortTriggerAvail( CP : TObject; Count : Word); var I : Word; begin for I := 1 to Count do S := S + ApdComPort.GetChar; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:55 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz