ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
как отправить запросы модему |
03.02.2010, 23:11
|
|
Участник форума
Регистрация: 09.02.2007
Сообщений: 202
Провел на форуме:
537148
Репутация:
9
|
|
как отправить запросы модему
Добрый вечер!
У меня возник вопрос с запросами к модему с помощью компонента CPort пишу на Delphi.
как отправить иниц. модему ? отправляю так
PHP код:
procedure TForm1.initClick(Sender: TObject);
VAR
Data: string;
begin
init_Array[0]:='AT';
init_Array[1]:='AT&V';
ComPort.WriteStr(nit_Array[0]+#13#10); // send test command
ComPort.ReadStr(Data, ComPort.InputCount);
end;
как отправить след команду? после ожидания ответа от первой?
создаю массив команд например
init_Array[0]:='AT';
init_Array[1]:='AT&V';
Последний раз редактировалось Student :); 03.02.2010 в 23:35..
|
|
|
03.02.2010, 23:31
|
|
Участник форума
Регистрация: 09.02.2007
Сообщений: 202
Провел на форуме:
537148
Репутация:
9
|
|
ответ приходит
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
ComPort.ReadStr(Str, Count);
showmessage(Str);
end;
а как запросить след команду с массива?
|
|
|
|
04.02.2010, 02:51
|
|
Постоянный
Регистрация: 24.03.2009
Сообщений: 670
Провел на форуме:
2868783
Репутация:
414
|
|
Ну отправляй/читай их в цикле, в чем проблема?
|
|
|
|
04.02.2010, 10:51
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
А нафига юзать вообще работу с портом таким образом?
Тебе особо не важен тут битрейт, потому что дрова модема сами всё настраивают.
Юзай стандартную работу с файлами, указав порт.
Типа:
CreateFile('COM4', ***** и потом WriteFile и ReadFile когда надоест, то CloseHandle
Итд. короче заюзать можеш любую функцию открытия файла, главное открывать файл с правами RW
|
|
|
|
04.02.2010, 16:08
|
|
Участник форума
Регистрация: 09.02.2007
Сообщений: 202
Провел на форуме:
537148
Репутация:
9
|
|
спасибо! но я хотел бы через компоненту
пишу так
procedure TForm1.initClick(Sender: TObject);
VAR
n:integer;
begin
init_Array[0]:='AT';
init_Array[1]:='AT&V';
init_Array[2]:='AT1';
init_Array[3]:='AT2';
For n:=0 to length(init_Array)-1 do
Begin
// showmessage(init_Array[n]);
ComPort.WriteStr(init_Array[n]+#13#10); // send test command
end;
если так делаю то отправляеться 1 запрос со всем массивом 
а мне надо чтоб отправился первый запрос получили ответ , потом второй и так далее |
|
|
|
04.02.2010, 16:25
|
|
Познавший АНТИЧАТ
Регистрация: 01.12.2006
Сообщений: 1,769
Провел на форуме:
3718311
Репутация:
1118
|
|
Ну так получай ответ, не хочеш знать что в ответе ну и не знай но получить его ты обязан
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
