Kommentar:
Einfügen von HTML im Kommentar:
Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a>
Bild einfügen: <img src="BILDURL">
Text formatieren: <b>fetter Text</b>  <i>kursiver Text</i> <u>unterstrichener Text</u>
Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b>
C2 Quellcode formatieren: <code>Quellcode</code>
ASM Quellcode formatieren: <asm>Quellcode</asm>
(Innerhalb eines Quellcodeabschnitts ist kein html möglich.)
Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst !  
> Hallo Stefan, > ganz so kompliziert ist das Ganze nicht. > Mein gesamter Dialog zwischen PC und CC läuft über Strings ab, wobei ich PC-seitig mit Delphi arbeite. > 1. PC -> CC > Procedure SendString(St:String); > var i:Integer; > Begin > st := st + &#39;*&#39;; > For i:=1 to length(st) do CC.SendByte(ord(st[i])); > End; > > 2.Auf der Seite des CControls existiert folgende Funktion: > > function getserial() returns int > { > long timout; > int c; > // Daten im Puffer ? > if hwcom.rxd() == 0 return 0; // nix tun > > // andernfalls solange an hwcom lauschen bis das Ende symbolisiert wird oder das Timeout (500ms) erreicht ist > > str.clear(inp); > timeout = system.timer() + MAXTIMEOUT; // zB.500ms > > loop > { > if hwcom.rxd() < 0 > { > timeout = system.timer() + MAXTIMEOUT; > > c = hwcom.get(); > if c != &#39;*&#39; str.putchar(inp,c) else return str.length(inp); > } > if (system.timer() > timeout return -1; > } > } > > > 3. CC->PC > function send_ADPort01() > { > int ad; > string s; > > ad = ports.adc(); > s = &#39;AD1:&#39;; > str.putint(s,ports.adc); > > s = s+&#39;*&#39;; > > hwcom.send(s,str.length(s)); > > wait hwcom.ready; > } > > > Ob nun in einem extra- oder im main-thread - das ist egal > > so könnte es dann aussehen.... > > tread main > { > > .... > > loop > { > if modul.getserial() > 0 > { > // im gobal vereinbarten "inp" ist jetzt ein Textstring der interpretiert werden kann ... > if inp = "AD1" send_ADPort1(); > if inp = "BEEP" doBeep(); > . > . > usw > } > > .... > } > > was nun noch bleibt ist eine Routine, die PC-seitig die > ankommenden byres zu einen String zusammensetz > > zb > > while getTickCount<timeout do > begin > if cc.DataAvailable then > Begin > timeout := GetTickCount+TMAXTIMEOUT; > c := chr(cc.getByte); > if c <> &#39;*&#39; InpStr := InputStr + chr(cc.GetByte) else EXIT; > End; > End; > > ..... > > Ich hoffe ich habe nicht zu viele Tippfehler gemacht und Du kannst etwas damit anfangen. Für Rücfragen stehe ich zur Verfügung. > > Thomas > > > > > > > > > > > >

Dateianhang: (.gif, .png., .jpg, .zip, .rar)

max. 256kB

max. 256kB