<?php // Полная загрузка сервисных книжек, создан 2024-01-05 12:44:55
global $wpdb2;
global $failure;
global $file_hist;
///// echo '<H2><b>Старт загрузки</b></H2><br>';
$failure=FALSE;
//подключаемся к базе
$wpdb2 = include_once 'connection.php'; ; // подключаемся к MySQL
// если не удалось подключиться, и нужно оборвать PHP с сообщением об этой ошибке
if (!empty($wpdb2->error))
{
///// echo '<H2><b>Ошибка подключения к БД, завершение.</b></H2><br>';
$failure=TRUE;
wp_die( $wpdb2->error );
}
$m_size_file=0;
$m_mtime_file=0;
$m_comment='';
/////проверка существования файлов выгрузки из 1С
////файл выгрузки сервисных книжек
$file_hist = ABSPATH.'/_1c_alfa_exchange/AA_hist.csv';
if (!file_exists($file_hist))
{
///// echo '<H2><b>Файл обмена с сервисными книжками не существует.</b></H2><br>';
$m_comment='Файл обмена с сервисными книжками не существует';
$failure=TRUE;
}
/////инициируем таблицу лога
/////если не существует файла то возврат и ничего не делаем
if ($failure){
///включает защиту от SQL инъекций и данные можно передавать как есть, например: $_GET['foo']
///// echo '<H2><b>Попытка вставить запись в лог таблицу</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>$m_mtime_file,'last_size_upload'=>$m_size_file,'comment'=>$m_comment));
wp_die();
///// echo '<H2><b>Возврат в начало.</b></H2><br>';
return $failure;
}
/////проверка лога загрузки, что бы не загружать тоже самое
$masiv_data_file=stat($file_hist); ////передаем в массив свойство файла
$m_size_file=$masiv_data_file[7]; ////получаем размер файла
$m_mtime_file=$masiv_data_file[9]; ////получаем дату модификации файла
////создаем запрос на получение последней удачной загрузки
////выбираем по штампу времени создания (редактирования) файла загрузки AA_hist.csv, $m_mtime_file
///// echo '<H2><b>Размер файла: '.$m_size_file.'</b></H2><br>';
///// echo '<H2><b>Штамп времени файла: '.$m_mtime_file.'</b></H2><br>';
///// echo '<H2><b>Формирование запроса на выборку из лога</b></H2><br>';
////препарируем запрос
$text_zaprosa=$wpdb2->prepare("SELECT * FROM `vin_logs` WHERE `last_mtime_upload` = %s", $m_mtime_file);
$results=$wpdb2->get_results($text_zaprosa);
if ($results)
{ foreach ( $results as $r)
{
////если штамп времени и размер файла совпадают, возврат
if (($r->last_mtime_upload==$m_mtime_file) && ($r->last_size_upload==$m_size_file))
{////echo '<H2><b>Возврат в начало, т.к. найдена запись в логе.</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>$m_mtime_file,'last_size_upload'=>$m_size_file,'comment'=>'Загрузка отменена, новых данных нет, т.к. найдена запись в логе.'));
wp_die();
return $failure;
}
}
}
////если данные новые, пишем в лог запись о начале загрузки
/////echo '<H2><b>Попытка вставить запись о начале загрузки в лог таблицу</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>0, 'last_size_upload'=>$m_size_file, 'comment'=>'Начало загрузки'));
////очищаем таблицу
$clear_tbl_zap=$wpdb2->prepare("TRUNCATE TABLE %s", 'vin_history');
$clear_tbl_zap_repl=str_replace("'","`",$clear_tbl_zap);
$results=$wpdb2->query($clear_tbl_zap_repl);
///// echo '<H2><b>Очистка таблицы сервисных книжек</b></H2><br>';
if (empty($results))
{
///// echo '<H2><b>Ошибка очистки таблицы книжек, завершение.</b></H2><br>';
//// если очистка не удалась, возврат
$failure=TRUE;
wp_die();
return $failure;
}
////загружаем данные
$table='vin_history'; // Имя таблицы для импорта
//$file_hist Имя CSV файла, откуда берется информация // (путь от корня web-сервера)
$delim=';'; // Разделитель полей в CSV файле
$enclosed='"'; // Кавычки для содержимого полей
$escaped='\
Иногда хочется с минимальными усилиями добавить какой-нибудь интересный метод для работы с 1С, но писать каждый раз компоненту по технологии создания внешних компонент (ТСВК) от 1С достаточно трудоемко, да и иногда просто лень разбираться. Между тем, написать обычную (не COM, и не AciveX) DLL в состоянии практически любой программист. Кроме того, использование обычной DLL имеет несомненный плюс, заключающийся в отсутствии регистрации ее в реестре, что снимает проблемы недостаточности прав у пользователей без локальных административных прав на данную машину.
Перейти к публикации
Хоть бы кто высказался 😮
Скачал, но еще не проверял, за идею +
(0) Уважаемый Абадонна !
Правильно ли я понимаю, что, если у меня есть свои DLL-ки, написанные на С++ и Ассемблере (ну, типа,
для графики и обмена данными), то можно их спокойно пристегнуть к 1С-базе с помощью Вашего «посредника» ?
Если да, то это просто бальзам на душу… 🙂
Жаль, что +100 тут не допускается…
(3) Просто так пристегнуть не получится.
Функции Вашей длл обязательно должны быть полностью аналогичны по параметрам из файла-примера *.dpr
Но уж внутрь туда можно спокойно накопипастить всё из тех длл
(1)
_____________________________________
(с) Булгаков 😉
(4) Да у меня, насколько помню (давно было :))
больше трех входных параметров и не использовалось.
И вообще старался через адреса блоков параметров работать…
(6) Параметров пять я взял с супер запасом. Но дело не только в количестве.
Самое главное, каждая функция должна иметь именно такой вид, и никакой иначе
function ИмяФункции(param1,param2,param3,param4,param5:olevariant):olevariant; stdcall;
Т.е. параметров обязательно 5 (другое дело, что их можно не использовать), параметры обязательно вариантного типа, возвращаемое значение — тоже вариантного типа. Иначе сам DLL_Loader не поймет, что он вызывает.
А уж в внутри этой функции в нашей обычной DLL можем писать, что угодно, используя (или не используя) param1-param5.
Можно, например, из нее вызвать «родную» функцию, скопированную из другой длл, передав в нее что надо через param1-param5.
Т.е. получится еще одна прокладка: DLL_LOADER вызвал экспортную функцию нашей обычной DLL, эта функция вызвала скопированную откуда-нибудь
неэскпортную функцию, результат вернула в LOADER, а уж тот — в 1С.
Может, излишне подробно написал, но во избежание 😉
Кстати, вчера поленился проверить, думаю, что в нашей экспортной функции можно через LoadLibrary вызвать еще какую-нибудь dll, вызвать метод, и вернуть результат в LOADER-1C
Аналог ?
(9) Первый раз про такой слышу…
(8) я думаю, что нет, dynwrap не ВК, а просто com компонента…
это ВКwrap …прикольно…
Именно, чтобы уйти от мерзкого regsvr32 я и освоил в свое время ТСВК.
ЗагрузитьВнешююКомпоненту как-то поприличнее будет (в контексте 1С)
а принципиальные отличия — все-таки, для чайника?
(13) Отличия от чего? От неизвестной мне доселе dynwrap?
Ну ладно, сходу:
Вчера утром в голову @@нуло, в обед было готово.
Родные интерфейсы 1С (тот же IAsyncEvent) dynwrap получит? Да никогда.
Ну и т.д. А что идеи примерно совпали — дык все идеи в воздухе витают
😀 Прошу считать мой неловкий вопрос желанием разобраться в отличиях ВК и СОМ.
ВК — может быть и COM, и АсtiveX, и просто dll
Смотря применительно к чему. В данном случае DLL_LOADER — COM, но со стандартной загрузкой в 1С. Если к нему приделать, например, afx-окно, он будет уже фактически ActiveX.
MiracleV8 — фактический ActiveX, но с возможностью стандартной загрузки. Тем не менее, к ее методам (так 1С сама по ЗагрузитьВнешнююКомпоненту производит регистрацию в реестре)
можно обращаться и из любых других программ, из той же Дельфи через CreateOleObject
Если я правильно поняла, по крайней мере, для 7-ки, у пользователя, не имеющего прав на регистрацию dll в реестре нужно строить трехэтажную конструкцию из vkloader-а, dllloader-а и конкретной dll?
А с 8-кой эта проблема так и остается неразрешимой?
(17) vkloader разве не требует регистрации? что-то одно уже должно быть зарегено под полными правами. Или vkloader, или dllloader, или та же MiracleV8, у которой есть метод
RunAs, который позволяет запустить любую прогу (в т.ч. и regsvr32) от имени и с паролем админа.
Кстати, обычная V7Plus тоже фиг зарегится/запустится без локальных админских прав.
Это вовсе не проблема 1С, а параметры безопасности Windows и Вашей сетевой политики. Лично мы у себя и в страшном сне представить не можем, чтобы юзверь самолично себе на комп какой софт захотел — такой и поставил. Если каждому юзверишке позволить запись в реестр — это и подумать страшно 🙁
Это из
+[7]
Не поленился, сейчас только проверил. Добавил в SampeDLL
{ус(19)Используем вот это
и никогда никаких проблем с отсутствующими правами.
Если говорить о терминалке (а по серьезному я и не вижу другого использования 1С, а если несерьезно — но можно юзверям и права дать), то там достаточно один раз админу запустить 1С с ЗагрузитьВнешнююКомпоненту и оно прорегится для всех.
Для пользователей Miracle: приделал метод, версия 2.1.2.2
Вызов, работа — один в один, как тут
Может пригодиться. Даже когда-то нужна была.
А нельзя ли, так написать, чтобы не специальную dll писать, а пользоваться уже имеющимися, например так:
DLL.CallDLLMethod(«my.dll», «spec_function», 132, «int32», 132, «int32», «Текст», «wchar*» и ещё аргументов)
либо вместо «spec_function» писать номер импортируемой функции «#3»
а вообще-то в dynwrap это есть
вот было бы Native и возможности как у dynwrap — цены бы небыло. а так — поделка, не более.
не вижу широких возможностей применения
(24) О каких возможностях dynwrap идет речь?
Вызывать API? Так в примере практически одни API и вызываются. Какие еще возможности нужны?
(26)dynwrap обеспечивает работу с любой DLL, а не только с теми, у которых в функциях по 5 параметров
(27) Типа слышал звон, а не знаю, где он?
Пять параметров это в транзитной функции, которая дальше может вызывать, что угодно, и с какими угодно параметрами.
Малой кровью, и ноль трудами обошелся.
А в общем, не нравится — не ешь.
Тем более, я это просто как метод в Миракл прикрутил, а уж та общается… с чем только не общается…
(27) а как вы события будете отлавливать? COM компонента (или ActiveX) и ВК от фирмы 1С это разные вещи…зачем их сравнивать
Помнится делал я , но только для .NET-овских контролов, с отловом событий.
А идея да, хороша )
ИнтерфейсСобытий=LL.Get_IAsyncEvent();
по причине:
Произошла исключительная ситуация (0x8000ffff)
А как с этим бороться? вышло под 8.1
(31)
До этого на 8.1 не проверял, сейчас раз 20 нажал кнопку — никаких проблем.
Количество параметров бы расширить, а то 5 не хватает.
Так всё таки можно ли использовать Events?
(33) Как не пытался придумать, даже для пяти применения найти не смог. Вон в винапи практически двумя дело обходится: Lparam да WParam. В параметр же что угодно затолкать можно, хоть тот же самый СписокЗначений в одноэсовской терминологии
(34) У меня на 8.1 и на 8.2 events без проблем работает. Воссоздать ситуёвину, когда он не работает, так и не получилось. Но не особо-то и старался…
(33)+/35/ Подсказать, как СТО параметров передать? 😉 Делаешь в 1С СписокЗначений, заполняешь там сто значений, и передавай ПЕРВЫМ параметром, а в своей либе уже обрабатывай через TStringList, например. Так что четыре остальных у тебя даже без дела останутся.
Здравствуйте. Уважаемый автор, скажите оптимизирована ли данная ВК под периодический вызов одной и той же функции из одной и той же dll? Т.е. при каждом ли вызове метода CallDLLMethod вызываются LoadLibrary и GetProcAdress? Спасибо.
(38)
Именно так. Не заморачивался 😉
Кстати, и не советую эту использовать, лучше скачать . Там этот метод прикручен, но много еще всяких вкусностей
Удивительная вещь специализация — вызывает к жизни посредников для сокращения затрат
Разочарован. Прочитал громкое название, думал можно готовую любую DLL вызывать, а оказалось только функции по 5 параметров можно, увы…
Придется юзать DynaWrap, спасибо за наводку комментаторам.
Абадона, сделай вызов типизированных параметров, будет удобнее.
Писать DLL-посредник — это не для 1сников, тут и так мозги кипят…
Как можно через DLL_LOADER.dll загрузить dll которая имеет class примерно так:
ЗагрузитьВнешнююКомпоненту(«DLL_LOADER.dll»);
LL=ПолучитьCOMОбъект(«»,»AddIn.DLL_LOADER_CLASS»);
//для примера грузим DLL_LOADER.dll в ней есть класс
DLL_LOADER_CLASS
ПутьDLL=»
DLL_LOADER.dll
«;
// а тут хотелось бы вызвать AboutDLL
через class
DLL_LOADER_CLASS
А=LL.CallDllMethod(ПутьDLL,»
DLL_LOADER_CLASS
:: AboutDLL»,Неопределено,Неопределено,Неопределено,Неопределено,Неопределено);
//Естественно у меня в реальности своя DLL и вызывать саму себя DLL_LOADER.dll
нет необходимости, так для примера
Спасибо с уважением Сергей
sk7777@yandex.ru(39)
не работают ссылки на скачать