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

[vovken1997]

Я походу не правильно юнит подключаю. Знаю что тупой. Как правильно его подключать? У меня в проэкте, на кнопке считывания всех смс возникает проблема что GETALLSMS компании не знает,а в исходниках при нажатой Ctrl он переходит к модулю. Как правильно untModem.pas подключить???

[Димон_delphi7]

попробуй untModem в uses прописать

[vovken1997]

Да ну, а я сам недопер. Я uses целиком скопировал и вставил. В чем может быть дело???

[vovken1997]

А куда должно вывестись смс?

[vovken1997]

Я понял, у меня проэкт не хотел компилироваться из-за того что в тех исходниках был создан обработчик событий на создание формы, который я сейчас случайно заметил, переписал и получил то что нужно. Я получаю в мемо все сообщения хоть и на форме в которой выводился русский текст смс происходит ошибка. Но мне этого не надо так как я писал управление компьютером дистанционно с мобильника и у меня СМС будет типа "1";"2" и так далее. Тоесть СМС будет приходить жёстко задонное.
ВСЕМ ОГРОМНЕЙШЕЕ СПАСИБО!!!
Особенно я хочу поблагодарить Барнея,за то что так долго мне всё разьеснял. СПАСИБО ТЕБЕ!!!
Выкладываю то что у меня получилось, может кому нибудь пригодится:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untModem, StdCtrls, Spin, ExtCtrls, Math, ActiveX;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure seCOMChange(Sender: TObject);
  private
    { Private declarations }
     FGsmSms: TGsmSMS;
  public
    { Public declarations }
    procedure MemoWrite(AMessage: String);
  end;

var
  Form1: TForm1;


implementation
 uses fmuSMS;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  LSMSs: TSMSMessages;
  i: Integer;
begin
  LSMSs := FGsmSms.GetAllSMS;

  for i := 0 to Length(LSMSs) - 1 do
    frmSMS.ShowSMS(LSMSs[i]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FGsmSms := TGsmSms.Create;
  FGsmSms.OnLog := MemoWrite;
  seCOMChange(Sender);
end;

procedure TForm1.MemoWrite(AMessage: String);
begin
    Memo1.Lines.Add(AMessage);
end;

procedure TForm1.seCOMChange(Sender: TObject);
begin
   FGsmSms.PortNum := StrToInt(Edit1.Text);
  FGsmSms.TimeOut := STRTOINT(Edit2.Text);;
end;

end.

Так же выкладываю проект.
Ещё раз спасибо Барнею!!!!!!!!!!

[vovken1997]

У меня на компе какая-то прога не дает открыть порт модема. Как определить какая???

[vovken1997]

Всем привет!!! Господа программисты, почему у меня Коннект менеджер видит смс на симке и читает все локальные смс, а те исходники с Хабра пишут
OPEN: Success
WRITE: AT+CMGF=1

WRITE: AT+CMGL="ALL"

READ:
CLOSE: Success
OPEN: Success
WRITE: AT+CMGF=1

WRITE: AT+CMGR=0

READ:
CLOSE: Success
и ничего не читают?

[BARNEY]

у тебя не хватает действия.... после READ:
он выводит либо ОК либо тело смс (Если исходники не правил)

[vovken1997]

Все, разобрался. Модем был на другом порту, а я привык если порт открыл значит все должно работать.
Спасибо!!!