Loading ...
Sorry, an error occurred while loading the content.

Bug fix

Expand Messages
  • anyunchen
    function DecodeLine7Bit(Texto: String): String; .... case Encoding of B : begin GetMem(Buffer, Length(Texto)); Size := DecodeLineBASE64(Texto, Buffer); if
    Message 1 of 2 , Oct 31, 2006
    • 0 Attachment
      function DecodeLine7Bit(Texto: String): String;
      ....
      case Encoding of

      'B':
      begin

      GetMem(Buffer, Length(Texto));
      Size := DecodeLineBASE64(Texto, Buffer);
      if Size>0 then //add by chenanyun
      Buffer[Size] := #0;
      Texto := String(Buffer);
      FreeMem(Buffer); end;

      'Q':
      begin

      while Pos('_', Texto) > 0 do
      Texto[Pos('_', Texto)] := #32;

      Texto := DecodeQuotedPrintable(Texto);
      end;

      'U':
      begin

      GetMem(Buffer, Length(Texto));
      Size := DecodeLineUUCODE(Texto, Buffer);
      if Size>0 then //fix by chenanyun
      Buffer[Size] := #0;
      Texto := String(Buffer);
      FreeMem(Buffer);
      end;
      end;
    • Roger Grönberg
      Thank you! Implemented. /Roger ... Från: tmail2000@yahoogroups.com [mailto:tmail2000@yahoogroups.com] För anyunchen Skickat: den 1 november 2006 04:58 Till:
      Message 2 of 2 , Nov 1, 2006
      • 0 Attachment
        Thank you!

        Implemented.

        /Roger


        -----Ursprungligt meddelande-----
        Från: tmail2000@yahoogroups.com [mailto:tmail2000@yahoogroups.com] För
        anyunchen
        Skickat: den 1 november 2006 04:58
        Till: tmail2000@yahoogroups.com
        Ämne: [tmail2000] Bug fix

        function DecodeLine7Bit(Texto: String): String;
        ....
        case Encoding of

        'B':
        begin

        GetMem(Buffer, Length(Texto));
        Size := DecodeLineBASE64(Texto, Buffer);
        if Size>0 then //add by chenanyun
        Buffer[Size] := #0;
        Texto := String(Buffer);
        FreeMem(Buffer); end;

        'Q':
        begin

        while Pos('_', Texto) > 0 do
        Texto[Pos('_', Texto)] := #32;

        Texto := DecodeQuotedPrintable(Texto);
        end;

        'U':
        begin

        GetMem(Buffer, Length(Texto));
        Size := DecodeLineUUCODE(Texto, Buffer);
        if Size>0 then //fix by chenanyun
        Buffer[Size] := #0;
        Texto := String(Buffer);
        FreeMem(Buffer);
        end;
        end;





        =============================================================

        The group's home page is here:
        http://groups.yahoo.com/group/tmail2000/

        To post a message:
        send email to: tmail2000@yahoogroups.com
        or go here: http://groups.yahoo.com/group/tmail2000/post

        To modify your subcription options (e.g. stop receiving discussions)
        go to:
        http://groups.yahoo.com/mygroups/tmail2000/join or
        http://groups.yahoo.com/convwiz

        To subscribe/unsubscribe, send blank email to:
        tmail2000-subscribe@yahoogroups.com
        tmail2000-unsubscribe@yahoogroups.com

        To talk only with the moderator, developer of TMail2000, write email to:
        mycelo@...

        Please expect 1-2 weeks for my response.

        PLEASE POST IN ENGLISH!

        Yahoo! Groups Links
      Your message has been successfully submitted and would be delivered to recipients shortly.