用TNMUUProcessor控件解码试试看。
解决方案 »
- 不知道大家发现没,如果设置了adotable的filter后,dbgrid中的垂直滚动条会始终在中间,
- 如何更改局域网中另一台机器的ip地址及dns,
- 如何制作按住Alt键的同时键入按键s,h,e,n,g的响应事件?
- 怎样修改文件的属性??
- 困难求救,帮忙啊
- 300分,请常炒股或是对泰阳证券网上股票交易分析系统有所了解的兄弟们进来看看
- 抗议!!!!!!!!!!!!
- 又一个关于窗体的简单问题。
- 跪求一个问题,没积分了就请大家帮个忙吧
- 请问如何设置Form1新的鼠标指针?
- 送分大行动:那里有developer express的vcl下载?
- 请问如何通过SavePictureDialog取得文件名(有扩展名的);
procedure TForm1.Button1Click(Sender: TObject);
var
InStream,
OutStream: TFileStream;
begin
InStream := TFileStream.Create(Edit1.Text, fmOpenRead);
OutStream := TFileStream.Create(Edit2.Text, fmCreate);
try
If RadioButton4.Checked then
NMUUE1.Method := uuMIME
else
NMUUE1.Method := uuCode;
NMUUE1.InputStream := InStream;
NMUUE1.OutputStream := OutStream;
If RadioButton1.Checked then
NMUUE1.Encode
else
NMUUE1.Decode;
finally
InStream.Free;
OutStream.Free;
end;
end;btw:如果是Uuencode编码
1.邮件原文存为文本文件
2.改文本文件后缀为.uue
3.用winzip 6.3 sr-1以上版本识别
或者改文本文件后缀为.eml,用ms mail或Outlook Express打开