MD5 - delphicode

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024

MD5 (получение MD5)

MD5

cool1

Дата: Суббота, 07.01.2012, 12:41 | Сообщение # 1

Участник

Зарегистрирован: 14.07.2010

Группа: Пользователи

Сообщений: 238

Статус: Offline

Привет, мне нужно было получить MD5 некого файла...
Вот мой код:

Code

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

Почему-то не компилиться) 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

За помощь ставьте +!

MD5 (получение MD5)

Страница 1 из 1
1