Das Senden über die RS232 (ComPort) geht super aber das empfangen wieder (Daten-Strings)
geht irgent wie nicht ????
--> auszug:
Delphi-Quellcode:
procedure TForm1.ComPortTriggerAvail(CP: TObject; Count: Word);
var I: Integer;
C: Char;
function GibZeichen: String;
begin
// Ist das Zeichen ein druckbaren Zeichen oder ein Steuerzeichen???
if Ord(C) >= Ord(ZeichenBlank) then
// druckbares Zeichen:
Result := C
else
// Steuerzeichen:
begin
case c of
NUL : Result := 'NUL';
SOH : Result := 'SOH';
STX : Result := 'STX';
ETX : Result := 'ETX';
EOT : Result := 'EOT';
ENQ : Result := 'ENQ';
ACK : Result := 'ACK';
LF : Result := 'LF';
FF : Result := 'FF';
CR : Result := 'CR';
SO : Result := 'SO';
SI : Result := 'SI';
DLE : Result := 'DLE';
DC1 : Result := 'DC1';
DC2 : Result := 'DC2';
DC4 : Result := 'DC4';
NAK : Result := 'NAK';
ETB : Result := 'ETB';
CAN : Result := 'CAN';
SUB : Result := 'SUB';
ESC : Result := 'ESC';
else
Result := IntToStr(Ord(C));
end;
// Steuerzeichen in <>:
Result := '<'+Result+'>';
end;
end;
begin
{Event, dass nach dem Empfangen eines Datenpacketes ausgelöst wird: }
{Count: Anzahl der empfangenen Zeichen }
{String auswerten: Gewicht, Waagen-Nummer, ... Weitere Aktionen starten}
for I := 1 to Count do
begin
C := ComPort.GetChar;
with Edit1 do
Text := Text + GibZeichen;
vonWaage := Edit1.Text;
end;
end;
kann mir dar eine helfen ?
Ich mache sonst kaum was in Delphi ...