Пятница, 06.12.2024, 05:21 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
MD5
cool1Дата: Суббота, 07.01.2012, 12:41 | Сообщение # 1
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
Привет, мне нужно было получить MD5 некого файла...
Вот мой код:
Code

Edit1.Text := MD5DigestToStr(MD5File(opendialog1.FileName))

Почему-то не компилиться) biggrin biggrin biggrin
В чем ошибка? Подскажите пожалуйсто)
За помощь + smile



За помощь ставьте +!
 
NeoДата: Суббота, 07.01.2012, 13:52 | Сообщение # 2
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
Лучше так:
Code
if OpenDialog1.Execute then
   Edit1.Text := MD5DigestToStr(MD5File(opendialog1.FileName))

P.S А у тебя есть модуль для работы с md5?Если нет,то держи.
Прикрепления: md5.pas (11.3 Kb)
 
cool1Дата: Суббота, 07.01.2012, 14:15 | Сообщение # 3
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
Code
if OpenDialog1.Execute then  
у меня было, а вот модуля нету!
Спс! как и обещал +



За помощь ставьте +!
 
cool1Дата: Суббота, 07.01.2012, 14:42 | Сообщение # 4
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
У меня просто md5.pas не рабочий был( biggrin


За помощь ставьте +!
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz