Delphi procedura

procedure doSHA(pbDATA : PChar; DataLen : Cardinal; dig : PChar); stdcall; external 'svcrypt.dll';
procedure doSHAOnFile(Filename : PChar; dig : PChar); stdcall; external 'svcrypt.dll';

(svcrypt.dll mora biti u sistemskom folderu. Ako nije onda treba napisati full path, npr. "C:\Obrazac\svcrypt.dll").






Visual basic procedura

ako je pozivate kao funkciju
Declare Function doSHAOnF$ Lib "svcrypt" Alias "doSHAOnFile" (ByVal filename As String, ByVal dig As 
String)
Declare Function doSHAOnF& Lib "svcrypt" Alias "doSHAOnFile" (ByVal filename As String, ByVal dig As 
String)
Declare Function doSHAOnF% Lib "svcrypt" Alias "doSHAOnFile" (ByVal filename As String, ByVal dig As 
 
ili kao proceduru 
 
Declare Sub doSHAOnF Lib "svcrypt" Alias "doSHAOnFile" (ByVal filename As String, ByVal dig As 
 
poziv ide ovako u jednom ili drugom sluaju - (netreba Call)
 
ako ide aliasing
 doSHAOnF "Fajla.txt", b
ako ne ide aliasing
 doSHAOnFile "Fajla.txt", b

