Платные хостинги     Раскрутка сайта     Книги по программированию

TFileStream, чтение/запись блоками

- а как мне сделать тоже самое но только с TFileStream мне нужно что бы копировалось блоками

- Адаптированный вариант:Код var FromF, ToF: TFileStream; NumRead, NumWritten: Integer; Buf: array[1..2048] of Char;begin if OpenDialog1.Execute then  { Display Open dialog box } begin   FromF:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);   try     if SaveDialog1.Execute then  { Display Save dialog box}     begin       ToF:= TFileStream.Create(SaveDialog1.FileName, fmCreate);       Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FromF.Size) + ' bytes...');       try         repeat           NumRead:= FromF.Read(Buf, SizeOf(Buf));           NumWritten:= ToF.Write(Buf, NumRead);         until (NumRead = 0) or (NumWritten <> NumRead);       finally         ToF.Free;       end;     end;   finally     FromF.Free;   end; end;end;highlightSyntax('delphiU2ZTM3','delphi');

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD