• 全部
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
  • 问答

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

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

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

收到就给分
...全文
72 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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的例子
谢谢了
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4875

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2002-12-13 01:58
社区公告
暂无公告