Einzelnen Beitrag anzeigen

Daniel B
(Gast)

n/a Beiträge
 
#9
  Alt 20. Okt 2002, 21:32
Hallo Andi,

in der .zip die Du runter geladen hast, sind noch mehrere .zip drin.
Mit den Sourcen, Eamples, help. Die help.zip musst Du entpacken. Da ist die Hilfedatei drin. Ist allerdings Englisch. Falls Du die deutsche Version brauchst, melde Dich einfach nochmal. Einfach mal die Hilfe durchlesen, bei suchen nach Events, Methods nachschauen.
Ganz interessant für Dich ist folgendes:

Example (inside OnRxChar)

Code:
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort1.ReadStr(Str, Count);
  Label1.Caption := Str;
end;

Example (outside OnRxChar)

Code:
var
  Str: String;
begin
  // set timeouts here or at design time
  ComPort1.ReadStr(Str, NumberOfBytes);
  Label1.Caption := Str;
end;
Sobald was an der Seriellen ankommt, wird die Caption gesetzt. Du brauchst also kein extra Button um es einzuschalten.

Jetzt musst DU nur noch einen Weg finden, bei klick auf einen Button, die Cation des Labels nicht mehr geändert werden kann.

Die einfachste möglichkeit wäre, den ComPort zu schliessen und bei bedarf wieder zu öffnen. Das kannst Du mit einem Button machen, Ein- und Ausschalten.
Soweit Klar?

Grüsse, Daniel
  Mit Zitat antworten Zitat