el stamatakos wrote:
Hi ,
How do you copy a file from one location to another Delphi
has CopyFileTo how do you do this in Lazarus. Thanks
Lefti
Try this function. I'm not sure of its origin though. It may have come
out of the Delphi 1 Help.
Malcolm
function FileCopy(source,dest: String): Boolean;
var
fSrc,fDst,len: Integer;
ct,units,size: Longint;
buffer: packed array [0..2047] of Byte;
begin
ct:=0;
Result := False; { Assume that it WONT work }
if source <> dest then begin
fSrc := FileOpen(source,fmOpenRead);
if fSrc >= 0 then begin
size := FileSeek(fSrc,0,2);
units:=size div 2048;
FileSeek(fSrc,0,0);
fDst := FileCreate(dest);
if fDst >= 0 then begin
while size > 0 do begin
len := FileRead(fSrc,buffer,sizeof(buffer));
FileWrite(fDst,buffer,len);
size := size - len;
if units > 0 then
ct:=ct+1;
end;
FileSetDate(fDst,FileGetDate(fSrc));
FileClose(fDst);
FileSetAttr(dest,FileGetAttr(source));
Result := True;
end;
FileClose(fSrc);
end;
end;
end;
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
