Имя: Пароль:
1C
1С v8
Как получить скрин камеры по HTTPS в 1С
0 SherifSP
 
20.06.12
11:09
Получаю скрин камеры по 1С, как можно получить только номер машины которая на этом скрине, можно как то вырезать, или получать скрин в виде текстового документа и от туда вытягивать этот номер?
1 quest
 
20.06.12
11:10
(0) ну примерно так же как на других языках. По тому же так сказать алгоритму
2 quest
 
20.06.12
11:12
+(1) хотя "скрин в виде текстового файла" - это мощно
3 SherifSP
 
20.06.12
11:18
А пример есть?
4 quest
 
20.06.12
11:24
(3) Только в голове. Но если по шагам то так
1. Убедиться что это картинка с машиной
2. Найти место где находиься номер
3. Вырезать это место
4. Преобразовать в текст
5. Вернуть в вызывающую функцию строку с номером.

В принципе самое сложное за тебя я уже сделал. И замет - бесплатно :)
Осталось только написать все это на 1С.
5 mzelensky
 
20.06.12
11:25
(0) а обработку получения картинки с камеры сам писал или нашел?
6 mzelensky
 
20.06.12
11:26
(4) интересна реализация интелектуального распознания машины на картинки?!
7 quest
 
20.06.12
11:28
(6) мне нет. другие интересы.
8 SherifSP
 
20.06.12
11:28
Сам
9 SherifSP
 
20.06.12
11:30
Функция ПолучитьОбертку()
   ХТМЛ = Новый COMОбъект("htmlfile");
   ХТМЛ.Open("text/html");
   //<-- Подготовим нужные методы

   ХТМЛ.Write("<script>
   |var ХТМЛ;
   |Опция=function(x,y,z){var ret=x.Option(y);if(z) x.Option(y)=z; return ret};
   |Записать=function(x,y){x.Write(y.responseBody())};
   |</script>");
   Док=ХТМЛ.documentElement.document;
   // Внедрение объекта Скрипта в самого себя, для сохранности контекста

   Док.script.ХТМЛ=ХТМЛ;
   // Все подготовке -->

   Возврат Док.script;
КонецФункции    // ПолучитьОбертку(Это)


//*******************************************

Процедура Сформировать()
   Это=ПолучитьОбертку();
   ХТТП = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
   
   ХТТП.Open("POST","https://195.225.172.217:8080/screenshot/yUXnR42J?password=",0);

   Это.Опция(ХТТП,2,"Windows-1251");
   Это.Опция(ХТТП,4,13056);
   
   
   ХТТП.SetRequestHeader("Accept-Language", "ru");
   ХТТП.SetRequestHeader("Accept-Charset","Windows-1251");
   ХТТП.setRequestHeader("Content-Language", "ru");
   ХТТП.setRequestHeader("Content-Charset", "Windows-1251");
   ХТТП.setRequestHeader("Content-Type","application/x-www-form-urlencoded; charset=Windows-1251");
   
   ПараметрыПОСТ = "fruit3=apple777";
   
   ХТТП.Send(ПараметрыПОСТ);
   Сообщить(ХТТП.getAllResponseHeaders());
   ИмяФайлаКартинки = "C:\222.jpeg";
   
   Стрим = Новый COMОбъект("ADODB.Stream");
   Стрим.Mode = 3;
   Стрим.Type = 1;
   Стрим.Open();
   Это.Записать(Стрим,ХТТП);
   
   Стрим.SaveToFile(ИмяФайлаКартинки, 2);
   Стрим.Close();

КонецПроцедуры


Процедура КнопкаВыполнитьНажатие(Кнопка)
   // Вставить содержимое обработчика.

   Сформировать();
КонецПроцедуры
10 Vosmerkin
 
20.06.12
11:30
а не проще поискать готовое решение?
11 mzelensky
 
20.06.12
11:31
(8) у меня как-то была задача - получить снимок с камеры нетбука (средствами 1С) и записать на диск.

какие-то наработки нашел в инете, но все было довольно сырым, а времени дорабатывать не было и я забил.
12 Vosmerkin
 
20.06.12
11:33
http://www.icasi.ru/document/106.html#Система идентификации взвешиваемого транспорта
13 Vosmerkin
 
20.06.12
11:34
первое что вылезло в яндухе
14 SherifSP
 
20.06.12
11:35
У меня есть программа, которая все это делает, но не знаю как в код залезть)
15 eduspec82
 
20.06.12
11:40
чем распознается картинка в текст если не секрет?
16 mzelensky
 
20.06.12
11:40
(14) устроиться работать в эту компанию и тайно спи**ть исходники?!
17 SherifSP
 
20.06.12
11:41
(15) Хз программа Trassir
18 SherifSP
 
20.06.12
11:48
19 SherifSP
 
20.06.12
11:50
Хз реально ли самому написать такое)
20 SherifSP
 
20.06.12
13:30
Что никто с таким в 1С не сталкивался?
21 Jofa
 
20.06.12
13:36
(21)Нет нечего не возможного мысли "Материальны"
22 manyak
 
20.06.12
13:40
23 Птах
 
20.06.12
13:44
(0) Ы. Ты б сразу файнридер писал на 1с, чо мелочиться-то.
24 Птах
 
20.06.12
13:45
Распознавание образов ваще довольно сложная тема, это надо решать с помощью какой-то внешней компоненты, поторая будет сама распознавать номера и будет тебе передавать готовую строку с номером.
25 SherifSP
 
20.06.12
14:18
(24) А без внешней компоненты, в пределах самой 1с?
26 quest
 
20.06.12
16:49
если без внешней компоненты то примерно так
Функция ПолучитьНомерМашиныНаКартинке(ИмяФайлаСКартинкой)
 если ЭтоМашинаСНормальноЧитаемНомером(ИмяФайлаСКартинкой) тогда
 возврат ВыделитьНомерИПреобразоватьВТекст(ИмяФайлаСКартинкой);
иначе
возврат "Не получилось определить номер";
конецЕсли;
конецФункции

Остальные 2 функции ЭтоМашинаСНормальноЧитаемНомером, ВыделитьНомерИПреобразоватьВТекст оставляю тебе в виде домашнего задания
27 SherifSP
 
20.06.12
16:54
Дык не осилю(
28 quest
 
20.06.12
16:58
ну не боги горшки обжигают... :)


А если серьезно - то задача сама по себе достаточно сложная алгоритмически.
Может подойдет другой способ идентификации машин? например поставиьт им всем радиометку и считывать при выезде и въезде? или заставить водителя набирать свой номер перед въездом/выездом? Или отказаться от идеи регистрации номеров
30 SherifSP
 
20.06.12
17:01
Мне регистрация не нужна, нужно когда получаю фотку именно с машиной, получить номер) Вот нашел обработку, только не могу скачать( http://forum.infostart.ru/forum24/topic22062/
31 SherifSP
 
20.06.12
17:02
Да можно и с внешней компонентой, но где ее найти, эту компоненту(
32 oleg_prg
 
20.06.12
17:42
смотри вот это http://revolution.allbest.ru/programming/00073162.html
здесь исходники программы на delphi которая реально распознает образы
http://www.delphisources.ru/pages/sources/graph/2005_year/neuro_40.html
33 oleg_prg
 
20.06.12
17:47
А здесь серьезный OpenSources project http://cognitiveforms.ru/products/cuneiform/
34 SherifSP
 
21.06.12
11:19
(33) плохо работает, не все распознает(
35 smaharbA
 
21.06.12
11:24
можно, есть модидок в составе мсо 2003 он бесплатен
36 SherifSP
 
21.06.12
11:34
Можно ссылку плз
37 SherifSP
 
21.06.12
11:35
(35) Его можно вызывать с 1С?