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!