Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы Поиск в этой теме
Старый 03.04.2021, 02:03   #141
sergey.serg-72
Форумчанин
 
Регистрация: 12.03.2019
Сообщений: 114
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Этот if лишний.
Я так и думал про это что лишнее поставил.
sergey.serg-72 вне форума Ответить с цитированием
Старый 03.04.2021, 02:07   #142
sergey.serg-72
Форумчанин
 
Регистрация: 12.03.2019
Сообщений: 114
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Это тоже лишнее, раз других форматов нет. Эти переменные можно удалить, а сами значения подставить в места упоминания (там или ноль, или одно использование).
Согласен, если отдельно на какой то формат, то да, а , если уже два формата то самое то, то что нужно. В S19 исправил и в S37, а вот где S19 и S28 оставил.
Вот исправленный код на S19.
Вложения
Тип файла: txt исправленный код на S19.txt (1.7 Кб, 1 просмотров)
sergey.serg-72 вне форума Ответить с цитированием
Старый 03.04.2021, 02:10   #143
sergey.serg-72
Форумчанин
 
Регистрация: 12.03.2019
Сообщений: 114
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Лишнее слагаемое, так как адрес двухбайтовый.
Да согласен, просматрел, исправил.
Вот прилагаю ещё две версии : S19, S28 в одной и отдельно S37.
Коды в архивах с программами.
Проверьте и эти .
Вложения
Тип файла: rar Converter_BIN_S19_S28_.rar (465.2 Кб, 1 просмотров)
Тип файла: rar Converter _S37.rar (465.5 Кб, 2 просмотров)
sergey.serg-72 вне форума Ответить с цитированием
Старый 03.04.2021, 02:16   #144
sergey.serg-72
Форумчанин
 
Регистрация: 12.03.2019
Сообщений: 114
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Обновил бы до последних версий Тритон и HxD. Адрес $FFFFFFF вполне корректен.
И главное ! Вы оказались правы , обновил версию Тритона на последнюю, всё теперь отлично и корректно и работает быстрей, даже огромные файлы, стал в два раза быстрей загружать.
Я вообще считаю этот редактор, одним из лучших. Очень удобный.
А HxD новые денег просят, а которая бесплатно, такая у меня самого есть.
Вот не начали бы, так и не обновил бы софт, а потом бы грешил что что то не так сделал, или работает.
sergey.serg-72 вне форума Ответить с цитированием
Старый 03.04.2021, 03:12   #145
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 6,006
По умолчанию

В s37 неверно считаются байты адреса в контрольной сумме - 2 байта из 4 потерялись. Больше ничего не увидел - exe не запускал, только код пробежал глазами.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 03.04.2021, 17:42   #146
sergey.serg-72
Форумчанин
 
Регистрация: 12.03.2019
Сообщений: 114
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
В s37 неверно считаются байты адреса в контрольной сумме - 2 байта из 4 потерялись. Больше ничего не увидел - exe не запускал, только код пробежал глазами.
Да, BDA Вы правы , Косяк допустил и существенный, адрес то при S37 4 байтовый, а при подсчёте контрольной суммы адреса, подсчитывает только два.
А я как раз описывал код и увидел косяк свой, только хотел исправится, а Вы меня опередили ....

Заработался вчера, с одного формата, на другой, поздно вот и на косячил.
Тесты это всё же наиглавнейшее дело .

Исправил всё , можете тестировать, пробежал за одно и по s19-s28, всё хорошо, ошибок больше не нашёл.

Вот ошибка была : sum := count + addr and $FF + (addr shr 8) and $FF + (addr shr 16) and $FF + (addr shr 24) and $FF;
Всё исправил.
Код и программа в архиве.
Вложения
Тип файла: rar Converter _S37.rar (465.6 Кб, 1 просмотров)
sergey.serg-72 вне форума Ответить с цитированием
Старый 04.04.2021, 05:53   #147
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 6,006
По умолчанию

В прошлый раз не заметил - строку "convBar.Visible:=true;" стоит вынести и поставить до цикла while.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 04.04.2021, 16:37   #148
sergey.serg-72
Форумчанин
 
Регистрация: 12.03.2019
Сообщений: 114
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
В прошлый раз не заметил - строку "convBar.Visible:=true;" стоит вынести и поставить до цикла while.
Видимость прогресса , до цикла, исправил .

Завтра зачёт, час пробил.

Если бы не ВЫ BDA, я даже не знаю что бы делали. Гора с плеч прям ....
Нет слов таких, чтоб выразить всю Благодарность Вам , за Вашу помощь и труд !!!
Низкий поклон от всей нашей группы.

BDA, Вы говорили что у Вас есть программа , которая проверяет контрольную сумму строки .

А у меня идея родилась , наверное утопическая , я тут подумал А интересно можно ли написать такую программу, которая бы проверяла контрольную сумму строки , каждой в файле и , если в какой то строке ошибка контрольной суммы ,то программа выводит сообщение, что в такой то строке (10, 5, 2 и.т.д) ошибка контрольной суммы и файл не корректный. Для файлов в формате , srec и hex . А то редакторы просто пишут что ошибка строки и всё, а какой строки? по какому адресу? не пишут. А тут бы точно уже знали бы что файл повреждён на такой то строке и исправить одну строку легче, чем весь файл. Мне кажется такая бы программа была бы востребованной ? Хотя может я и ошибаюсь....
sergey.serg-72 вне форума Ответить с цитированием
Старый 04.04.2021, 19:37   #149
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 6,006
По умолчанию

Цитата:
Сообщение от sergey.serg-72 Посмотреть сообщение
Вы говорили что у Вас есть программа , которая проверяет контрольную сумму строки .
Это просто небольшой скрипт на питоне, который читает построчно строки из стандартного потока ввода, проверяет длину строки на четность и сумму всех байтов.
Код:
from sys import stdin

for num, line in enumerate(stdin, 1):
    line = line.strip()
    if len(line) % 2 == 1:
        print("WRONG LINE LENGTH - %d: %s" % (num, line))
        continue
    sum = 0
    for i, c in enumerate(line[2:], 1):
        n = int(c, 16) * (16 ** (i % 2))
        sum += n
    sum &= 255
    if sum != 255:
        print("WRONG CHECKSUM 0x%x - %d: %s" % (sum, num, line))
print("END CHECK")
Цитата:
Сообщение от sergey.serg-72 Посмотреть сообщение
можно ли написать такую программу, которая бы проверяла контрольную сумму строки
В статье про SREC есть ссылка на программу SRecord, которая сама исправляет контрольные суммы (с установленным флагом ignore-checksums) - http://srecord.sourceforge.net/man/m..._examples.html.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 04.04.2021, 20:15   #150
sergey.serg-72
Форумчанин
 
Регистрация: 12.03.2019
Сообщений: 114
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Это просто небольшой скрипт на питоне, который читает построчно строки из стандартного потока ввода, проверяет длину строки на четность и сумму всех байтов.
Да фактически и редактор при загрузке проверяет, только, если файл повреждён то пишет что ошибка в строке и не загружает, а в какой строке? не пишет. Вот и пришла идея.
sergey.serg-72 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно создать "батник", вырезать из "2.txt" первых n строк и вставить их в "1.txt" temphard Помощь студентам 2 03.09.2013 15:03
Удаление первых n-строк из txt-файла Neksion Помощь студентам 2 10.07.2013 17:12
Создать чтение из файла и запись в файл txt на С++ skifre Фриланс 0 01.06.2012 15:16
поиск и выципление строк из txt файла D_e_n_n Помощь студентам 7 04.02.2011 05:39
C# Представление txt файла как массива строк asheb Помощь студентам 7 20.04.2010 11:51


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS