AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi AsyncPro- Daten auslesen mit Trigger Avail???
Thema durchsuchen
Ansicht
Themen-Optionen

AsyncPro- Daten auslesen mit Trigger Avail???

Ein Thema von gine · begonnen am 12. Dez 2004
Antwort Antwort
gine

Registriert seit: 10. Okt 2004
Ort: mannheim&bei kölle
10 Beiträge
 
#1

AsyncPro- Daten auslesen mit Trigger Avail???

  Alt 12. Dez 2004, 14:18
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
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;
Et kütt wie et kütt. Es is wie et is. Un et hätt noch imme jot jejange!
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:08 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz