Empfangen mit ApdComPort1 funktioniert nicht

[Chemiker]

Hallo,

Delphi-Quellcode:

procedure TfrmEmpfangenDemo.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
  I : Word;
  C : Char;
  S : String;
begin
  S := '';
  for I := 1 to Count do begin
    C := ApdComPort1.GetChar;
    case C of
      #0..#31 : {Don't display} ;
      else S := S + C;
    end;
  end;
  edEmpfangString.Text:= s;
  ShowMessage('Got an OnTriggerAvail event for: ' + S);
end;

mit dieser Procedure aus der Doku. funktioniert das Empfangen von Zeichen nicht. Hat jemand ein weiteres Beispiel für mich das Funktioniert?
Die Verbindung wird mit Com0Com hergestellt.
Vielleicht liegt es auch an der Einstellung von ApdComPort1.

Bis bald Chemiker

[messie]

Hast Du denn Deinen Port richtig initialisiert und vor allem geöffnet? Denn für das Beispiel muss die Verbindung schon offen sein.

Grüße, Messie

[Chemiker]

Hallo messie,

normal sollte er offen sein.

Delphi-Quellcode:

procedure TfrmEmpfangenDemo.btEmpfangenClick(Sender: TObject);
begin
  ApdComPort1.Open;
end;

Bis bald Chemiker

[messie]

Zitat von Chemiker:

Hallo messie,

normal sollte er offen sein.

Wenn das ohne Meckern funkioniert, musst Du noch die Einstellungen kontrollieren. Und möglichst per Hyperterminal kontrollieren, ob denn wirklich was auf der Schnittstelle ankommt.

Grüße, Messie

[Chemiker]

Hallo,

das Senden funktioniert. Das eigene Programm sendet Daten an Hyper Terminal. Zwischen Hyper Terminal und Hyper Terminal kann ich Daten sowohl Senden wie auch Empfangen.
Es sind die gleichen Parameter eingestellt beim Senden wie beim Empfangen, aber es wird kein Zeichen entgegengenommen. Beim Empfangen verzweigt das Programm noch nicht einmal in die Procedure.

Bis bald Chemiker

[Chemiker]

Hallo,

es lag an der Einstellung von ApdComPort1 hatte OutSize auf 1 stehen. Es funktioniert nur, wenn die Einstellung > 1 oder 0 ist.

Bis bald Chemiker