Форум: "Сети";
Поиск по всему сайту: 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.013 c
1-22672           LazyCat               2002-03-28 15:52  2002.04.08  
Как сделать форму без caption barа


14-22823          AceR                  2002-02-25 19:38  2002.04.08  
Кодировка в Paradox


6-22784           Kirill_               2002-01-25 00:47  2002.04.08  
Net


1-22747           Filat                 2002-03-26 20:36  2002.04.08  
Где взять RxLib для Delphi 6.


1-22700           sammy                 2002-03-25 19:43  2002.04.08  
Установка Языка