Hej
w procedurze mam kawałek kodu który jest odpowiedzialny za otwieranie portu szeregowego rs232 :
procedure TForm1.FormShow(Sender: TObject);
begin
lpFileName := 'COM1';
hCommDev := CreateFile(lpFileName,GENERIC_READ or GENERIC_WRITE,0,NIL,OPEN_EXISTING,0,0);
//Ustawienie parametrów transmisji
if( hCommDev <> INVALID_HANDLE_VALUE ) then
begin
SetupComm(hCommDev,cbInQueue,cbOutQueue);
dcb.DCBlength := sizeof(dcb);
GetCommState(hCommDev,dcb);
dcb.BaudRate := CBR_9600;
dcb.Flags := dcb.Flags or RTS_CONTROL_DISABLE or dcb_fPartity;
dcb.Parity := NOPARITY;
dcb.StopBits := ONESTOPBIT;
dcb.ByteSize := 8;
SetCommState(hCommDev,dcb);
GetCommMask(hCommDev,fdwEvtMask);
SetCommMask(hCommDev,EV_TXEMPTY);
end
else
begin
MessageDlg('Niepoprawna nazwa lub port jest aktywny '+lpFileName,mtError,[mbOK],0);
end
end;
problem w tym że skanując dany kod skanerem widać jeden duży ciąg znaków, wyczyszczenie pola tekstowego, gdzie wypisywany jest wynik nic nie daje, bo w pliku COM1 jest syf.
Pytanie : jak go wyczyscic tak aby widział ostatni zeskanowany kod ?