【请教】delphi里怎么算哈希？？？？？？？？？？？
请教：delphi里怎么算哈希？
我原来找了一个，形式是这样：
procedure DoSHA1(BufferIn:array of byte;DataLen:integer;var BufferOut:array of byte);
var
Context: TSHA1Context;
Digest: TSHA1Digest;
begin
SHA1Init(Context);
SHA1Update(Context,@BufferIn,DataLen);
SHA1Final(Context,Digest);
CopyMemory(@BufferOut,@Digest,20);
end;
但是如果输入的数组过长，如10K，则会出错
下边是我从网上找的，不知道怎么用。谁能指点下，有现成的也行，最好是算byte类型数组的。
http://www.xiaokou.org/2005/10/12/54/
我靠，该死的csdn，第一次提交回复总是失败，还的再写一遍；
听三国说inifile单元里有哈希相关函数，你看看先
IniFiles里面的那个是TStringHash
顶。
原来的函数输入数组后，吐出20位的哈希值
但是长度太长，好像算的不对。
给你一个ELF算法的hash函数，已经改成支持Byte数组了：
function ELFHash(const ByteAry : Array of byte) : Cardinal;
var
i : Cardinal;
x : Cardinal;
begin
Result := 0;
for i := Low(ByteAry) to High(ByteAry) do
begin
Result := (Result shl 4) + ByteAry[i];
x := Result and $F0000000;
if (x <> 0) then
begin
Result := Result xor (x shr 24);
end;
Result := Result and (not x);
end;
end;
原来用的那个是sha-1算法。
楼上的，Cardinal是什么？
Cardinal是大于等于0的整数，就当是整数好了。
可以参考IniFiles
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
如题所示
小弟使用Delphi7环境进行数据采集，采集到的数据放入SQL Server2000数据库中，但是想不安装SQLServer2000来实现从其它计算机上运行此程序，不知如何实现？望各位大虾告知一二。
另外，现在小弟遇到了一个 ......
MessageBox(0,PChar('L'),PChar('LL'),0);
结果：PChar('LL') 显示 ，但PChar('L') 不显示．
var
p1, p2: PChar;
begin
p1 := PChar('L');
p2 := PChar('LL');
MessageBo ......
服务器是一个网络设备，目前在内网，IP固定为192.168.1.123，开放9707~9738共31个连续端口(用XP自带的超级终端试过了，这些端口都可以正常连接、通讯)。
用TcpClient控件写的客户端软件，就9730这个端口无法建立连� ......
