Código Delphi [-]Application.Processmessages; for Wvez := 1 to 50 do begin ComPort.Port:='COM12'; ComPort.BaudRate:=brCustom; ComPort.Open ComPort.WriteStr('1'); ComPort.ReadStr(Str, 3000); // Esta parte no me funciona Memo1.Text := Str; // Si le pongo un Message recien captura . // si le pongo Sleep(xx) tampoco funciona . . end;
Application.Processmessages; for Wvez := 1 to 50 do begin ComPort.Port:='COM12'; ComPort.BaudRate:=brCustom; ComPort.Open ComPort.WriteStr('1'); ComPort.ReadStr(Str, 3000); // Esta parte no me funciona Memo1.Text := Str; // Si le pongo un Message recien captura . // si le pongo Sleep(xx) tampoco funciona . . end;