WebSVN – fastphp – Diff – /trunk/Functions.pas

 function FileSystemCaseSensitive: boolean;
 function HighColorWindows: boolean;
 function GetTempDir: string;
 function GetSpecialFolder(const aCSIDL: Integer): string;
 function GetMyDocumentsFolder: string;
-function md5(value: string): string;
+function MD5(const str: string): string;
+function MD5Stream(const s: TStream): string;
 implementation
 uses
   ShlObj, // Needed for the CSIDL constants
 function GetMyDocumentsFolder: string;
 begin
   Result := GetSpecialFolder(CSIDL_PERSONAL);
 end;
+{$IF gsIdVersion <> '10.1.5'} // Delphi 2007 built-in Indy10; gsIdVersion requires idGlobal.pas
+{$DEFINE NewIndy}
+{$IFEND}
-function md5(value: string): string;
+function MD5Stream(const s: TStream): string;
 var
-  hashMessageDigest5 : TIdHashMessageDigest5;
+  idmd5: TIdHashMessageDigest5;
 begin
-  hashMessageDigest5 := nil;
+  idmd5 := TIdHashMessageDigest5.Create;
   try
+    {$IFDEF NewIndy}
-    hashMessageDigest5 := TIdHashMessageDigest5.Create;
+    result := idmd5.HashStreamAsHex(s);
+    {$ELSE}
-    Result := IdGlobal.IndyLowerCase(hashMessageDigest5.HashStringAsHex(value));
+    result := idmd5.AsHex(idmd5.HashValue(s));
+    {$ENDIF}
   finally
-    hashMessageDigest5.Free;
+    idmd5.Free;
+  end;
-  end;
+end;
+function MD5(const str: string): string;
+{$IFDEF NewIndy}
+var
+  idmd5: TIdHashMessageDigest5;
+begin
+  idmd5 := TIdHashMessageDigest5.Create;
+  try
+    result := idmd5.HashStringAsHex(str,IndyTextEncoding_OSDefault);
+  finally
+    idmd5.Free;
-end;
+  end;
+{$ELSE}
+var
+  ss: TStringStream;
+begin
+  ss := TStringStream.Create(str);
+  try
+    result := MD5Stream(ss);
+  finally
+    ss.Free;
+  end;
+{$ENDIF}
+end;
 end.

Subversion Repositories fastphp

fastphp/trunk/Functions.pas – Rev 71 → 75