Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Скопировать файл из локалки 


f0rm   (2002-01-25 11:56) [0]

Как средствами дельфи скопировать файл, например \\198.165.54.2\c\autoexecbat на свой винт, copyfile() не работает



Giga-Byte   (2002-01-25 12:00) [1]

Достал на этом сайте:

procedure FastFileCopy(Const InfileName, OutFileName: String); Const BufSize = 3*4*4096; { 48Kbytes дает прекрасный результат }
Type PBuffer = ^TBuffer;
TBuffer = array [1..BufSize] of Byte;
var Size: integer;
buffer: PBuffer;
infile, outfile: File;
SizeDone, SizeFile: Longint;
begin
if (InFileName<>OutFileName) then
begin
buffer := Nil;
AssignFile(infile,InFileName);
System.Reset(infile,1);
try
SizeFile:=FileSize(infile);
AssignFile(outfile, OutFileName);
System.Rewrite(outfile, 1);
try
SizeDone := 0;
New(Buffer);
repeat
BlockRead(infile, Buffer^, BufSize,Size);
Inc(SizeDone, Size);
BlockWrite(outfile,Buffer^, Size)
until Size<BufSize;
FileSetDate(TFileRec(outfile).Handle,
FileGetDate(TFileRec(infile).Handle));
finally
if Buffer<>Nil then Dispose(Buffer);
System.close(outfile)
end;
finally
System.close(infile);
end;
end else
Raise EInOutError.Create("File cannot be copied into itself");
end;



Giga-Byte   (2002-01-25 12:00) [2]

Достал на этом сайте:

procedure FastFileCopy(Const InfileName, OutFileName: String); Const BufSize = 3*4*4096; { 48Kbytes дает прекрасный результат }
Type PBuffer = ^TBuffer;
TBuffer = array [1..BufSize] of Byte;
var Size: integer;
buffer: PBuffer;
infile, outfile: File;
SizeDone, SizeFile: Longint;
begin
if (InFileName<>OutFileName) then
begin
buffer := Nil;
AssignFile(infile,InFileName);
System.Reset(infile,1);
try
SizeFile:=FileSize(infile);
AssignFile(outfile, OutFileName);
System.Rewrite(outfile, 1);
try
SizeDone := 0;
New(Buffer);
repeat
BlockRead(infile, Buffer^, BufSize,Size);
Inc(SizeDone, Size);
BlockWrite(outfile,Buffer^, Size)
until Size<BufSize;
FileSetDate(TFileRec(outfile).Handle,
FileGetDate(TFileRec(infile).Handle));
finally
if Buffer<>Nil then Dispose(Buffer);
System.close(outfile)
end;
finally
System.close(infile);
end;
end else
Raise EInOutError.Create("File cannot be copied into itself");
end;

Я ей фильмы/клипы копирую с компов




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
14-22830          .DelGod.              2002-02-22 19:57  2002.04.08  
Вот такие дела . . .


7-22848           viksoft               2002-01-09 14:44  2002.04.08  
Подскажите как генерировать звук ???


7-22860           Донской               2002-01-15 19:30  2002.04.08  
Виртуальный порт


1-22751           Art1                  2002-03-25 14:19  2002.04.08  
Что нужно для ActiveX?


3-22561           der                   2002-03-12 05:09  2002.04.08  
Нумерация ячеек в DBGRID