|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.05.2009, 18:16 | #1 |
Регистрация: 07.05.2009
Сообщений: 5
|
Как отправить несколько команд на COM порт
Помогите с кодом, не могу отправить последовательно 10 команд на com порт. Тоесть, мне надо нажать на кнопку и происходит отправка 10 команд, 1 команда ушла получил ответ, вторая ушла ответ получил и т.д.
procedure TMainForm.btnSend1Click(Sender: TObject); var SendStr : String; begin if Length ('TForm1.Text) > 0 then begin Memo1.Clear; SendStr := '?54&10'; if cbCRLF.Checked then SendStr := SendStr+#$0d#$0a; BComPort1.WriteStr(SendStr); end; end; procedure TMainForm.BComPort1RxChar(Sender: TObject; Count: Integer); var SendStr: String; begin BComPort1.ReadStr(SendStr, Count); if cbCRLF.Checked then SendStr := SendStr; Memo1.Text := Memo1.Text +SendStr end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как отправить файл по IdSMTP? | Satorin | Работа с сетью в Delphi | 0 | 18.12.2008 22:41 |
Подскажите как отправить E-mail из программы... | Артем Чижук | Общие вопросы Delphi | 1 | 07.06.2008 08:47 |
как отправить и загрузить данные с сервера? | proglamer | Работа с сетью в Delphi | 3 | 11.03.2008 07:54 |
Как отправить Access-ом сообщение по Outlook? | ИгнатАлт | Microsoft Office Access | 2 | 23.11.2007 18:47 |
как отправить сообщения на Асю (icq) | Ermak | Работа с сетью в Delphi | 8 | 19.09.2007 19:57 |