Jetzt hab ich aber ganz schön Mist geschrieben. Es funktioniert nämlich doch nicht. Ich bekomme immer genau das zurück was ich auch hinschicke...egal was ich sende?!?!?!
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
ComPort.Open := True;
ComPort.Output := #01 + #48 + #04;
end;
procedure TForm1.ComPortTriggerAvail(CP: TObject; Count: Word);
var
Buffer: String[255];
Bufferindex: Integer;
I: Word;
C: Char;
begin
Label1.Caption := '';
for I := 1 to Count do
begin
C := ComPort.GetChar;
Buffer := Buffer + C;
Label1.Caption := Label1.Caption + C;
end;
end;
Egal was ich im Output sende, es kommt unten im ComPortTriggerAvail wieder an? Was mache ich denn falsch? Das Gerät funktioniert mit fremder Software einwandfrei
Die Dokumentation zur Schnittstelle findet ihr hier:
http://www.wickl.net/diverse/WS2500-...schreibung.pdf
Hat da vielleicht nochmal jemand einen Tip?
Vielen Dank
Dragi