Hallo,

zusammenfalten · markieren

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

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

Hallo messie,

normal sollte er offen sein.

markieren

Delphi-Quellcode:

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

Bis bald Chemiker

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

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

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