Цитата

не по биту а по байту

НУ ДА
.... только вот одна проблемка с этим - больше 4б за раз не получается передавть....
а так ооооооочень медленно...

>больше 4б за раз не получается передавть....
ПОЧЕМУ?
ИМХО, нужно это дело буфферизировать.
Смотри пример:

Код

procedure TCoreBackup.Execute; var  readlen: Integer;  inf: file;  outf: file;  buffer: array[1..131072] of Char; begin  try    FilePos:= 0;    AssignFile(inf,fSourceFileName);    Reset(inf,1);    AssignFile(outf,fDestignationFileName);    Rewrite(outf,1);    repeat      BlockRead(inf, buffer, 131072, readlen);      BlockWrite(outf, buffer, readlen);      FilePos:= FilePos+readlen;      if Self.Terminated then begin        CloseFile(inf);        CloseFile(outf);        try          if FileExists(fDestignationFileName) then            DeleteFile(fDestignationFileName);        finally          Synchronize(SyncRaiseEventEnd);          Self.Suspend;        end;        Exit;      end;    until readlen=0;    CloseFile(inf);    CloseFile(outf);    Synchronize(SyncRaiseEventEnd);  except    Synchronize(SyncRaiseEventEnd);  end; end;

Я тоже через буфер делаю... только что-то не могу его больше 4х байт сделать...
[CODE]var
Src, Dest : TFileStream;
TMP: TMemoryStream;
P :Int64;
cnt : Int64;

begin
STOP := false;
Src := TFileStream.Create(DataFileNew[CntDownload-1].InFile,fmOpenRead);
Dest := TFileStream.Create(DataFileNew[CntDownload-1].OutFile,fmOpenWrite);
ProgressBar1.Max := DataFileNew[CntDownload-1].FileSize;
Tmp := TMemoryStream.Create;
cnt := DataFileNew[CntDownload-1].Loaded;
P := Src.Seek(cnt,soFromBeginning);
Src.Position := P;
Dest.Position := P;

try
while (cnt <= DataFileNew[CntDownload-1].FileSize)and(not STOP) do
begin
Dest.Write(TMP,Src.Read(TMP,4));
//ProgressBar1.Position := cnt;
Memo1.Lines.Add(IntToStr(cnt));
Inc(cnt,4);
if cnt > DataFileNew[CntDownload-1].FileSize then
cnt := DataFileNew[CntDownload-1].FileSize;
Application.ProcessMessages;
end;
finally
DataFileNew[CntDownload-1].Loaded := cnt;
Tmp.Free;
Src.Free;
Dest.Free;
end;
end;[CODE]

Нафига ты такие сложности написал ? Возьми тот исходник, щють-щють подкорректируй, тебе там собственно только на if Self.Terminated then begin надо чёто менять и юзай на здоровье и не парся. Там ты чё-то такого навоял, что глаз режет. И кстати, я б тебе советовал почитать про рефакторинг. Тогда и код будет легче писать.

Цитата

Нафига ты такие сложности написал ?

сам по себе то кодик маленький...

Код

Src := TFileStream.Create(InFileName,fmOpenRead); Dest := TFileStream.Create(OutFileName,fmOpenWrite); Tmp := TMemoryStream.Create; while (cnt < InFilesize) do begin Dest.Write(TMP, Src.Read(TMP,4)); Inc(cnt,4); end;

просто он из проекта выдернут ....
и никаких сложностей... кроме того что не работает..