摘要： //前面定义好常量const C1 = 123456; C2 = 234567; PASSKEY = '66666';//加密函数function Encrypt(const S: String; Key: Word): String;var I: byte;begin Result:=S; for I:= 1 to Length(S) do begin Result[I]:= char(byte(S[I]) xor (Key shr 8)); Key:=(byte(Result[I]) + Key) * C1 + C2; end;end;//解密函数function Decrypt(cons 阅读全文

摘要： 1 、如何实现在Microsoft Access数据库中的图像存储：这里是利用TStream的子类TMemoryStream向Microsoft Access数据库中存储图像的。下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序：procedure TForm1.Button1Click(Sender: TObject);var MyJPEG: TJPEGImage; MS: TMemoryStream;begin MyJPEG := TJPEGImage.Create; try with MyJPEG do begin Assign(Image.Picture.Graphic); M 阅读全文