133 читали · 2 года назад
Протокол обмена весового терминала Мидл МИ ВДА/7Я и приложения на Delphi 7 (Pascal).
Добрый день! Думаю, что помогу тем, кто решит создать проект с использованием оборудования данного производителя. Процедуру настройки терминала для работы в режиме команд не буду здесь описывать. Для отправки команды в терминал: var b:array[0..1] of Byte; begin ComPort1.Open; b[0]:= $0A; ComPort1.Write(b[0],1); Sleep(150); Для принятия данных с терминала: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var e,e1,e2,e3,e4,e5,e6, e7, e8, e9, e10, e11, e12, e13, e14, e15, e16, e17, e18, e19 :string; d: array[0...
1 год назад
пишем трейнер на Delphi_11 часть 3
------------------- Ссылки на части: _часть 1 _часть 2 _получаем патч-байты для SCUM.v0.9.113.75065 ------------------- Привет. Продолжаем кодить, создадим необходимые нам структуры record, вверху, сразу после type sections = record ... end; пишем код: type //входит в dataForPatchBytes patchBytesRec = record offsetAdresPatch:DWORD64; //смещение от найденного адреса сигнатуры //отсчёт смещения (true - вычитанием, то есть смещение вверх, иначе в низ) от offsetAdresPatch ...