<~9jqo^BlbD-BleB1DJ+*+F(f,q/0JhKF<GL>Cj@.4Gp$d7F!,L7@<6@)/0JDEF<G%<+EV:2F!,O<DJ+*.@<*K0@<6L(Df-\0Ec5e;DffZ(EZee.Bl.9pF"AGXBPCsi+DGm>@3BB/F*&OCAfu2/AKYi(DIb:@FD,*)+C]U=@3BN#EcYf8ATD3s@q?d$AftVqCh[NqF<G:8+EV:.+Cf>-FD5W8ARlolDIal(DId<j@<?3r@:F%a+D58'ATD4$Bl@l3De:,-DJs`8ARoFb/0JMK@qB4^F!,R<AKZ&-DfTqBG%G>uD.RTpAKYo'+CT/5+Cei#DII?(E,9)oF*2M7/c~>
I'm trying to decode an ASCII85 (or Base 85) string using ascii85 unit, but an EReadError exception is raised with the message "could not seek...".
After adding a patch and changing BExpectBoundary to False, your example works:
After adding a patch and changing BExpectBoundary to False, your example works:Code: Pascal [Select]type TASCII85DecoderStream = class(ascii85.TASCII85DecoderStream) function Seek(const aOffset: Int64; aOrigin: TSeekOrigin): Int64; override; end; function TASCII85DecoderStream.Seek(const aOffset: Int64; aOrigin: TSeekOrigin): Int64;begin if (aOffset = 0) and (aOrigin = soBeginning) then Result := 0 else Result := inherited;end;