>encryptB64(s: string): string; var hash1: TIdEncoderMIME; p: string; begin if s <> '''''''' then begin hash1 := TIdEncoderMIME.Create(nil); p := hash1.Encode(s); hash1.Free; end; Result := p; end;
end.
//------------------------------------------ // 怎么使用定义好得相关单元 //--------------------------------------------- unit Unit1;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
