Guten Morgen,
ich habe ein kleines Verständnisproblem.
Ich sende Strings über die Comschnittstelle an einen Barcodescanner.
Geb ich die Strings von Hand in ein Eiditfeld ein und sende sie nacheinander gibt es kein Problem. Sobald ich die Strings mittels Button nacheinander senden will, wird nur der erste String quittiert, mit Pause dazwischen auch noch der zweite, der dritte wird dann aber nicht mehr gesendet.
Delphi-Quellcode:
procedure TForm1.btnSendStringClick(Sender: TObject);
var a,b,c,SendStr: string;
begin
a:= '$+$*' + #$0D#$0A; //Restore Default
b:= '$+CP0$-' + #$0D#$0A; // Set RS232
c:= '$+AC110155$-' + #$0D#$0A; //Set Codetype
SendStr := a; //Restore Default
SerialPort.SendString(SendStr);
sleep(10000);
Sendstr := b; // Set RS232
SerialPort.SendString(SendStr);
sleep(10000);
Sendstr := c; //Set Codetype
SerialPort.SendString(SendStr);
end;
Muss ich noch etwas beachten?
Vielen Dank Schubi