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

tryibest 2002-12-13 01:58:54
TIdBase64Encoder,TIdBase64Decoder,TIdUUDecoder,TIdCoderMD5的例子,收到就给分。

我的email:
tryubest@citiz.net
tryubest@163.com

收到就给分
...全文
163 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
playguy 2003-03-02
  • 打赏
  • 举报
回复
可以去这里看一看,有完整的演示代码,绝对实用:
http://www.aslike.net
jemmylau 2003-01-09
  • 打赏
  • 举报
回复
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;
ly_liuyang 2002-12-14
  • 打赏
  • 举报
回复
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.
tryibest 2002-12-13
  • 打赏
  • 举报
回复
补一句,最好是TIdUUEncoder和TIdUUDecoder还有TIdCoderMD5的例子
谢谢了

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧