<?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='\
Черт возьми ! Знакомые буквы : «if «, «begin»,»end».
Смахнул слезу… Спасибо , Аркадий.
(1) 😀 Однако, это не первая моя с такими словами 😉
Уже были
(2) Ты бы лучше написал пример использования.
Вот мы открыли окно командой Форма.Открыть().
Каких 1с -овских возможностей нам не хватает , чтобы им управлять ?
Зачем мне это нужно
«При помощи сабклассинга можно организовывать контроль ввода, блокировку закрытия окна » ?
Ведь в «1с» есть соответсвующие события и обработчики к ним .
(3) Вообще-то примерчики использования есть в описании к Miracle.
Например:
Примечание: ничего страшного! 😉 после обработки в новой процедуре события WM_PARENTNOTIFY
вызывается старая (родная ) оконная процедура
Обработка события WM_PARENTNOTIFY позволяет отследить создание/разрушение форм.
Генерирует внешние события
Источник=»MiracleV8_MDI»
Событие = «FormCreate» (рождение) или «FormDestroy» (смерть)
Данные: для FormCreate — хэндл новой формы,
для FormDestroy — заголовок формы и через запятую хэндл
Последовательность процедур при рождении формы:
ПередОткрытием() // 8.1
ПриОткрытии()
FormCreate // что-то вроде ПослеОткрытия()
Пример глобального контроля на любые формы (отчеты, обработки, журналы, документы…)
// ГМ
Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)
Если Источник=»MiracleV8_MDI» Тогда
ЗаписьЖурналаРегистрации(Событие+» «+Данные);
КонецЕсли;
КонецПроцедуры
Аналог ПослеОткрытия() на форме (8.1)
Процедура ВнешнееСобытие(Источник, Событие, Данные)
Если Событие=»FormCreate» Тогда
L.SetTrackBar(Ширина-10,255);
L.TrackPosition(255);
КонецЕсли;
КонецПроцедуры
Показать
А именно примерчик из статьи используется для динамического создания в последней редакции библиотеки (не опубликовано) любого меню для 7.7 и получения реакции на него в программе.
P.S. А
не моё, а из Википедии 😉
+(4) Добрый АЛьФ приделал к 7.7 своим формексом ПослеОткрытия(), а в 8x такой нема (бе-бе-бе)
(3) Понятно. Но.
Ты пишешь :
Если я правильно понял в Данных сидит Handle и тогда :
Процедура ВнешнееСобытие(Источник, Событие, Данные)
Если Событие=»FormCreate» Тогда
Данные.SetTrackBar(Ширина-10,255);
Данные.TrackPosition(255);
КонецЕсли;
КонецПроцедуры [/1C-CODE]
Так ? Иначе непонятно откуда взялся «L».
Слушай , как -то в обработке мне позарез нужно было узнать открыто в данный момент окно определенного документа или нет ? Это можно ?
(6) L — это переменная класса библиотеки. Из тестовой базы.
ЗагрузитьВнешнююКомпоненту(Путь+»MiracleV8.dll»);
Примечание: первый раз 1С обязательно должна быть запущена с правами локального администратора (1С производит регистрацию в реестре)
Создание объекта:
8.1 L=ПолучитьCOMОбъект(«»,»AddIn.MiracleClass»);
7.7 L=СоздатьОбъект(«AddIn.MiracleClass»);
Примечание: L (или любая другая) — переменная для обращения к методам библиотеки.
Давай я тут не буду по новой про Miracle рассказывать? 😉
(7) Ок
Просто как приложение ни к селу, ни к городу 😉
Для Дельфи решил нарыть иконок/картинок из Общих в конфе 8.1
А что, разве для 8.1 можно перехватить handle главного окна? вернее, перехватить то можно, но внешними средствами, а в технологии ВК для 1С они убрали интерфейс работы с главным окном!
(10) Уффф… у одного строковое dbf -поле больше 254 символа не читается восьмерочным XBase, другой говорит «убрали» 😀
Метод GetAppMainFrame не убрали, остальные убрали.
Для 8.2 вообще по другому искать надо, но никакой проблемы в этом не вижу.
2(11): под 8-ку я ВК не писал, в описании к ВК 2.0 вычитал… получить главное окно можно и средствами WinAPI, а вот как затулить свою форму в рамки этого окна, в рамках технологии ВК от 1С, это уже вопрос!
(12) Даже близко не вопрос 😉
Miracle же работает с формами и 7.7, и 8.1, и 8.2
а на рамки их технологии я положил еще году в 2001-ом 😀
2(13): это хорошо 😎
2(13): ложить конешно можно на все что угодно, некоторые даже ложуть на жисть, тока плохо это кончается… как быть увереным, что при использовании данной ВК вдруг не выпрыгнет некий интересный глюк, в самый, что нинаесть не подходящый момент… и спросить то с не кого 😉
(15)
Тогда срочно выброси formex, сpp, все душеловские. Они-то точно не в рамках, поэтому и компоненты, а не детские забавы.
Ты мне скажи, мил человек, ты разрулил все таки 8-очный класс окна? Кнопки выковырял?
Уважаемый, как показала практика лучше использовать хуки!!!
(18) ЧЬЯ практика показала? Твоя, Гейтса, Ерохина Андрюхи?
Abadonna, сначала научись уважать и слушать собеседника.
(20)
1. А что было слушать? Безапелляционное заявление, что хуки лучше и амба?
2. Кого мне уважать, я сам решаю. А тут, извини, информации маловато:
zavedeev
Рейтинг: 0
Рейтинг за программы: 0
Рейтинг за статьи: 0
3. Я конкретно спросил, чей опыт показал, что хуки лучше? И что тут обидного? И Ерохина там не зря в пример привел: он активно использует и хуки, и сабклассинг. Равно, как и я.
вообще говоря безграмотно писать
if TheMessage = XXX then begin
end;
if TheMessage = XXX then begin
end;
поскольку это ненужные проверки, это конструкция описывается Case-ом.
Далее, нормальной практикой вызова функций API, подобных GetMenuString, является два вызова — первый с длиной =0, далее — резервирование буфера под требуемую длину, и второй вызов — уже получение данных. А за такое как в статье более опытные товарищи отпускают шалбаны.
К тому же, если уж пишем типа «статья для новичков», то нужно написать про восстановление родной оконной процедуры
(22)
if TheMessage = XXX then begin
Просто стоял сначала один if, потом понадобился второй, на case было лень переделывать.
А
и
недостаточно?
Использование нединамического массива с запасом мне всегда нравилось, использовал и буду использовать! 😉
При уничтожении объекта компоненты адрес оконной процедуры указывает в небо. Это может привести к чему угодно, если оконная процедура успеет вызваться.
А насчет любви к статическим буферам, тут еще одна серьезная ошибка.
Читаем букварь (
nMaxCount [in] The maximum length, in characters, of the string to be copied.
If the string is as long or longer than lpString, the string is truncated and the terminating null character is added.
Вопрос: где в памяти будет размещаться терминирующий ноль, если строка меню длинее или равна 256 символов (а буфер у нас только на 256)? Такую глюкотину сложно искать и легко предотвратить, если сразу писать некривой код.
Под восстановлением оконной процедуры я имел ввиду возврат на место
SetWindowLong(h1C, GWL_WNDPROC, Old1CWindowProc) при разрушении компоненты
Спасибо, использовал в своей ВК.
(0)
Аркадий.
Решил я вспомнить детство. 😉 Попробовать перехват клавиши Esc (прерывание «выполнения») таким способом в ВК для «1С 7.7». В сути методики, вопрос восстановления «родного» адреса оконной процедуры — дребезжит. Думаю, есть шанс восстановить НЕЧТО, если в сеансе 1С-а «кто-то» еще пользуется аналогичным методом. Но, это можно отследить и/или заменять/восстанавливать адрес не на всё время «жизни» ВК. А, вот, нажатие Esc у меня не получается отследить. Не могу понять… 🙁 Последовательность сообщений в окно поступает, мне мало понятная. Может в окно, полученное через «интерфейс IExtWndsSupport»(с), это сообщение не доходит (грубо говоря)?
Извини меня, пожалуйста, за глупый мой вопрос. Не специалист я по взламыванию «форточек». 😉 Ткни, пожалуйста, пальцем — где копать. Если на это у тебя уйдет твоего времени не более одной минуты…
(28)
__________________________________
«Воровать ничего не надо, всё уже украдено до вас» ©»Операция Ы» 😉
//……………
L.KbdHook();
Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)
Если Источник=»MiracleV8_KbdHook» Тогда
Если Событие=»KEYDOWN» Тогда
Сообщить(«Нажата клавиша с кодом «+Данные);
КонецЕсли;
Если Событие=»KEYUP» Тогда
Сообщить(«Отпущена клавиша с кодом «+Данные);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
—————————————
function KeyboardProc(code: integer; wParam: word; lParam: longint): longint; stdcall;
begin
if lParam < 0 then begin
pEvent._AddRef;
pEvent.CleanBuffer;
pEvent.ExternalEvent(‘MiracleV8_KbdHook’, ‘KEYUP’, IntToStr(wParam));
end
else begin
pEvent._AddRef;
pEvent.CleanBuffer;
pEvent.ExternalEvent(‘MiracleV8_KbdHook’, ‘KEYDOWN’, IntToStr(wParam));
end;
Result := 0;
end;
function TMiracleClass.KbdHook: Integer;
var ThrID, PrID: DWORD;
begin
if KbrdHook > 0 then begin
ShowMessage(‘Hook уже установлен’);
RESULT := KbrdHook;
exit;
end;
ThrID := GetWindowThreadProcessId(h1C, PrID);
KbrdHook := SetWindowsHookEx(WH_KEYBOARD, @KeyboardProc, 0, ThrID);
RESULT := KbrdHook;
end;
(29)
«всё уже украдено до вас»(с)
Это — точно! 🙂
L.KbdHook();
{Обработка.новый1.ФФорма.Модуль(2)}: Поле агрегатного объекта не обнаружено (KbdHook)
Тренировался вот на этих кошечках:
Аркадий.
Что касается текста на пасЦале, это понятно и полному … , т.е. — мне. 🙂
Но, я пробовал подобный прием в коне прошлого века. 😉 Тогда у меня не получилось…
Надо было перехватить (блокировать) в момент выполнения, например, такого цикла:
Для Н=1 По 1000000 Цикл
Состояние(Н);
КонецЦикла;
Тогда ОНО у меня не получилось «твоим» способом. Я решил, что проблема во мне. 😉 И завязал с этим способом. Нашёл другое решение… Очень хлопотное. 🙁 Вот решил вернуться к этой «проблеме» через «Сабклассинг главного окна 1С».
Потрать, пожалуйста, еще одну минутку на меня. 😉
Проверь в твоей ВК отлов прерывания в моём примере цикла. Надеюсь, что на твоём ПК в твоей ВК еще не украли метод KbdHook(). Если ловит, тогда я буду упираться в «твою» методу перехвата уже в своей ВК. Может я за десять лет поумнел, и у меня теперь получится… 😉
(30)
Качать надо с сайта автора, а не где попало :)))
В цикла, да еще для MDI-ного приложения никакие хуки не прокатят. В цикле главному окну WM_KEYDOWN не приходит вообще. Перед появлением окошка 1С «Прервать…?» приходит сообщение WM_WINDOWPOSCHANGING (как раз потому что позиция главного окна в Z-ордере будет меняться). Вот тут (и достаточно через ж…) надо гасить модальное окно 1С. Другого способа пока не вижу.
(31)
Аркадий.
Огромное тебе спасибо за участие в моих бедах. 😉
Буду пробовать погрузиться в проблему указанным тобой направлением — через ж…
Странно, что за всё время существование «семерки» не появилось решение этой «проблемы». Точнее, есть одна ВК. Пробовал. Были проблемы. Отказался от её использования…
(32) Лови. Через ж, но работает безотказно
(33)
Аркадий.
Как с тобой скучно… 😉 Всё ты знаешь, всё — можешь. 🙁
По сути — что надо. А по жизни — у меня возникают вот такие смешные последовательности:
Процедура Сформировать()
L.SetNew1CWindowProc();
L.SetNew1CWindowProc();
До=100000;
Для А=1 По До Цикл
Состояние(«»+А+ » из «+До);
КонецЦикла;
L.RestoreMainProg();
L.RestoreMainProg();
L.RestoreMainProg();
КонецПроцедуры
Т.е. требуется четко отслеживать «парность» вызовов. Если включена блокировка — не включать её еще раз. Аналогично, при отключении блокировки. Отслеживать это глобальной переменной не есть хорошо. Юзера успевают нажать Esc между операторами включения признака и самой сутью алгоритма. 😉 Именно на это я и напоролся в своем (теперешнем) алгоритме «логического отслеживания» нажатия клавиши Esc. Еще важный момент — блокировка может выполниться в одной диалоговой форме (грубо говоря), а отмениться в другой. Такие ситуации отработают нормально?
P.S. Кусочком текста этой методики на пасЦале, поделишься?
(34) уже сделал красиво… доточу — сообщу
(34) Качай
Все оказалось проще, без сабклассингов
(36)
Аркадий.
Огромное тебе спасибо!
P.S. Очень хоЦа узнать метОду… 😉
(37)
Тогда и общайся, где положено 😉
На Инфостарте я не склонен больше ничего публиковать
(38)
Мой вопрос и туда положен
о… 😉(39) Там я тебе в личку и написал. Ежели еще вопросы — туда же