Копирование файлов в Винде

[CoverStory]

Всем доброго!
Люди помогите пожалуйста как скопировать в Лазаре файл с одного места в другое заранее спасибо!
Давно не пользовался Паскалем а тут позарез надо!!!

[STAKANOV]

Приблизительно так:

Код: Выделить всё

var
src,dst:file of byte;
b:byte;
begin
AssignFile(src,'srcfile'); // источник
AssignFile(dst,'dstfile'); // приемник
reset(src);
rewrite(dst);
while not(eof(src)) do
begin
  read(src,b);
  write(dst,b);
end;
CloseFile(src);
CloseFile(dst);
end;


[Janus]

В Винде можно CopyFile.

[CoverStory]

Я пробовал copyfile но вроде бы такого метода не нашел!

[CoverStory]

STAKANOV спасибо работает, только медленно!!!

[Nikolay]

Код: Выделить всё

var Source, Dest: TStream;
begin
Source:=TFileStream.Create...
Dest:=TFileStream.Create...
Dest.CopyFrom(Source, Source.Size);
...
end;

Если маленький:

var F: TMemoryStream;
begin
F:=TMemoryStream.Create;
F.LoadFromFile(SourceFileName);
F.SaveToFile(DestFileName);
end;



[CoverStory]

Еще такой момент как вывести сообщение что процесс копирования завершен?

[Джентельмен]

есть вот такой интересный код:

Код: Выделить всё

Uses
 OldLinux;
function copyfile(name1, name2: string):integer;
const
 BUFSIZE=512;
 PERM=0644;
var
 infile, outfile: integer;
 nread: longint;
 buffer: array [0..BUFSIZE-1] of byte;
begin

 infile := fdopen (name1, Open_RDONLY);
 if infile=-1 then
 begin
   copyfile:=-1;
   exit;
 end;

 outfile := fdopen (name2, Open_WRONLY or Open_CREAT or Open_TRUNC, octal(PERM));
 if outfile=-1 then
 begin
   fdclose(infile);
   copyfile:=-2;
   exit;
 end;

 nread := fdread (infile, buffer, BUFSIZE);
 while nread > 0 do
 begin

   if fdwrite (outfile, buffer, nread) < nread then
   begin
     fdclose (infile);
     fdclose (outfile);
     copyfile:=-3;
     exit;
   end;
   nread := fdread (infile, buffer, BUFSIZE);
 end;

 fdclose (infile);
 fdclose (outfile);

 if (nread = -1) then
   copyfile := -4
 else
   copyfile := 0;
end;    


я им пользуюс в линуксе...
пробывал собрать его в винде...
там надо подключать библиотеку Linux или OldLinux а в винде её нет...
может кто-то подскажет как заставить эту функцию работать в винде?
и есть еще книга хорошая...
всем рекомендую: <a href='http://freepascal.ru/download/book/sysfpc.zip' target='_blank'>http://freepascal.ru/download/book/sysfpc.zip</a>


<span style='color:red'><span style='font-size:8pt;line-height:100%'>рекоменуется оформлять исходные тексты наглядно, это не очень сложно
см. <a href='http://freepascal.ru/rules/forum/' target='_blank'>правила форума</a> п.3 раздела Рекомендации</span></span>

[CoverStory]

Nikolay, спасибо файл объемом 17 Mgb закачался быстро!!! С помощью второго примера первый я не понял как применять.

[STAKANOV]

STAKANOV спасибо работает, только медленно!!!

да, это самый медленный способ :rolleyes:
копировать надо не по-байтно, а использовать буфер, можна даже сначала весь файл в память считать, а потом записать

см. в сторону - <a href='http://freepascal.ru/wiki/index.php/BlockRead' target='_blank'>BlockRead</a> и <a href='http://freepascal.ru/wiki/index.php/BlockWrite' target='_blank'>BlockWrite</a>

о! в описании <a href='http://freepascal.ru/wiki/index.php/BlockRead' target='_blank'>BlockRead</a> как раз классический пример

я им пользуюс в линуксе... пробывал собрать его в винде...

обрати внимание, алгоритм почти такой же как я показал (вообщето это во многих учебниках встречается), только я использую фукнции которые не зависят от ОС

[CoverStory]

STAKANOV спасибо, еще раз очень помог, буду теперь постоянно обращаться к этому мануалу. Я думаю что тему можно закрыть так как вопрос уже решен.

[STAKANOV]

STAKANOV спасибо, еще раз очень помог, буду теперь постоянно обращаться к этому мануалу.

мануал правда не доделан точнее недопереведен, к сожалению у нас мало активистов поддерживающих opensource и тп поэто работа по перводу идет очень медленно

Там на странице переводы - <a href='http://freepascal.ru/wiki/' target='_blank'>http://freepascal.ru/wiki/</a> есть ссылки на английские оригиналы