Как из Delphi управлять мобильником через USB. AT функции.

[BARNEY]

возможно

[vovken1997]

Понятно, тогда надо отправлять что-то вроде этого:
AT+CMGF=0
AT+CMGL=4
чтобы прочитать все сообщения?

[BARNEY]

пробуй так

AT+CMGF=1
AT+CMGL="ALL"

[vovken1997]

Спасибо, попробую! А я правильно из порта читаю???

[BARNEY]

ну по командам приведенным выше, нет Ты не вник в смысл кода.... там же автор ясно написал что "AT+CMGF=1" для перевода модема в текстовый режим.... а ты всё равно фигачишь AT+CMGF=,0 а потом зачетом считываешь из 4 ячейки памяти (ещё не известно какой памяти) считываешь смс...а она вообще там есть?

[vovken1997]

Есть ли там смс? На симке 7 смс. А что ты имеешь под считыванием из 4 ячейки, что ли это
AT+CMGL=4
И вообще я спрашивал правильно ли прописано readfile, в тех примерах по другому, и нужен ли последний параметр этой функции???

[vovken1997]

Барней, посмотри пожайлуста как я, что делаю.Функция открытия таже.
Да и нужен ли последний параметр readFile?

var
  Form1: TForm1;
  FHandle:THandle;
  dcb:TDCB;
  CommTimeOuts:TCommTimeouts;
  LWrited,z:Cardinal;
  ch:Byte;
 .......................
 WriteFile(FHandle,PAnsiChar('AT+CMGF=1'+#$D#$A)^,Length('AT+CMGF=1'+#$D#$A),LWrited,nil);
  writeFile(FHandle,PAnsiChar('AT+CMGL="ALL"'+#$D#$A)^,Length('AT+CMGL="ALL"'+#$D#$A),LWrited,nil);
z:=10;
  readFile(FHandle,ch,z,z,nil);
memo1.Lines.Add(IntToStr(ch));

СПАСИБО!

[Пепел Феникса]

ну попробуйте убрать.

естестевенно нужен, прототип это прототип, и ему нужно следовать.

[Slym]

Сообщение от vovken1997

Барней, посмотри пожайлуста как я, что делаю.Функция открытия таже.
Да и нужен ли последний параметр readFile?

var
  Form1: TForm1;
  FHandle:THandle;
  dcb:TDCB;
  CommTimeOuts:TCommTimeouts;
  LWrited,z:Cardinal;
  ch:Byte;
 .......................
 WriteFile(FHandle,PAnsiChar('AT+CMGF=1'+#$D#$A)^,Length('AT+CMGF=1'+#$D#$A),LWrited,nil);
  writeFile(FHandle,PAnsiChar('AT+CMGL="ALL"'+#$D#$A)^,Length('AT+CMGL="ALL"'+#$D#$A),LWrited,nil);
z:=10;
  readFile(FHandle,ch,z,z,nil);
memo1.Lines.Add(IntToStr(ch));

СПАСИБО!

Отсыпь дури...
намешано ком портов с протоколом так что писец полный...
НЕ НУ ЕСЛИ СИЛЬНО ХОЧЕТСЯ и так можно, только на асм переходи, а дельфи не для таких как ты...

не проще написать процедуру Writeln?

procedure Writeln(data:string);
const ln=#13#10;
begin
  WriteFile(FHandle,PAnsiChar(data)^,Length(Data),LWrited,nil);
  WriteFile(FHandle,PAnsiChar(ln)^,Length(ln),LWrited,nil);
end;

а потом

writeln('AT+CMGF=1');
writeln('AT+CMGL="ALL"');

[vovken1997]

Легче, но мне бы всё в одном месте, а то потом этих мелких функций набирается, чёрт ногу сломит. Что ты имеешь введу, намешано портов???