Hola:
Estoy utilizando el ComPort y Delphi 6, cuando leo del puerto serie filtro los caracteres q me entran:
Código Delphi
[-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
str,cadena: string;
begin
ComPort.ReadStr(cadena, Count);
str:= StringReplace(cadena, #$13, '',[rfReplaceAll]);
str:= StringReplace(str, #$11, '',[rfReplaceAll]);
str:= StringReplace(str, #$A#$A, #13#13,[rfReplaceAll]);
str:= StringReplace(str, #$A, #13,[rfReplaceAll]);
ShowMessage(Str);
Memo1.Text := Memo1.Text + Str;
end;
Resulta q con esto el texto me sale totalmente depurado, de hecho cuando me sale el texto en el ShowMessage me sale perfecto, sin embargo cuando el Memo me lo carga, me lo muestra con caracteres bastante extraños con simbolos musicales etc etc.... q fuente le puedo poner al Memo para q me salga el texto como mismo me sale el ShowMessage.... ???
Saludos