Работа с GSM телефоном - [6] :: Прикладное программирование

Вот еще кусок кода. Все равно вылетают ошибки! На этот раз при переводе в PDU-режим(Error.1). Телефон его поддерживает(проверял в гипертерминале). Вот такая ошибка: 'Communication error 9997: Timeout during operation'. В чем может быть проблема? Может у кого есть хороший пример на эту компоненту и русская документация? Буду благодарен.
----------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
const READ_SMS = 'AT+CMGR=';
const DELETE_SMS = 'AT+CMGD=';
const PDU_MODE_CONVERT = 'AT+CMGF=0';
const SMS_COUNT_MEMMORY = 20;
var
ser:TBlockSerial;
i: integer;
rec_str: string;
begin
ser:=TBlockSerial.Create;
ser.RaiseExcept:=True;
try
ser.Connect('COM5');
ser.Config(9600, 8, 'N', 0, false, false);
ser.AtTimeout := 5000;
// ----- переводим чтение смс в PDU-режим --------------------------------------
rec_str := ser.ATCommand(PDU_MODE_CONVERT);
if (ser.LastError <> 0) or (not ser.ATResult) then begin
Application.MessageBox('Error.1','Error.1');
Exit;
end;
// ----- считываем смс с памяти телефона ---------------------------------------
for i:=1 to SMS_COUNT_MEMMORY do begin
rec_str := ser.ATCommand(READ_SMS + IntToStr(i));
if (ser.LastError <> 0) or (not ser.ATResult) then begin
Application.MessageBox('Error.2','Error.2');
Exit;
end;
if (Pos('+CMGR', rec_str) > 0) and (Pos('OK', rec_str) > 0) then begin
memo1.lines.Add(rec_str);
rec_str := ser.ATCommand(DELETE_SMS + IntToStr(i));
if (ser.LastError <> 0) or (not ser.ATResult) then begin
Application.MessageBox('Error.3','Error.3');
Exit;
end;
end;
if (Pos('+CMS ERROR', rec_str) > 0) and (Pos('OK', rec_str) > 0) then
break;
end;
//------------------------------------------------------------------------------
finally
ser.free;
end;
end;

ЗЫ: кавычки я там не зыбыл. Но все равно спасиб за ответ.

Добавлено:
У меня щас крышу сорвет!!! С утра ошибки были где попало... щас запустил, все нормуль.. похоже дело в тайаутах. Подскажите как исправить... и пример с доками плиз... ну очень нада.

Добавлено:
еще вот такая ошибка вылетает: 'Communication error 9999: Receive framing error'. исключительные ситуации блин...

Добавлено:
Помогите, ато я вас замучаю

))

Добавлено:
написал ser.AtTimeout := 5000; но от ошбки таймаута полностью не избавился... и Receive framing error вылетает иногда.... может компонента глючная!!!

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12