TIdBase64Encoder,TIdBase64Decoder,TIdUUDecoder,TIdCoderMD5的例子，收到就给分。

[tryibest]

TIdBase64Encoder,TIdBase64Decoder,TIdUUDecoder,TIdCoderMD5的例子，收到就给分。

我的email:
[e-mail]
[e-mail]

收到就给分

[tryibest]

补一句，最好是TIdUUEncoder和TIdUUDecoder还有TIdCoderMD5的例子
谢谢了

[ly_liuyang]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdCoder, IdCoder3to4, IdCoderMIME, IdBaseComponent,
IdComponent, IdCoderXXE, IdCoderUUE;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Edit3: TEdit;
Button2: TButton;
Edit4: TEdit;
EncoderMIME: TIdEncoderMIME;
DecoderMIME: TIdDecoderMIME;
EncoderUUE: TIdEncoderUUE;
DecoderUUE: TIdDecoderUUE;
EncoderXXE: TIdEncoderXXE;
DecoderXXE: TIdDecoderXXE;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=EncoderMime.EncodeString(edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit4.Text:=DecoderMime.DecodeToString(edit3.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit2.Text:=EncoderUUE.EncodeString(edit1.Text);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
edit2.Text:=EncoderXXE.EncodeString(edit1.Text);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
edit4.Text:=DecoderUUE.DecodeToString(edit3.Text);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
edit4.Text:=DecoderXXE.DecodeToString(edit3.Text);
end;

end.

[jemmylau]

procedure TForm1.Button1Click(Sender: TObject);
begin
IdBase64Encoder1.CodeString(Memo1.Text);
Memo2.Text := Copy(IdBase64Encoder1.CompletedInput, 3, MaxInt);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdBase64Decoder1.CodeString(Memo2.Text);
Memo1.Text := Copy(IdBase64Decoder1.CompletedInput, 3, MaxInt);
end;

[playguy]

可以去这里看一看，有完整的演示代码，绝对实用：
http://www.aslike.net