indy10 idpop3接收邮件标题乱码

最新推荐文章于 2021-05-26 08:30:27 发布

chinajobs

最新推荐文章于 2021-05-26 08:30:27 发布

阅读量1k

点赞数

分类专栏： Delphi 文章标签： pop

Delphi 专栏收录该内容

150 篇文章 6 订阅

订阅专栏

indy10 idpop3接收邮件标题乱码

修改IdGlobal.pas

[delphi]view plaincopy 
   
 function BytesToString(const AValue: TIdBytes; const AStartIndex: Integer;  
   const ALength: Integer = -1; AByteEncoding: TIdTextEncoding = nil  
   {$IFDEF STRING_IS_ANSI}; ADestEncoding: TIdTextEncoding = nil{$ENDIF}  
   ): string; overload;  
 var  
   LLength: Integer;  
   {$IFDEF STRING_IS_ANSI}  
   LBytes: TIdBytes;  
   {$ENDIF}  
 begin  
   {$IFDEF STRING_IS_ANSI}  
   LBytes := nil; // keep the compiler happy  
   {$ENDIF}  
   LLength := IndyLength(AValue, ALength, AStartIndex);  
   if LLength > 0 then begin  
     AByteEncoding:=nil;  
     TIdTextEncoding.GetBufferEncoding(AValue,AByteEncoding);  
     EnsureEncoding(AByteEncoding);  
     {$IFDEF STRING_IS_UNICODE}  
     Result := AByteEncoding.GetString(AValue, AStartIndex, LLength);  
     {$ELSE}  
     EnsureEncoding(ADestEncoding);  
     LBytes := Copy(AValue, AStartIndex, LLength);  
     if AByteEncoding <> ADestEncoding then begin  
       LBytes := TIdTextEncoding.Convert(AByteEncoding, ADestEncoding, LBytes);  
     end;  
     SetString(Result, PAnsiChar(LBytes), Length(LBytes));  
     {$ENDIF}  
   end else begin  
     Result := '';  
   end;  
 end;  