Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> IP камеры и ONVIF 
:(
    Опции темы
Ketrikken
Дата 1.2.2012, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Доброго времени суток!
Собственно, есть задача работать с камерами через ONVIF. С подобными технологиями раньше не работала, поэтому материал воспринимается тяжело. Вроде изучила SOAP, WSDL. Но куда это прикручивать не пойму. Примерно представляю, как начать работу, но очень хочется посмотреть на пример кода.
Помогите, кто чем может. Можно кодом, можно на словах, можно на пальцах  smile 
PM MAIL   Вверх
Ketrikken
Дата 6.2.2012, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



up
PM MAIL   Вверх
Ketrikken
Дата 8.2.2012, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Все же надеюсь, что кто-то с этим работает. Пока сделала следующее.

Импортировала wsdl с помощью WSDLImporter. 
Изменила в получившемся файле

Код

InvRegistry.RegisterInterface(TypeInfo(IDevice), 'http://www.onvif.org/ver10/device/wsdl', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(IDevice), '');


на 

Код

InvRegistry.RegisterInterface(TypeInfo(IDevice), 'http://www.onvif.org/ver10/device/wsdl', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(IDevice), '');
InvRegistry.RegisterInvokeOptions(TypeInfo(IDevice), ioDocument);


И пытаюсь вызвать функцию

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  dev: IDevice;
  req: GetDeviceInformation;
begin

  HTTPRIO1.url := 'http://192.168.0.90/onvif/device_service';
  HTTPRIO1.HTTPWebNode.UserName := 'root';
  HTTPRIO1.HTTPWebNode.Password := 'pass';

  if HTTPRIO1.QueryInterface(IDevice, dev) = s_ok then
  begin
    req := GetDeviceInformation.Create;
    dev.GetDeviceInformation(req);
  end;
end;


Пишет Ошибкак 404 - http://192.168.0.90/onvif/device_service
Причем ни wsdl ни камера не предоставляют Service и Port.
PM MAIL   Вверх
Ketrikken
Дата 7.3.2012, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Вопрос решен.
PM MAIL   Вверх
gashik
Дата 25.5.2012, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(Ketrikken @  7.3.2012,  12:32 Найти цитируемый пост)
Вопрос решен.

Может поделитесь?  тоже надо
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0656 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.