Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

Чтение СМС из памяти мобилы   Найти похожие ветки 

 
Barnaul   (2004-09-30 10:33) [0]

меня M55 С55 siemens
Я написал дозвон и отсылку смс
но проблемы с считыванием из памяти СМС ( только Входящие т.е 2 типа)
Вот текст процедурки на Delphi6 которая должна считывать смс из памяти
телефона проблема с readfile конкретно я считываю из буфера мусор

procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
nn:Pchar;
PhoneNumber: string;
NumberWritten,itten: dword;
begin
OpenComPort();
CloseComPort();
OpenComPort();
NumberWritten:=0;

PhoneNumber:= "AT+CPMS="SM","SM""+ #13 + #10;    // терминал выдает Sent: AT+CPMS="SM","SM"
                                                 //    +CPMS: 1,20,1,20,1,20
                                                 //          OK
if WriteFile(hCommFile,PChar(PhoneNumber)^,Length(PhoneNumber), NumberWritten, nil) //caienuaaai a ii?o
 = false then ShowMessage("Ошибка Записи");
NumberWritten:=0;
CloseComPort();
OpenComPort();
                              //сообщение храниться во входящих

//07919731121900F3040B919731129457F500004090928122722105C8329BFD06 закодированный текст Hello
PhoneNumber:= "AT+CMGR=2""+ #13 + #10;             //Sent: AT+CMGR=2
                                                   // +CMGR: 1,,24
                                                    // 07919731121900F3040B919731129457F500004090928122722105C8329BFD06
                                                     //   OK

if WriteFile(hCommFile,PChar(PhoneNumber)^,Length(PhoneNumber), NumberWritten, nil) //caienuaaai a ii?o
 = false then ShowMessage("Ioeaea caiene");
sleep(2000);
itten:=10;
readFile(hCommFile,nn,10,itten, nil);
CloseComPort();
end;

procedure OpenComPort ();
begin
 hCommFile := CreateFile(PChar(CommPort), //создаем порт
 GENERIC_WRITE or GENERIC_READ, 0, nil, OPEN_EXISTING,
 FILE_ATTRIBUTE_NORMAL, 0); // параметры порта
 if hCommFile=INVALID_HANDLE_VALUE then //если ошибка создания то выводим сообщение
 begin ShowMessage("Ошибка открытия порта "+ CommPort); exit;  end;
end;

//процедура закрытия порта
procedure CloseComPort ();
begin  CloseHandle(hCommFile);
end;


 
Erik1 ©   (2004-09-30 11:07) [1]

Ты вопрос сформулируй. И используй готовые компоненты чтения из com порта, лучше с асинхроным чтением "VARIAN ASYNC32 COMPONENT v1.48".



Страницы: 1 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.053 c
3-1097129513
S@shka
2004-10-07 10:11
2004.11.07
Можно ли в UDF вернуть больше одного параметра???


3-1097126482
Its
2004-10-07 09:21
2004.11.07
DBGrid


3-1097133430
S@shka
2004-10-07 11:17
2004.11.07
Работа с типом CHAR как с массивом


1-1098426050
П7
2004-10-22 10:20
2004.11.07
Диалог выбора директории


1-1098192906
Dr. Genius
2004-10-19 17:35
2004.11.07
Неповрежденные части файлов с диска A: