Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.03.2012, 15:24   #71
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
По умолчанию

Я походу не правильно юнит подключаю. Знаю что тупой. Как правильно его подключать? У меня в проэкте, на кнопке считывания всех смс возникает проблема что GETALLSMS компании не знает,а в исходниках при нажатой Ctrl он переходит к модулю. Как правильно untModem.pas подключить???
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
vovken1997 вне форума Ответить с цитированием
Старый 17.03.2012, 20:00   #72
Димон_delphi7
 
Регистрация: 13.02.2012
Сообщений: 6
По умолчанию

попробуй untModem в uses прописать
Димон_delphi7 вне форума Ответить с цитированием
Старый 17.03.2012, 20:23   #73
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
По умолчанию

Да ну, а я сам недопер. Я uses целиком скопировал и вставил. В чем может быть дело???
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
vovken1997 вне форума Ответить с цитированием
Старый 17.03.2012, 20:31   #74
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
По умолчанию

А куда должно вывестись смс?
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-

Последний раз редактировалось vovken1997; 17.03.2012 в 20:35.
vovken1997 вне форума Ответить с цитированием
Старый 17.03.2012, 21:15   #75
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
По умолчанию

Я понял, у меня проэкт не хотел компилироваться из-за того что в тех исходниках был создан обработчик событий на создание формы, который я сейчас случайно заметил, переписал и получил то что нужно. Я получаю в мемо все сообщения хоть и на форме в которой выводился русский текст смс происходит ошибка. Но мне этого не надо так как я писал управление компьютером дистанционно с мобильника и у меня СМС будет типа "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.
Так же выкладываю проект.
Ещё раз спасибо Барнею!!!!!!!!!!
Вложения
Тип файла: rar Модем.rar (188.9 Кб, 43 просмотров)
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
vovken1997 вне форума Ответить с цитированием
Старый 21.03.2012, 19:27   #76
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
По умолчанию

У меня на компе какая-то прога не дает открыть порт модема. Как определить какая???
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
vovken1997 вне форума Ответить с цитированием
Старый 31.03.2012, 11:46   #77
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
По умолчанию

Всем привет!!! Господа программисты, почему у меня Коннект менеджер видит смс на симке и читает все локальные смс, а те исходники с Хабра пишут
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
и ничего не читают?
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
vovken1997 вне форума Ответить с цитированием
Старый 31.03.2012, 11:54   #78
BARNEY
Участник клуба
 
Регистрация: 23.04.2009
Сообщений: 1,058
По умолчанию

у тебя не хватает действия.... после READ:
он выводит либо ОК либо тело смс (Если исходники не правил)
Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)
BARNEY вне форума Ответить с цитированием
Старый 31.03.2012, 13:16   #79
vovken1997
Дружелюбный
Форумчанин
 
Аватар для vovken1997
 
Регистрация: 23.02.2012
Сообщений: 692
По умолчанию

Все, разобрался. Модем был на другом порту, а я привык если порт открыл значит все должно работать.
Спасибо!!!
-==ЛЮБОЕ ЗНАНИЕ ДОСТИГАЕТСЯ ТОЛЬКО СОБСТВЕННЫМИ УСИЛИЯМИ!!!==-
vovken1997 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как управлять usb-мышкой Dimaz Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 11 30.03.2011 21:58
Delphi. Вывод данных через USB AlessOn Помощь студентам 9 02.11.2010 23:21
Как управлять в Delphi диспетчером процессов? docbrain Общие вопросы Delphi 6 10.02.2010 08:00
Через Bluetooth управлять микроконтроллером Maxs Микроконтроллеры, робототехника, схемотехника, 3D принтеры 3 25.05.2009 18:54
Есть ли возможность управлять драйвером спец. звуковой карты через длл или как то иначе? chysti Win Api 2 14.02.2008 12:57