|
cool1
|
Дата: Суббота, 07.01.2012, 12:41 | Сообщение # 1
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
Привет, мне нужно было получить MD5 некого файла...
Вот мой код:
Code
Edit1.Text := MD5DigestToStr(MD5File(opendialog1.FileName))
Почему-то не компилиться) 
В чем ошибка? Подскажите пожалуйсто)
За помощь + 
За помощь ставьте +!
|
| |
|
|
|
Neo
|
Дата: Суббота, 07.01.2012, 13:52 | Сообщение # 2
|
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 316
Статус: Offline
|
Лучше так:
Code
if OpenDialog1.Execute then
Edit1.Text := MD5DigestToStr(MD5File(opendialog1.FileName))
P.S А у тебя есть модуль для работы с md5?Если нет,то держи.
|
| |
|
|
|
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 не рабочий был(
За помощь ставьте +!
|
| |
|
|
