Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.046 c