eXeLab
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 12 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

Русский / Russian English / Английский

Сейчас на форуме: (+1 невидимый пользователь)
 · Начало · Статистика · Регистрация · Поиск · ПРАВИЛА ФОРУМА · Язык · RSS · SVN ·

 eXeL@B —› Вопросы новичков —› ПО на Delphi 4 и фискальный регистратор
Посл.ответ Сообщение

Ранг: 2.0 (гость)
Статус: Участник

Создано: 23 ноября 2017 13:38 New!
Цитата · Личное сообщение · #1

Приветствую народ.
Подскажите пожалуйста новичку. Есть программа написанная на Delphi 4. Исходников её нет, и достать их не представляется возможным.
Что необходимо. В программе есть диалоговое окно с несколькими кнопками, с помощью программы Restorator я добавил новую кнопку Button1, и скопировал в нее функционал существующей кнопки Button. При нажатии на кнопку Button операция в программе закрывается и посылается команда на фискальный регистратор для печати чека. Так вот необходимо что бы на новой кнопке Button1 происходило все кроме печати чека. Что бы операция просто закрывалась. Можно ли это сделать подскажите пожалуйста!!!
Написать заново это ПО я не смогу. А шефы покупать ничего не собираются. И сейчас уже чуть ли мне вменяют некомпетентность, хотя я не программист. Я Itшник, веду сервер, слежу за сетью, НО ТЫЖ ПРОГРАММИСТ блин.
Вообще Button закрывает операцию по наличному расчету и печатает чек, а Button1 должна закрывать операцию по безналу (безнал просто для отчета, операция закрывается также как и для нала) и не печатать чек (в идеале печатать нефискальный чек. Но не до идеалов тут.
Уже думал может возможно перехватить команды которые приходят на COM порт, и те что приходят от Button пропускать на фискальник, а те что приходят от Button1 не пропускать.
Или может какой еще костыль придумать?
Други выручайте!!!
P.S. Кнопку скопировал в Restorator. Вот код от туда:
Code:
  1. object OKBtn: TBitBtn
  2.         Left = 8
  3.         Top = 75
  4.         Width = 185
  5.         Height = 40
  6.         Cursor = crHandPoint
  7.         Caption = 'Закрыть операцию'
  8.         Default = True
  9.         TabOrder = 4
  10.         OnClick = OKBtnClick
  11.         Glyph.Data = { Двоичные данные (для просмотра сохраните файл на диск) }
  12.       end
  13.       object OKBtn: TBitBtn1
  14.         Left = 8
  15.         Top = 130
  16.         Width = 185
  17.         Height = 40
  18.         Cursor = crHandPoint
  19.         Caption = 'Оплата картой'
  20.         Default = True
  21.         TabOrder = 4
  22.         OnClick = OKBtnClick
  23.         Glyph.Data = { Двоичные данные (для просмотра сохраните файл на диск) }
  24.       end

Ранг: 226.3 (наставник)
Статус: Участник

Создано: 23 ноября 2017 13:43 New!
Цитата · Личное сообщение · #2

Ресторатором тут не обойтись, а если нет навыка в реверсе, то только в запросы. Нужно править тело функции OKBtnClick и в зависимости от ID нажатой кнопки, выпонять тот или иной код

Ранг: 2.0 (гость)
Статус: Участник

Создано: 23 ноября 2017 13:47 New!
Цитата · Личное сообщение · #3

TryAga1n пишет:
Ресторатором тут не обойтись, а если нет навыка в реверсе, то только в запросы. Нужно править тело функции OKBtnClick и в зависимости от ID нажатой кнопки, выпонять тот или иной код

Я понимаю, пробовал разобрать с помощью DeDe, но уже понял что обратно не соберу. И исходников нет.
Может реально как то перехватом команды сделать?

Ранг: 505.2 (!)
Статус: Модератор

Создано: 23 ноября 2017 13:53 New!
Цитата · Личное сообщение · #4

IDR

Ранг: 2.0 (гость)
Статус: Участник

Создано: 23 ноября 2017 13:54 New!
Цитата · Личное сообщение · #5

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

Добавлено спустя 1 минуту
sendersu пишет:
IDR

Это программа?

Добавлено спустя 2 минуты
DR (Interactive Delphi Reconstructor) – декомпилятор исполняемых файлов (EXE) и динамических библиотек (DLL), написанных на языке Delphi и выполняемых в среде 32х-разрядных операционных систем Windows.
Это оно?

Ранг: 288.4 (наставник)
Статус: Участник

Создано: 23 ноября 2017 14:39 New!
Цитата · Личное сообщение · #6

Stemn пишет:
может возможно перехватить команды которые приходят на COM порт, и те что приходят от Button пропускать на фискальник, а те что приходят от Button1 не пропускать.


Кассовый аппарат, на время пока хочешь работать в черную, не пробовал от 220 отключать? ))))

Ранг: 2.0 (гость)
Статус: Участник

Создано: 23 ноября 2017 15:10 New!
Цитата · Личное сообщение · #7

Medsft пишет:
Кассовый аппарат, на время пока хочешь работать в черную, не пробовал от 220 отключать? ))))

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

Ранг: 271.6 (наставник)
Статус: Модератор
CrackLab

Создано: 23 ноября 2017 15:11 New!
Цитата · Личное сообщение · #8

Stemn
пиши свои наработки, иначе тема кандидат на закрытие.

Ранг: 226.3 (наставник)
Статус: Участник

Создано: 23 ноября 2017 15:20 New!
Цитата · Личное сообщение · #9

Stemn пишет:
со своих кровных много дать не смогу, так как их немного и семья с детьми.

Улыбнуло
--> Вот тебе специальная тема <-- пиши что нужно, сколько готов заплатить и возможно кто-нибудь возьмется. А данный топик однозначно закрыть, ибо сейчас набегут и будут флудить. Научить реверсу с нуля, в рамках твоей программы конечно можно, но вряд ли найдутся желающие да и это нарушение правил форума. Удачи!

Ранг: 0.3 (гость)
Статус: Участник

Создано: 23 ноября 2017 15:21 New!
Цитата · Личное сообщение · #10

Stemn
В личку глянь.

Ранг: 2.0 (гость)
Статус: Участник

Создано: 23 ноября 2017 15:26 New!
Цитата · Личное сообщение · #11

SReg пишет:
пиши свои наработки, иначе тема кандидат на закрытие.

Да по факту нет у меня наработок, только мысли и проблема которую не могу решить и обращаюсь за помощью. Exe приложения прилагаю. Может кто сможет помочь.

Добавлено спустя 1 минуту
Вот

{ Атач доступен только для участников форума } - 1 Backup1.7z

Ранг: 271.6 (наставник)
Статус: Модератор
CrackLab

Создано: 23 ноября 2017 15:28 New!
Цитата · Личное сообщение · #12

Тема закрыта за нарушение п.3 + 9 правил форума.
 eXeL@B —› Вопросы новичков —› ПО на Delphi 4 и фискальный регистратор
Эта тема закрыта. Ответы больше не принимаются.

Оригинальный DVD-ROM: eXeL@B DVD !

Вы находитесь на форуме сайта EXELAB.RU
Проект ReactOS