1С + работа с сокетами #433524

Всем привет! Есть проблема которую не могу уже решить n - ный день. Имеется посттерминал, обращение к которому ведется посредством TCP-IP протокола. Описание протокола у меня есть. Нужно прикрутить его к 1С 7.7. Нашел 4 метода для организации работы 1С с сокетами но вот проблема в том ни одна из компонент не может получить данные от посттерминала. Думал может терминал не возвращает ответ, для тестирования компонент скачал утилиту NetCat которую запускаю в режиме сервера (nc –l –p 2000, слушаю порт 2000) и на ней тестирую работоспособность компонент. Опробовал такие компоненты и результаты: •    Внешняя компонента LRC_TCP.dll (версия 1.0.0.0), раз через раз подключалась, данные полученные от сервера должны были обрабатываться процедурой ОбработкаВнешнегоСобытия. Работала криво и под конец тестирования она напрочь отказалась работать.  Не подходит •    Внешняя компонента netaInet.dll (версия 1.0.0.4) данные отправляет нормально но почему то не принимает. Для приема данных в глобальном модуле есть процедура Ответ(Стр) Экспорт. Если данные отправлять без ожидания ответа тогда срабатывает если с ожиданием ответа то иногда сообщение отправляется но в ответ ничего не приходит или же просто данные не отправляются. Так же для работы компоненты необходимо наличие констант ПолучатьОтвет и ЖдатьСоединения они у меня установлены в значения 5 и 4 соответственно. Подходит если разобраться с приемом данных •    Внешняя компонента RiK_Inet.dll (версия 1.0.0.0) компонента вроде как продолжение netaInet.dll но почему то когда она отправляет данные она еще добавляет служебную информацию (размер отправленных данных) и опять же не принимает данные. Для получения данных от сервера (то есть от посттерминала) в глобальном модуле есть процедура Инет_СтрокаОтСервера(Стр) Экспорт но почему не срабатывает. Не подходит. •    ActiveX объект MSWINSCK.OCX (версия 6.0.81.69). Файл взял из поставки Microsoft Visual Basic 6 все остальные версии файла ругались на отсутствие лицензии. Данные отправляет нормально но вот не знаю как принять данные. После того как сервер отправит данные переменная BytesReceived изменяется, а вот процедура GetData почему то всегда возвращает пустое значение. Подходит если разобраться с приемом данных Вот остановился на двох компонентах: netaInet.dll и MSWINSCK.OCX. Больше склоняюсь к последней. Ссобственно и два вопроса: - может кто-нибудь подсказать почему netaInet.dll не отправляет данные когда стоит влаг дожидаться ответа - как используя MSWINSCK.OCX отлавливать получение данных от сервера. Заранее благодарен.

Кстати у обработки внешнего события ограничение на длину передаваемой строки. Создавал глобальную переменную в которую помещал строку. Напиши сам ВК.

>>Для получения данных от сервера (то есть от посттерминала) в глобальном модуле есть процедура Инет_СтрокаОтСервера(Стр) Экспорт но почему не срабатывает. Все там работает

Вау. Не знал. И скока?

В самом объекте проще создать возвратное свойтство.

Разве все и упомнишь. Можно, все равно блокирутся до окончания обработки, т.к. сервер может работать не с одним терминалом. Но уже логика была сделана Данные из ОбработкавнешнегоСобытия, а по сути нет разницы где хранить строку.

ну написать свою компоненту идея была но это уже последний вариант, пока что хочется найти ответ на мои вопросы

так почему у netaInet может не срабатывать процедура в глобальном модуле Ответ Экспорт =( уже наверное все варианты перепробовал и как с помощью MSWINSCK.OCX в 1С обработать ответ от сервера тоже не понятно

Возьми лучше RiK_Inet. И подавай ей на вход нужную "служебную информацию".

про RiK_Inet уже писал выше, отсылает ерунду потому что добавляет системную информацию и данные тоже напрочь не принимает =(

Все она принимает. И отсылает не ерунду, а необходимую для работы информацию.

вообще больше склоняюсь к MSWINSCK.OCX, но как отловить прием данных непонятно

так про RiK_Inet я ж не придумал, не один день уже играюсь

у RiK_Inet когда сервер данные отправляет Процедура Инет_СтрокаОтСервера(Стр) Экспорт ничего не показывает

Отправляешь данные не в том формате.

как не в том, что от 1С к серверу строка отправляется и назад от сервера к 1С тоже строку отправляю

Внимательно перечитай свои же слова: "она еще добавляет служебную информацию (размер отправленных данных) "

Отправляю строку без пробелов, а в описании компоненты написано что в начало добавляется размер отправленных данных, ну а почему не принимает непонятно

Ты тихо издеваешься, да?

может скинуть вам пример кода, я не издеваюсь я уже который день парюсь над этой задачей %)

Вот так она отправляет строку, медитируй: . function TRiK_Inet.SendString(var paParams: PSafeArray{(OleVariant)}) : OleVariant; var      if Active = false then begin

так вы принимали участие в ее написании =)) ну подскажите тогда почему когда ОтправитьСтроку(<IPАдрес>, <НомерПорта>, <Сообщение>, 1) процедура в глобальном модуле которая должна обработать ответ от сервера не срабатывает

Я же написал выше - потому что сервер отдает обратно данные не в том формате. Он их дожен отдать так же, как нарисовано в . Данные в другом формате компонента игнорирует.

тогда выходит что с помощью компоненты можно связать две конфигурации 1С использующие RiK_Inet или нужно что бы 3-е приложение отправляло данные в нужном формате (в случае с моим посттерминалом невозможно) ?? =(

Почему? Ч одной стороны может быть 1С, а с другой - другое приложение, которое будет формировать нужный протокол общения.

а тогда понятно почему не было ответа =( значит RiK_Inet для моего случая точно отпадает, у посттерминала свой формат сообщения =( придется искать другие варианты =(

И совсем нельзя научить терминал послать сообщение в нужном формате?

это железяка другой фирмы, начальство принесло мне его и дало задачу связать с 1С, описание протокола мне дали вот и парюсь. А как я понял изготовлен он вообще французами так что лично для меня никто протокол не поменяет =(

Плагиат, это код Гения1С

Тогда еще шарить по инету. Где-то пробегало, как без ВК (кажись на вбскрипте) работать с сокетами из 1С.

Я опять просто под руку попался?

ну шарюсь уже давно вот нашел 4 выше описанных варианта, netaInet тоже получается для данного случая не подходит? она же вроде отправляет просто строку только ответ не приходит у меня лично, как вб скрипт не знаю буду искать но вот MSWINSCK.OCX отправлять отправляет а чтоб получить данные я так понял в 1С событие фиг отловишь %)

Я бы не стал NetaInet юзать... Очень давно писалась, дофига ограничений, есть нестабильность в работе...

+ А в код вообще сейчас стыдно заглядывать...

понятно, спасибо за подсказку. LRC_TCP.dll, netaInet.dll, RiK_Inet.dll значит уже отпали для данного варианта буду дальше мучить гугл, а может вдруг кто нить чего подскажет работающего под мой случай

Ну где же сережа :)))

+36 он щас подтвердит что этот код он в садике написал, пока на горшочке сидел, а ты стырил :)

да неважно кто написал главное что стало понятно почему ответ не приходит в моем случае =)

А, ну да, ну да...

Обычно клиент посылает данные с заголовком где прописывается длина сообщения, для упрощения считывания итд. Некий свой упрощенный протокол. Написать ВК сервер даже долго не писав на нормальных языкан ну максимум час. Этой ветке уже сутки пойдут. Плюс прими меры для обслуживания одновременно нескольких терминалов. Мне пришлось делать свой протокол по верх UDP, очень плохая связь но я и клиента программировал, по  TCP/IP все элементарно зная протокол клиента.

я вот нашел пример как через вбскрипт посылать и принимать данные работает но не совсем то, не знаю или час нужно что бы написать свою компоненту, никогда не пробовал. Поищу примеры может и правда чего нибудь своего напишу =)

Я не верю в чудеса.

<<Мне пришлось делать свой протокол по верх UDP>> Это ты к тому, что UDP как бы пофигу, дошло ли до адресата цельным сообщение, так?

Это ты о чем?

Понял, отстал :)

ты чо привязался к челу, ну не хотел он по UDP работать, начал по ICMP, тебе то что?

Я не верю в чудо написания компоненты. Автором. За 1 час. Да и за день тоже.

Да постоянно рвало соединение. Пришлось делать свой протокол с ожиданием ответа. Зато если сервер выключили а тнминал оставили включенным на утро при включении документ прописывался. А на производстве наводок до хрена.

Это ты зря Берешь   Вот пример правда уже не помню что за вариант. Не рабочий uses begin             if testval<>-1928374650 Then                      except on e:exception do           end      except on e:exception do   end var buf:array of byte; len:Integer; begin  if ClientSocket.Size>ClientSocket.Position then  begin end.

Ну и сама компонента. Код не вычищаю {$WARN SYMBOL_PLATFORM OFF} interface uses procedure TC1SoccetServer5.SendResult(const StringResult: WideString); begin initialization end.

нда за час такое точно не наклепать =)))

Ты просто не умеешь готовить.  При определенной сноровки да гоовыми решениями ...

Пля, опть код у Гения украли.

Мне уже жалко Гения1С, правда не особо то и в курсе, что зесь происходит. Если, что то я ничего у него не крал. Часть кода здесь явно не моя как и комментарии.

Еще один бессмысленный оффтопик за тобой замечу - получишь бан.

Да если еще знаешь, как отлаживать dll-ки в Дельфи. И еще знаешь про косяк, связанный с этой отладкой в версиях младше 7-ой под платформой NT, да еще как его обходить - вообще сказка.

А что за косяк? У меня шестая дельфя и Win2k. Вроде, ничего такого не замечал.

Сначала юнит по любому отлаживаешь в составе проекта, это проще. Есть ShowMessage. Это касается и потоков.  Кстати разные версии по разному отлаживаются. Сейчас нет времени, но перейду на 2009, да и на C# 4 с динамиками тоже не плохо.

Зачем ShowMessage? Если есть Breakpoints и отладка локальных переменных при отключенной оптимизации проекта.

А не отлаживаются dll-ки. Точку останова ставишь - а она - неактивная.

Раз собрался - бань. Мне пофиг.

О как. А чего тогда у меня отлаживаются? :)

Дельфяные не отлаживаются? Помню в 1С++ в отладке сидел без проблем О_о...

Да и в дельфях все отлаживается...

'working   vb code ' Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim sData As String

С потоками помню мучился.

На разных версиях семерки по разному Breakpoints отрабатывает при выключенной оптимизации. Та же проблема была и с потоками.

пример кода для вб скрипт работает а вот что это за WinsockBytesToString ?? просто так Winsock.GetData(sData,8) ничего не возвращает хотя переменная BytesReceived после отправления данных увеличивается и кеш с данными обнуляется

как в 1С отловить событие DataArrival(n) которое происходит в WinSock в момент получения данных %) непонятно, как только разобраться будет решение моей проблемы

Полный код напиши

после отправления данных от сервера переменная Winsock.BytesReceived отображает количество полученных данных но вот метод Winsock.GetData(Ответ) ничего не возвращает

таким способом не удается. и еще по моему средствами 1с невозможна захватить событии от активХ. Вереятность мало , что обращение к WinsockBytesToString нужный момент.(Между прочим -эта произвольная имя) Включи VBscript коды . Или создать новый ВК. Когда надо было употреблять сканнер ШК  в терминальном режиме я выбрал 2-й способ. Могу помочь с ВК.

Если разрывается связь то обращение к ПослатьВинСоксвыдаст сообщение об еррор

Winsock.GetData(Ответ,8); такой фрагмент кода получает получает в переменную ответ пустое значение, так я уже пробовал попробую навалять ВК раньше никогда не приходилось, а вы компоненту на чем писали? я ищу примеры под Visual Studio

не уверен, таим способом  удается еще событии от Winsock :  Error,SendComplete,Close который без них почти что не обойдется... Winsock.State -ами это не легко  и не удобно Я на Vb6 писал

когда давно, пару лет назад писал на C Builder опыта использования других языков нет =) буду искать примеры и по логике менять под свои нужды %)

а у вас имеется пример ВК под Vb ?? =)

Должен А ДЛЛ точно есть

Private Sub Command3_Click Dim s As String s = "erertrt"

КонецПроцедуры так я пробовал не работает, возвращает пустое значение

Нашел перекрасный пример ВК на Vsual Studio (исходники на С шарп). Могу передать. И естественно C Builder  подходит для ВК)

скиньте пожалуйста пример на maximmro@gmail.com

Пожалуйста...