我想寫一個"愛吃飯"經過base64編碼後，在base64解碼，上網看，大家都只是說用tidencodermime和tiddncodemime這兩個對base64加解密，但不知如何使用 可否教一下，有範例更好，謝謝。查http://delphi.ktop.com.tw/topic.php?topic_id=33410這篇，可是tidbase64encoder1和idbase64decoder1這兩個元件找不到耶，可否 教教我?

用DELPHI 7嗎?就在INDY MISC裏！TIdEncoderMIME與TIdDecoderMIME就是base64編碼元件。 -----------------------------------------------

我是找到了這兩個元件，可是要怎麼用呢?可否教教我，有範例更好了謝謝。 加了這兩個元件了。 procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text:=idencodermime1(edit2.Text); end;

這裡面有相關的用法！試看看吧！ http://www.csdn.com.cn/program/849.htm ----------------------------------------------- Creation is the fundation of promotion.

天哪，看不太懂耶，請問有直接是base64的function加解密的?

引言: 天哪，看不太懂耶，請問有直接是base64的function加解密的?

有啊。看看DELPHI的 EncdDecd 单元。

// xmldoc.LoadFromFile(＆XML恅紫腔恅璃靡'); // xmldoc.Active:=true; // xn:=xmldoc.Node; //xn:=xn.ChildNodes.Nodes[1]; //xn:=xn.ChildNodes.Nodes[3]; //xn:=xn.AddChild(＆陔腔誹萸靡趼＊) //xn.Text:=＊誹萸腔恅掛囀?＊ //xn.Attributes['誹萸腔菴珨跺扽俶']:=＊扽俶硉＊ // xn.Attributes['誹萸腔菴媼跺扽俶']:=＊扽俶硉＊ // xn.Text:=＊陔腔恅掛囀?＊ // xn.Attributes['誹萸腔菴媼跺扽俶']:=＊ 陔腔扽俶硉＊ //xn.ChildNodes.Delete(xn.ChildNodes.IndexOf(xn)); // f:=TFileStream.Create('猁湔溫腔恅璃靡',fmOpenRead); //xn.Text:=EncoderMime.Encode(f); //蛌遙跡宒,恅璃晤鎢 //f.Free; f:=TFileStream.Create(＆醴梓恅璃靡＊,fmCreate); DecoderMime.DecodeToStream(xn.Text,f); f.Free; xn.Attributes['Type']='Base64' xn.Attributes['Type']:='Base64'; f:=TFileStream.Create('猁湔溫腔恅璃靡',fmOpenRead); xn.Text:=EncoderMime.Encode(f); f.Free; //if xn.IsTextElement //Xn笢湔婓Text // then if xn.HasAttribute('Type') then //Xn笢湔婓扽俶＊Type＊ // if xn.Attributes['Type']='Base64' then // begin // f:=TFileStream.Create(＆醴梓恅璃靡＊,fmCreate); 我把上面的部份都copy下來了，可否教教我啊，或是寄到我信箱也是可以的。謝謝

網路上的資料其實真的很多，下次一定要仔細找找順便學習喔！ 寫個簡易的範例，請自行發展。 < class="code"> unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, IdCoder, IdCoder3to4, IdCoderMIME, IdBaseComponent; type TForm1 = class(TForm) IdEncoderMIME1: TIdEncoderMIME; IdDecoderMIME1: TIdDecoderMIME; BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); var OrgString,EncodeString:String; begin OrgString := 'This is a test.'; ShowMessage('OrgString is:' OrgString); EncodeString := IdEncoderMIME1.EncodeString(OrgString); ShowMessage('After Base64 Encoding is:' #10 #13 EncodeString); OrgString := IdDecoderMIME1.DecodeString(EncodeString); ShowMessage('After Base64 Decoding :' #10 #13 OrgString); end; end. ----------------------------------------------- Creation is the fundation of promotion.

真是太謝謝你了，好開心喔~~~ 越寫程式，就越覺得程式的難~~~

[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdCoder, IdCoder3to4, IdCoderMIME;
type
TForm1 = class(TForm)
IdEncoderMIME1: TIdEncoderMIME;
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Button2: TButton;
Edit3: TEdit;
IdDecoderMIME1: TIdDecoderMIME;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:= IdEncoderMIME1.EncodeString(edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.Text:= IdDecoderMIME1.DecodeToString(edit2.Text);
end;
end.
[/code]

------
cluise is a professional programmer.