VPF::Что с кодом? - Форум программистов

Дима215

Дата 23.7.2014, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 20.7.2014

Репутация: нет
Всего: нет

Код


procedure TMainForm.ShowSDKMsg(const Msg: OleVariant);
  const
    DTMFChars: array[0..15] of Char = ('0', '1', '2', '3', '4', '5', '6',
      '7', '8', '9', '*', '#', 'A', 'B', 'C', 'D');
  var lpMsg: PMSGHeader;
        Str: String;
begin
  lpMsg := VarArrayLock(Msg);
  try
    Str := DateTimeToStr(lpMsg.MsgTime) + ' [0x' + IntToHex(lpMsg.dwMsg, 8) + ']: ';
    case lpMsg.dwMsg of
      SPR_MSG_C_RECORD_START:
        with PChannelMSGRecordStart(lpMsg)^ do
          Str := 'Start: Type: ' + IntToStr(dwRecordType) + ', PhoneFrom: ' +
            cbPhoneFrom + ', PhoneTo: ' + cbPhoneFrom + ', FileName: ' + cbFileName;
      SPR_MSG_C_RING:
        with PChannelMSGRing(lpMsg)^ do
          Str := 'Ring:' + IntToStr(dwRingCount);------------------------------
      SPR_MSG_C_ANI_DETECT: 
        with PChannelMSGPhoneNumber(lpMsg)^ do      Главная часть
          Str := 'ANI: ' + cbPhoneNumber;
      SPR_MSG_C_RECORD_TYPE:---------------------------
        with PChannelMSGRecordType(lpMsg)^ do
          Str := 'Record Type: ' + IntToStr(dwRecordType);
      SPR_MSG_C_DIALLED_PHONE:
        with PChannelMSGPhoneNumber(lpMsg)^ do
          Str := 'Out Phone: ' + cbPhoneNumber;

Пытаюсь вставить какой-нибудь код в ANI DETECT ничего не выходит, выскакивает ошибка константы.

Это сообщение отредактировал(а) Poseidon - 25.7.2014, 08:58

PointerToNil

Дата 23.7.2014, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 17.6.2013

Репутация: 2
Всего: 6

SPR_MSG_C_ANI_DETECT: begin {КОД} end;
SPR_MSG_C_RECORD_TYPE: ...

Дима215

Дата 23.7.2014, 18:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 20.7.2014

Репутация: нет
Всего: нет

Цитата(PointerToNil @ 23.7.2014, 18:12)

SPR_MSG_C_ANI_DETECT: begin {КОД} end;
SPR_MSG_C_RECORD_TYPE: ...

СПАСИБО!!!!!!! Помогло!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »