|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
03.02.2014, 00:23 | #61 | |
Пользователь
Регистрация: 28.01.2014
Сообщений: 37
|
ответ
Цитата:
BDA, Аватар !!! полная победа, решил задачу!!! Сначало код : Код:
1) var D:word; begin D:=$5A0A; D:=$2421; D:=$292C; stream.Read(D,2); дальше код выше, стрим естественно ниже, это чтоб понятно было. В общем ситуация в том что word переворачивает байты и читается с право, на лево, а byte читает нормально, поэтому и не получалось, при сверке надо было переворачивать данные, а так получается что сверять несчим, вот она и последнюю позицию ????выяснелось случайно, в Label стал выводить и увидел, вот тут и пришло озарение.Вспомнил про подсчёт, когда писал, почему в перевёрнутом виде. Вот и разгадка. А я себя поливал, что не так условие может ставлю.... Теперь так красиво, всё обошла родную, бегает быстро, к стате походу компонент Xp добавил теперь понял его назначение, кнопочки стали супер!!! Вот так пока решаешь одно, там и другое по ходу идёт. Отдал на тесты всем нравится, но придирчивые программисты , указали на то что не дело что файл не стандартный всё ровно прога грузит и его не открыть в другом редакторе, пока прогу не закроешь, если устранить эту проблему, то она будет совершенной. Я тоже не рад что она загружает нестандартный фай всё ровно, но не знаю как сделать чтоб не только окошко вылезало, а чтоб не грузилась вообще. Типа стоп нестандартному файлу. Вот :fmShareDenyNone – другие приложения могут производить с файлом любые операции. У нас подключена эта функция, но всё ровно не откроешь не стандартный файл в другом редакторе, а вот стандартный, открывается на ура одновременно и в проге и в редакторе. Но что бы не было Вы ребята молодцы !!! считайте победители!!! все уже обалдели о моём продвижении в перёд.Вот так , а книжечки это конечно хорошо, но до Вас им ..... Аватар я включаю мозг, честно, честно и стараюсь!!! И хочу учится! Ребята Вы супер!!!, без Вас ни чего бы не получилось!!! BDA я всё понял что заместо a, надо было D, я просто в первом примере не поменял, но эту комбинацию я тоже пробывал, дело было в другом, теперь решили. А пока не перевернул, было всё ровно что a, что D, данные я то вводил в нормальном формате, а она считывала в перевёрнутом... Теперь бы решить чтоб не загружала не стандартный файл, чтоб отсылала его на ... А о том что писал Аватар я понял сразу и писал в первом сообщении. Последний раз редактировалось Семён-2014@; 03.02.2014 в 00:34. Причина: забыл |
|
03.02.2014, 01:12 | #62 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Выложите тот участок кода, в котором происходит открытие файла.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
03.02.2014, 01:21 | #63 |
Пользователь
Регистрация: 28.01.2014
Сообщений: 37
|
ответ
Выкладываю
Код:
Последний раз редактировалось Семён-2014@; 03.02.2014 в 17:17. Причина: дописать |
03.02.2014, 01:47 | #64 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Так тут нет проверки на размер файла.
http://programmersforum.ru/showpost....4&postcount=19 Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 03.02.2014 в 01:51. |
03.02.2014, 02:37 | #65 | |
Пользователь
Регистрация: 28.01.2014
Сообщений: 37
|
ответ
Цитата:
Проверка проходит и в моём варианте, но всё ровно загружает, сейчас для успокоения совести и Ваш код поставил, опробывал, окошко вылетает предупреждает, всё как и у меня было, но файл всё ровно грузится и в редакторе его не открыть, пишет что занят другим приложением.... Убрал свой, опробывал Ваш, всё бестолку, опробывал две проверки ставить и Ваш код и мой оставить, вылетает окошко от Вашего кода, до моего не доходит, а картина всё таже, файл не открыть, пока прогу не закроешь... К стате сегодня упрёк выслушал, типа убери окошко которое сообщает об удачной загрузке файла, типа лишнее движение, раздражает... убрал. Я тоже не пойму почему файл всё ровно грузится. Помогало одно средство, я ввёл чтоб прога закрывалась, если не тот файл, тем самым обеспечил не загрузку файла не того формата, но пришлось убрать, сказали раздражает, да и сам понимаю что когда в папке прошив куча и свалка, не очень удобно, если каждый раз прога будет закрываться, убрал. Теперь эта проблема остается, я мозг уже весь себе вынес... Последний раз редактировалось Семён-2014@; 03.02.2014 в 02:41. Причина: не дописал |
|
03.02.2014, 03:04 | #66 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Сначала нужно проверять размер файла, а затем уже считать его проверочную сумму, а то можно вылезти за размер файла. Также не нужно использовать assignfile и связанные с ним команды. Не нужно файл отрывать 2 раза. Если остальной код в данной процедуре секретен, то киньте через личные сообщения, а если нет, то выложите тут.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
03.02.2014, 09:02 | #67 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
я выделил красным БЕССМЫСЛЕННЫЙ (он же беcполезный и беспощадный ) код.
Выделенные строки не несут никакого смысла. в одной простой (скалярной переменной) одновременно может находится ОДНО значение. все предыдущие значения затираются. |
03.02.2014, 16:54 | #68 | |
Пользователь
Регистрация: 28.01.2014
Сообщений: 37
|
ответ
Цитата:
|
|
03.02.2014, 17:00 | #69 | |
Пользователь
Регистрация: 28.01.2014
Сообщений: 37
|
ответ
Цитата:
Сергей Вам тоже огромное спасибо за помощь!. |
|
03.02.2014, 17:19 | #70 | |
Пользователь
Регистрация: 28.01.2014
Сообщений: 37
|
ответ
Цитата:
И код весь не лезет пишет много ему, как отправить? Последний раз редактировалось Семён-2014@; 03.02.2014 в 17:45. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
file->HEX HEX->BIN | kakawkin | Общие вопросы Delphi | 1 | 25.04.2012 01:02 |
перевод чисел из hex в bin. ASM. | crashmanx | Помощь студентам | 0 | 25.12.2011 21:35 |
Нужно реализовать программу на Дельфи | Aizada | Помощь студентам | 1 | 16.05.2011 21:45 |
Перевод BIN -> HEX | Piar | Помощь студентам | 2 | 20.05.2009 15:44 |