gettingstarted
[Top] [All Lists]

Re[2]: md5 of binary file

To: Getting Started <gettingstarted at lists dot realsoftware dot com>
Subject: Re[2]: md5 of binary file
From: AdaSoft <adasoft at kmtn dot ru>
Date: Fri, 29 Apr 2005 19:06:55 +0400
Delivered-to: gettingstarted at lists dot realsoftware dot com
Organization: CIT AdaSoft Inc
References: <007e01c54bf3$ba7345e0$06370ec4 at valxp> <db3758d20f4238ca7520e91712becd09 at mobleybros dot com> <001f01c54cc0$bb428da0$06370ec4 at valxp>
Hello, Val.

Hm, what's happened with huge size file - 700mb or 1Gig?

VR> Working example below :

VR>   Dim f as Folderitem
VR>   Dim result As String
VR>   Dim stream as BinaryStream
VR>   f=GetFolderItem("login.dll")
VR>   If f<>Nil then
VR>     if f.Exists then
VR>       stream=f.openasbinaryFile(False)
VR>       result =  stream.Read(stream.Length)
VR>       stream.close
VR>       MsgBox(MD5(result))
VR>     Else
VR>       MsgBox("File does not exist")
VR>     End if
VR>   End if



-- 
  Nikolay Kuznetsov

RealBasic 5.5.5 Pro for MS Windows

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

<Prev in Thread] Current Thread [Next in Thread>