twos:我的delphi是6.0,在idcoderheader.pas中没有找到你所的代码,有一段相似:
if Pos('=?ISO', UpperCase(Header)) > 0 then
begin
for i := 1 to 3 do
begin
l := Pos('?', Header);
Header := Copy(Header, l + 1, Length(Header) - l + 1);
if i = 1 then
HeaderCharSet := Copy(Header, 1, Pos('?', Header) - 1)
else
if i = 2 then
HeaderEncoding := Header[1];
end;
if AnsiSameText(HeaderEncoding, 'Q') then
begin
i := 1;
repeat
if Header = '_' then
s := s + ' '
else
if Header = '=' then
begin
s := s + chr(StrToInt('$' + Header[i + 1] + Header[i + 2]));
inc(i, 2);
end
else
s := s + Header;
inc(i);
until (Header = '?') and (Header[i + 1] = '=')
end
else
begin
while Length(Header) >= 4 do
begin
a4[1] := b64(Header[1]);
a4[2] := b64(Header[2]);
a4[3] := b64(Header[3]);
a4[4] := b64(Header[4]);
a3[1] := (a4[1] shl 2) or (a4[2] shr 4);
a3[2] := (a4[2] shl 4) or (a4[3] shr 2);
a3[3] := (a4[3] shl 6) or (a4[4] shr 0);
Header := Copy(Header, 5, Length(Header));
s := s + CHR(a3[1]) + CHR(a3[2]) + CHR(a3[3]);
end;
end;
if AnsiSameText(HeaderCharSet, 'ISO-2022-JP') then
result := Decode2022JP(s)
else
Result := s;
end
else
Result := Header;
但不知怎样改??