| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с отправкой смс сообщений через com. Помогите, плиз...
MegaWolf510 © (2006-03-04 12:35:00)Проверил, что моя мобилка на com5. Запускаю
прогу, всё Ок, говорит, что всё записал в порт, а мобилка молчит. Хелп!!!
Пишу прогу для отправки смс:
var h : THandle;
buff1: String;
writtenbytes : Cardinal;
begin
h:= CreateFile('COM5', GENERIC_WRITE or GENERIC_READ, FOLE_SHARE_DELETE, nil,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
buff:= 'AT+CMGS="+7906здесь мой номер<CR>'#13#10'Hello World !!!'+#26;
WriteFile(h, buff[1], length(buff1), writtenbytes, nil);
Writeln(IntToStr(writtenbytes) + ' bytes was written');
CloseHandle(h);
end.
Verg (2006-03-04 13:14:00) [1]И, кстати, ты думаешь <CR> - это что такое?
at+cmgs=+8905664564 #13(вот он - <CR>)
ждем '>' или 'ERROR: <сообщение об ошибке>'#13#10
Если дождались '>', то выдаем текст сообщения и <SUB> (#26) и ждем либо 'OK'#13#10, либо 'ERROR: <сообщение об ошибке>'#13#10
<CR> - это символ перевода каретки, конкретно #13.
Verg (2006-03-04 13:02:00) [2]По-моему, после 'AT+CMGS="+7906здесь мой номер<CR>'
надо дождаться '>', а уже потом все остальное...
| |
