function ExtractStream(Src: TFileStream; var Dst: TFileStream; Offset, Size: Longword); begin Result := False; if Assigned(Src) and Assigned(Dst) then begin Src.Position := Offset; Dst.Position := 0; Dst.CopyFrom(Src, Size); Result := True; end; end;
function SplitStream(Src, Dest: TStream; const Offset, Size: int64): int64; begin result := 0; if not (assigned(src) and assigned(dest)) then exit; Src.Seek(OffSet, soFromBeginning); result := Dest.CopyFrom(Src, Size); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question