Чтение СМС из памяти мобилы

← →
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".

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