vovksextra 0 Опубликовано: 2007-11-30 18:22:46 Share Опубликовано: 2007-11-30 18:22:46 Перечитал тему по поводу связки билинга с 1С и не придумал ничего лучшего чем написать компоненту под 1С выкладываю пробную версию компоненты и внешнюю обработку (1С77) с примером использования. Документацию и файлик с расширением als выложу когда сделаю )) версия 1.0.0.5 Берем здесь версия 2.0.1.6 (с исходниками) Берем здесь Для желающих оказать материальную поддержку в WMZ: Z339491627945 Для разбора XML структуры были использованы классы (На мой взгляд самые лучшие) реализованные в модуле GsvXml.pas - размер всего 62к (релизация DOM и SAX парсера) Автор Гурин Сергей Сайт автора http://gurin.tomsknet.ru/delphixml.htm В общем обсуждаем здесь PS Отдельное спасибо коллективу сети http://komservice.net/ за оказанную поддержку и моральную и техническую. Ссылка на сообщение Поделиться на других сайтах
egor2fsys 5 Опубліковано: 2007-11-30 21:25:43 Share Опубліковано: 2007-11-30 21:25:43 К сожалению не работает. Ошибка: Сервер сообщает об ошибке: Recv data answer error! Сервер стг - последний. Замечания по самой обработке для 1С: 1) А если логин больше 8 символов ? а если пароль больше 10 символов ? 2) вот здесь Стг.УстановитьПараметрыПодключения ..... лучше применять СокрЛП() для параметров или компонента сама уберет лидирующие и конечные пробелы ? 3) зачем выключена возможность сохранения значений в форме и панель инструментов ? Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-11-30 23:22:50 Автор Share Опубліковано: 2007-11-30 23:22:50 stg-2.402.9.7 + 7.70.025 - проверялось - работает за основу были взяты исходники конфигуратора 1.88.9 1. Проверку на длину строк не делал - незачем - бага всеравно не будет - в сокет передается только то что нужно.Вырезка из кода: var loginZ: array[0..ADM_LOGIN_LEN - 1] of char; ............ ............ begin ......... ......... fillchar(loginZ, ADM_LOGIN_LEN, #0); strncpy(loginZ, login, ADM_LOGIN_LEN); 2. Я использую Trim внутри 3. По-поводу сохранений - включи - я переделывал из другой обработки.)) Это всего лишь наброска сделанная за 5 минут )) Насчет нового сервера - отпиши мне какой конфигуратор используешь я сравню изменения Судя по ошибке - у тебя прошли проверки на заголовок,логин,пароль и даже данные отправил, только вот получить не удалось - нужно смотреть - я поссмотрю в чем может быть проблема И опиши когда ошибка возникает при загрузке таблицы пользователей или при попытке деньги добавить Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-11-30 23:52:05 Автор Share Опубліковано: 2007-11-30 23:52:05 Вдогонку вроде бы нашел свой баг. При получении данных из сокета неправильно определял когда закончить прием. Подправил - забери из шапки обновленную версию (1.0.0.2) - проверь спасибо Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-12-01 07:51:39 Автор Share Опубліковано: 2007-12-01 07:51:39 Вдогонку обновил 1.0.0.3 - эта точно должна работать Ссылка на сообщение Поделиться на других сайтах
egor2fsys 5 Опубліковано: 2007-12-01 08:41:39 Share Опубліковано: 2007-12-01 08:41:39 Все равно таже ошибка Ошибка возникает при нажатии загрузить, т.е. вот здесь: Результат=Стг.ПолучитьТаблицуПользователей(); Сервер - последний от 12 октября, конфигуратор 1.88.9 Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-12-01 09:06:18 Автор Share Опубліковано: 2007-12-01 09:06:18 хм... Скажи полную версию сервера, я проверю. У мну все работает... проверь версию файла (свойства файла) - должно быть 1,0,0,3 и в какой платформе подключаешь? Если на 8-ке попробуй на 7-ке? Ссылка на сообщение Поделиться на других сайтах
egor2fsys 5 Опубліковано: 2007-12-01 09:34:46 Share Опубліковано: 2007-12-01 09:34:46 Версия файла 1.0.0.3. В платформе 7.7 проверяю (в 8 режим идентичности реализован для компонент написанных для 7, так что особой разницы нет). Сервер - еще раз повторяюсь - последний, от 10 октября сего года (http://local.com.ua/forum/index.php?showtopic=9757). Стандартный конфигуратор нормально работает. Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-12-01 10:23:34 Автор Share Опубліковано: 2007-12-01 10:23:34 по-поводу внешних компонент на 7ку и 8ку - я сам знаю )) В следующий раз подправлять не нужно )) 1С - основная моя работа - все остальное хобби )) Проблема где-то здесь то-есть код не видит признак окончания строки и еще раз пытается получить данные из сокета, которыых уже нет ((( По-этому и выдается такое сообщение как у тебя (RECV_DATA_ANSWER_ERROR) где глюк не вижу- может тебе что-то на ум прийдет. У меня все работает .х-з куда рыть дальше function TNetTransact.RxDataAnswer: Integer; var n: Integer; ret: Integer; bufferS: TCryptBuff; buffer: TCryptBuff; j: Integer; Len: Integer; Flag: Boolean; begin n := 0; FStream.Clear; EnDecryptInit(password, strlen(password)); Flag := True; while Flag do begin ret := winsock.recv(outerSocket, bufferS[n], 1, 0); if ret <= 0 then begin winsock.closesocket(outerSocket); strcpy(errorMsg, RECV_DATA_ANSWER_ERROR); result := st_recv_fail; exit; end; inc(n); if n = 8 then begin n := 0; len := 8; Decrypt(@buffer, bufferS); for j := 0 to 7 do if buffer[j] = #0 then begin len := j; flag := False; end; if Len <> 0 then FStream.Write(buffer, len); end; end; FStream.Position := 0; result := st_ok; end; Ссылка на сообщение Поделиться на других сайтах
egor2fsys 5 Опубліковано: 2007-12-01 10:25:24 Share Опубліковано: 2007-12-01 10:25:24 В дельфях не силен, силен только в 1С как и ты, поэтому сказать что-то не могу. Тем более у тебя работает все ок. Попробую с другого компа. Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-12-01 11:27:28 Автор Share Опубліковано: 2007-12-01 11:27:28 Не там искал - баг нашелся чуток раньше Забери 1,0,0,4 и пробуй еще раз )) спасибо Ссылка на сообщение Поделиться на других сайтах
egor2fsys 5 Опубліковано: 2007-12-01 11:40:17 Share Опубліковано: 2007-12-01 11:40:17 Спасибо, теперь заработало. Почему сделана возможность пополнять только на 1 грн ? Компонента платная ? Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-12-01 12:01:22 Автор Share Опубліковано: 2007-12-01 12:01:22 Еще не определились что с ней делать. Просто идея возникла спонтанно и компонента была написана за 3 дня и выложена как бетка. Но навсякий случай сделали ограничение. И еще если у тебя есть время сделаешь als файлик? strSetParamsOfConnection = 'SetParamsOfConnection,УстановитьПараметрыПодключения,ВстановитиПараметриПідключення'; strGetTableUsers = 'GetTableUsers,ПолучитьТаблицуПользователей,ОтриматиТаблицюКористувачів'; strGetUserCash = 'GetUserCash,ПолучитьОстатокПользователя,ОтриматиЗалишокКористувача'; strGetUserName = 'GetUserName,ПолучитьИмяПользователя,ОтриматиІмяКористувача'; strGetUserAddress = 'GetUserAdress,ПолучитьАдресПользователя,ОтриматиАдресуКористувача'; strGetUserTariff = 'GetUserTariff,ПолучитьТарифныйПланПользователя,ОтриматиТарифнийПланКористувача'; strGetUserIp = 'GetUserIp,ПолучитьИППользователя,ОтриматиИПКористувача'; strGetUserPhone = 'GetUserPhone,ПолучитьНомерТелефонаПользователя,,ОтриматиНомерТелефонуКористувача'; strAddUserCash = 'AddUserCash,ПополнитьСчетПользователя,ПоповнитиРахунокКористувача'; strErrorMessage = 'ErrorMessage,СтрокаОшибки,СтрокаПомилки'; думаю разберешься Ссылка на сообщение Поделиться на других сайтах
egor2fsys 5 Опубліковано: 2007-12-01 14:46:54 Share Опубліковано: 2007-12-01 14:46:54 Ок, постараюсь нарисовать алс. Ссылка на сообщение Поделиться на других сайтах
ollegh 4 Опубліковано: 2007-12-03 00:30:52 Share Опубліковано: 2007-12-03 00:30:52 з нетерпінням чекаю нормальної робочої обробки, дуже цікаво )) Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-12-03 06:57:43 Автор Share Опубліковано: 2007-12-03 06:57:43 А чего ждать - в шапке все рабочее - проверяй )) выложил версию 1.0.0.5 - снято ограничение на пополнение счета Планируется выход полноценной компоненты. В серверной части обнаружен мелкий баг - это сдерживает разработку. madf - обещал разобраться с багом ))) Спасибо ему ))) Ссылка на сообщение Поделиться на других сайтах
ollegh 4 Опубліковано: 2007-12-08 22:43:46 Share Опубліковано: 2007-12-08 22:43:46 Пишет неверний пароль ( Ссылка на сообщение Поделиться на других сайтах
egor2fsys 5 Опубліковано: 2007-12-09 08:20:43 Share Опубліковано: 2007-12-09 08:20:43 В самой обработке для 1С ограничена длина логина и пароля. Исправить можно в конфигураторе. Ссылка на сообщение Поделиться на других сайтах
ollegh 4 Опубліковано: 2007-12-09 20:13:32 Share Опубліковано: 2007-12-09 20:13:32 если поставить логин 1 пароль 1 тогда работает )) , нету случайно готовой бази под 1с, штоб там добавлять как в старгейзере ))а не делать щот а потом добавлять вручну с обработки Ссылка на сообщение Поделиться на других сайтах
egor2fsys 5 Опубліковано: 2007-12-09 20:49:54 Share Опубліковано: 2007-12-09 20:49:54 Готовой базы нет. На неделе попытаюсь выложить чуть поправленную обработку для 7.7 и для 8.1. Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-12-10 11:21:59 Автор Share Опубліковано: 2007-12-10 11:21:59 пока не спешите ничего делать пишу полную компоненту Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-12-10 16:00:47 Автор Share Опубліковано: 2007-12-10 16:00:47 Выложил в "шапке" версию 2.0.0.1 читает все данные пользователя. тестим )) Ссылка на сообщение Поделиться на других сайтах
egor2fsys 5 Опубліковано: 2007-12-10 16:38:31 Share Опубліковано: 2007-12-10 16:38:31 А писать умеет все данные ? Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-12-10 16:41:41 Автор Share Опубліковано: 2007-12-10 16:41:41 К концу недели научу писать все поля кроме нескольких (Login,PingTime,LastCash ........), кроме 6-ти Ссылка на сообщение Поделиться на других сайтах
vovksextra 0 Опубліковано: 2007-12-11 07:41:46 Автор Share Опубліковано: 2007-12-11 07:41:46 Выложил в 2.0.0.2 читаем readmy.!!!,history.txt Ссылка на сообщение Поделиться на других сайтах
Рекомендованные сообщения
Создайте аккаунт или войдите в него для комментирования
Вы должны быть пользователем, чтобы оставить комментарий
Создать аккаунт
Зарегистрируйтесь для получения аккаунта. Это просто!
Зарегистрировать аккаунтВхід
Уже зарегистрированы? Войдите здесь.
Войти сейчас