Вычисление md5-хэша файла

[VladSh]

а Read массив байтов возвращает, ясно, спасибо!

 

[turumbay]

В LS-классе везде вставил "Me." для дополнительного контроля при НЕиспользовании Option Declare.

не понял... а зачем оно надо? зачем убирать у либы Option Declare?
updated Это примерно как в отключить сообщения об ошибках компиляции, оставив проверку орфографии? ;-)

P.S. А вот тип возвращаемого значения я действительно забыл указать: Public Function getFileHash(fileName As String) As String

 

[VladSh]

не понял... а зачем оно надо? зачем убирать у либы Option Declare?
Это примерно как в отключить сообщения об ошибках компиляции, оставив проверку орфографии? ;-)

Примерно
Я не убираю, а просто туда его не ставлю, т.к. для большинства случаев мне это неудобно.

P.S. А вот тип возвращаемого значения я действительно забыл указать: Public Function getFileHash(fileName As String) As String

Это тоже сразу же поставил)

 

[victorhalf]

Какой тогда нужен для правильного чтения бинарника? EOL_NONE (5)?

В свое время, после непродолжительных боев со стримом, остановился на такой конструкции

Call stream.Open(filename,"binary")
Do While Not stream.IsEOS
st=stream.Read(1)
If st(0)<>0 Then strin=strin & Chr$(st(0))
Loop

тогда нечитабельные символы игнорируются.

 

[VladSh]

тогда нечитабельные символы игнорируются

А это разве подойдёт для вычисления контрольной суммы файла?

 

[rinsk]

Какой тогда нужен для правильного чтения бинарника? EOL_NONE (5)?

text$ = notesStream.ReadText( [ oneLine& ] , [ eol& ] )
Parameters
oneLine&

Optional. Constant of type Long.
STMREAD_LINE (0) reads one line.
Defaults to the entire stream to a maximum of 2GB.
eol&

Optional. Constant of type Long. End-of-line character(s) within the text. The default is EOL_CRLF.
...
EOL_NONE (5) treats nothing as end-of-line.
...

notesStream.ReadText(,5) Всегда читало любые файлы - хоть асски хоть бинари.

 

[victorhalf]

А это разве подойдёт для вычисления контрольной суммы файла?

Это не знаю. Но ты же хотел для чегото получить строку, используя Stream.ReadText?
Просто у меня именно так получилось получить читабельное содержание файла. Никакие EOL_NONE(?) не помогали.
Ну я и подумал может поможет.

Если это я не правильно понял,то забей.

 

[VladSh]

rinsk
Спасибо!

victor.
Решение интересное. Но для контрольной суммы нужно чётко всё содержимое файла.