ПО на Delphi 4 и фискальный регистратор

Сейчас на форуме: Lohmaty, tyns777 (+7 невидимых)

Посл.ответ	Сообщение
Stemn Ранг: 2.0 (гость) Активность: 0.01↘0 Статус: Участник	Создано: 23 ноября 2017 13:38 · Личное сообщение · #1 Приветствую народ. Подскажите пожалуйста новичку. Есть программа написанная на Delphi 4. Исходников её нет, и достать их не представляется возможным. Что необходимо. В программе есть диалоговое окно с несколькими кнопками, с помощью программы Restorator я добавил новую кнопку Button1, и скопировал в нее функционал существующей кнопки Button. При нажатии на кнопку Button операция в программе закрывается и посылается команда на фискальный регистратор для печати чека. Так вот необходимо что бы на новой кнопке Button1 происходило все кроме печати чека. Что бы операция просто закрывалась. Можно ли это сделать подскажите пожалуйста!!! Написать заново это ПО я не смогу. А шефы покупать ничего не собираются. И сейчас уже чуть ли мне вменяют некомпетентность, хотя я не программист. Я Itшник, веду сервер, слежу за сетью, НО ТЫЖ ПРОГРАММИСТ блин. Вообще Button закрывает операцию по наличному расчету и печатает чек, а Button1 должна закрывать операцию по безналу (безнал просто для отчета, операция закрывается также как и для нала) и не печатать чек (в идеале печатать нефискальный чек. Но не до идеалов тут. Уже думал может возможно перехватить команды которые приходят на COM порт, и те что приходят от Button пропускать на фискальник, а те что приходят от Button1 не пропускать. Или может какой еще костыль придумать? Други выручайте!!! P.S. Кнопку скопировал в Restorator. Вот код от туда: Code: object OKBtn: TBitBtn Left = 8 Top = 75 Width = 185 Height = 40 Cursor = crHandPoint Caption = 'Закрыть операцию' Default = True TabOrder = 4 OnClick = OKBtnClick Glyph.Data = { Двоичные данные (для просмотра сохраните файл на диск) } end object OKBtn: TBitBtn1 Left = 8 Top = 130 Width = 185 Height = 40 Cursor = crHandPoint Caption = 'Оплата картой' Default = True TabOrder = 4 OnClick = OKBtnClick Glyph.Data = { Двоичные данные (для просмотра сохраните файл на диск) } end

TryAga1n Ранг: 262.5 (наставник), 337thx Активность: 0.34↘0.25 Статус: Участник	Создано: 23 ноября 2017 13:43 · Личное сообщение · #2 Ресторатором тут не обойтись, а если нет навыка в реверсе, то только в запросы. Нужно править тело функции OKBtnClick и в зависимости от ID нажатой кнопки, выпонять тот или иной код
Stemn Ранг: 2.0 (гость) Активность: 0.01↘0 Статус: Участник	Создано: 23 ноября 2017 13:47 · Личное сообщение · #3 TryAga1n пишет: Ресторатором тут не обойтись, а если нет навыка в реверсе, то только в запросы. Нужно править тело функции OKBtnClick и в зависимости от ID нажатой кнопки, выпонять тот или иной код Я понимаю, пробовал разобрать с помощью DeDe, но уже понял что обратно не соберу. И исходников нет. Может реально как то перехватом команды сделать?
sendersu Ранг: 512.7 (!), 360thx Активность: 0.27↘0.03 Статус: Модератор	Создано: 23 ноября 2017 13:53 · Личное сообщение · #4 IDR
Stemn Ранг: 2.0 (гость) Активность: 0.01↘0 Статус: Участник	Создано: 23 ноября 2017 13:54 · Личное сообщение · #5 я помаю что за меня никто ничего делать не будет, и со своих кровных много дать не смогу, так как их немного и семья с детьми. Может хоть подскажите чем воспользоваться, как правильно это сделать. А я уже сам, да хоть опыта наберусь. Добавлено спустя 1 минуту sendersu пишет: IDR Это программа? Добавлено спустя 2 минуты DR (Interactive Delphi Reconstructor) – декомпилятор исполняемых файлов (EXE) и динамических библиотек (DLL), написанных на языке Delphi и выполняемых в среде 32х-разрядных операционных систем Windows. Это оно?
Medsft Ранг: 330.4 (мудрец), 334thx Активность: 0.16↗0.17 Статус: Участник ILSpector Team	Создано: 23 ноября 2017 14:39 · Личное сообщение · #6 Stemn пишет: может возможно перехватить команды которые приходят на COM порт, и те что приходят от Button пропускать на фискальник, а те что приходят от Button1 не пропускать. Кассовый аппарат, на время пока хочешь работать в черную, не пробовал от 220 отключать? ))))
Stemn Ранг: 2.0 (гость) Активность: 0.01↘0 Статус: Участник	Создано: 23 ноября 2017 15:10 · Личное сообщение · #7 Medsft пишет: Кассовый аппарат, на время пока хочешь работать в черную, не пробовал от 220 отключать? )))) это работа не в черную в том то и дело. Учет в программе ведется, просто когда идет оплата картой то не должен выходить фискальный чек.
SReg Ранг: 315.1 (мудрец), 631thx Активность: 0.3↗0.33 Статус: Модератор CrackLab	Создано: 23 ноября 2017 15:11 · Личное сообщение · #8 Stemn пиши свои наработки, иначе тема кандидат на закрытие.
TryAga1n Ранг: 262.5 (наставник), 337thx Активность: 0.34↘0.25 Статус: Участник	Создано: 23 ноября 2017 15:20 · Личное сообщение · #9 Stemn пишет: со своих кровных много дать не смогу, так как их немного и семья с детьми. Улыбнуло --> Вот тебе специальная тема <-- пиши что нужно, сколько готов заплатить и возможно кто-нибудь возьмется. А данный топик однозначно закрыть, ибо сейчас набегут и будут флудить. Научить реверсу с нуля, в рамках твоей программы конечно можно, но вряд ли найдутся желающие да и это нарушение правил форума. Удачи!
Grin Ранг: 0.3 (гость), 1thx Активность: 0=0 Статус: Участник	Создано: 23 ноября 2017 15:21 · Личное сообщение · #10 Stemn В личку глянь.
Stemn Ранг: 2.0 (гость) Активность: 0.01↘0 Статус: Участник	Создано: 23 ноября 2017 15:26 · Личное сообщение · #11 SReg пишет: пиши свои наработки, иначе тема кандидат на закрытие. Да по факту нет у меня наработок, только мысли и проблема которую не могу решить и обращаюсь за помощью. Exe приложения прилагаю. Может кто сможет помочь. Добавлено спустя 1 минуту Вот 99b6_23.11.2017_EXELAB.rU.tgz - 1 Backup1.7z
SReg Ранг: 315.1 (мудрец), 631thx Активность: 0.3↗0.33 Статус: Модератор CrackLab	Создано: 23 ноября 2017 15:28 · Личное сообщение · #12 Тема закрыта за нарушение п.3 + 9 правил форума.

Для печати