本文整理自网络,侵删。
//数据异或校验function BytesXor(buffer:array of byte):Integer;vari:integer;beginResult:=$0;for i:=Low(buffer) to High(buffer) dobeginresult:=result xor buffer[i];end;end;
相关阅读 >>
Delphi 从twebbrowser webbrowser得到全部html源码
Delphi winapi: getparent - 获取指定窗口的父窗口句柄
Delphi中使用goo.gl(google的缩短url服务)api
更多相关阅读请进入《Delphi》频道 >>