TNMUUProcessor控件使用问题？

[天轶_1]

我用这个控件可以MIME编码，但是解码就不行了，很郁闷。后面出了一串的乱码。我贴代码出来。请问是怎么回事？


void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringStream *inputstream=new TStringStream("");
TStringStream *outputstream=new TStringStream("");
NMUUProcessor1->InputStream=inputstream ;
NMUUProcessor1->OutputStream=outputstream;
inputstream->WriteString(Edit1->Text);
inputstream->Position=0;
outputstream->Position=0;
NMUUProcessor1->Encode();
outputstream->Position=0;
Edit2->Text=outputstream->ReadString(outputstream->Size);
Memo1->Lines->Add(Edit2->Text);
Label1->Caption=IntToStr(Edit2->Text.Length());
delete inputstream;
delete outputstream;
}
//以上是编码





//下面是解码。
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TStringStream *inputstream=new TStringStream("");
TStringStream *outputstream=new TStringStream("");
inputstream->WriteString(Edit1->Text);
inputstream->Position=0;
outputstream->Position=0;
NMUUProcessor1->InputStream=inputstream ;
NMUUProcessor1->OutputStream=outputstream;
NMUUProcessor1->Decode();
outputstream->Position=0;
//Edit2->Text=outputstream->DataString;
Edit2->Text=outputstream->ReadString(outputstream->Size);
//Edit2->Text=outputstream->ReadString(MaxInt);
Memo1->Lines->Add(Edit2->Text);
delete inputstream;
delete outputstream;
}

[FengSC]

是不是该这样？没办法测试。

TStringStream *inputstream=new TStringStream("");
TStringStream *outputstream=new TStringStream("");
NMUUProcessor1->InputStream=inputstream ;
NMUUProcessor1->OutputStream=outputstream;
inputstream->WriteString(Edit1->Text);
inputstream->Position=0;
outputstream->Position=0;
NMUUProcessor1->Decode();
outputstream->Position=0;
//Edit2->Text=outputstream->DataString;
Edit2->Text=outputstream->ReadString(outputstream->Size);
//Edit2->Text=outputstream->ReadString(MaxInt);
Memo1->Lines->Add(Edit2->Text);
delete inputstream;
delete outputstream;

[天轶_1]

怎么照抄我的下来?都说了不行.

[zystar]

这个是BORLAND的BUG。