var
  aa: string;
begin
  IdBase64Encoder.key = 'yourkey';
  Idbase64Encoder.codestring(edit1.text);
  aa := Idbase64Encoder.CompletedInput;
  showmessage(aa);
  //aa为转换后的内容
end;

解决方案 »

  1.   

    请问menliwxj(有缘),IdBase64Encoder.key = 'yourkey';这句话是什么意思我怎么在里编译不过呢? 请指教一下?
      

  2.   

    就是设置你的加密串.
    这是我的测试例子.
    procedure TForm1.Button1Click(Sender: TObject);
    var
      bb, aa: string;
    begin
      IdBase64.Key := 'abc';
      bb := IdBase64.CodeString(Edit1.Text);
      aa := IdBase64.CompletedInput;
      showmessage(aa);
    end;
      

  3.   

    谢谢,小弟已经能调通了,但现在还有一点不解,为什么得到的字符串总是0;为前缀呢?
    例:    WANGKAI       转换后得    0;V0FOR0tBSQ==
      

  4.   

    这可能是其转换后的一个标志位吧,表示该串为base64串吧.