[bcb]bit po bicie

witam,

jak przekopiowac plik tą metodą[chodzi o bcb]

pozdro
:cheesy:

Kiedy siedzę sobie w kiblu spuszczone gacie mam,
przez głowę przechodzą myśli, kreuję nowy plan...:-)

---

Najmniejszą jednostką jaką odczytują systemowe funkcje jest bajt
czyli masz już 8 bitów za jednym razem :cheesy:

Programista nie wielbłąd wypić musi :D

procedure CopyFile(const FileName, DestName: string); var  CopyBuffer: Pointer; { buffer for copying }  BytesCopied: Longint;  Source, Dest: Integer; { handles }  Destination: TFileName; { holder for expanded destination name } const  ChunkSize: Longint = 8192; { copy in 8K chunks } begin  Destination := ExpandFileName(DestName); { expand the destination path }  if HasAttr(Destination, faDirectory) then { if destination is a directory... }    Destination := Destination + '' + ExtractFileName(FileName); { ...clone file name }  GetMem(CopyBuffer, ChunkSize); { allocate the buffer }  try    Source := FileOpen(FileName, fmShareDenyWrite); { open source file }    if Source < 0 then raise EFOpenError.CreateFmt(SFOpenError, [FileName]);    try      Dest := FileCreate(Destination); { create output file; overwrite existing }      if Dest < 0 then raise EFCreateError.CreateFmt(SFCreateError, [Destination]);      try        repeat          BytesCopied := FileRead(Source, CopyBuffer^, ChunkSize); { read chunk }          if BytesCopied > 0 then { if we read anything... }            FileWrite(Dest, CopyBuffer^, BytesCopied); { ...write chunk }        until BytesCopied < ChunkSize; { until we run out of chunks }      finally        FileClose(Dest); { close the destination file }      end;    finally      FileClose(Source); { close the source file }    end;  finally    FreeMem(CopyBuffer, ChunkSize); { free the buffer }  end; end;

Kod z unitu FMXUtils.pas z Delphi.

http://www.planeta-delphi.com

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl