[DUG] Copying files problem

Fri Sep 22 10:35:01 NZST 2006

Still foxed by this problem!

The main reason I wanted to use an API method (ie copying a file rather than
using FileStream etc to copy the data) is I want to preserve the date and
time filestamps on the files, as I do a smart copy - only copying files that
have a later modification date.

On further testing, definitely on one site the copyfile function fails every
time.  I also tried a dos batchfile and shellexecute with the current
directory set to the destination folder, which also consistently failed,
even if the destination file was deleted first (that is attempted to delete
in the batch file).

*HOWEVER* Windows explorer copy and paste for the main part always worked -
to my mind this shows folder permissions etc were not to blame.
I did notice that once Explorer came up with an unusual message like "This
copy operation cannot preserve the encryption on the file" which sounds like
either the server or pc HD are encrypted.  And the real time antivirus is
etrust which I have had unusual problems with in the past (such as ignoring
exceptions to real time scanning).

Does anyone know the API call that explorer uses - or an alternative to
copyfile or any other suggestions?

I think I also need to investigate the exit status of the copyfile
command....

(FYI The routines I use are below - the 10 second allowance is because
copying from eg NTFS to FAT32 will slightly alter the files modfication time
because of the difference in time resolution of the file stamps)

function xfFilesChanged(file1:string;file2:string):integer;
//check 2 files modification date
//returns 0=both files same, 1=file1 later, 2=file2 later
//note if one file does not exist, returns other as later
var
fileage1,fileage2:integer;
dtdate1,dtdate2,dt10secs:TDateTime;
begin
   result:=0;
   fileage1:=FileAge(file1);
   fileage2:=FileAge(file2);
   if (fileage1<0) and (fileage2>0)then
   begin
      result:=2;
      exit;
   end;
   if (fileage2<0) and (fileage1>0)then
   begin
      result:=1;
      exit;
   end;
   if (fileage1<0) or (fileage2<0) then exit;  //maybe both don't exist
   dtdate1:=FileDatetoDateTime(fileage1);
   dtdate2:=FileDatetoDateTime(fileage2);
   if dtdate1=dtdate2 then
   begin
      result:=0;
      exit;
   end;
   //now if not same, check if within 10 secs
   //in case of different filesystems
   dt10secs:=encodetime(0,0,10,0);
   if (dtdate2>(dtdate1-dt10secs))
     and (dtdate2<(dtdate1+dt10secs)) then
   begin
     result:=0;
     exit;
   end;
   //still different
   if dtdate1>dtdate2 then result:=1
   else result:=2;
end;

function xfCopyFileifLater(File1:string;File2:string):integer;
//returns 0=no copy needed (files same) 1=File1 copied 2=file2 is later so
not copied
var
WhichisLater:integer;
begin
  WhichisLater:=xfFilesChanged(file1,file2);
  if WhichisLater=1 then copyfile(Pchar(File1),Pchar(File2),false);
  result:=Whichislater;
end;

John

-----Original Message-----
From: delphi-bounces at ns3.123.co.nz [mailto:delphi-bounces at ns3.123.co.nz] On
Behalf Of Phil Middlemiss
Sent: Thursday, 21 September 2006 9:44 a.m.
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Copying files problem

What about trying a different method such as the example in the help for
TFileStream? Basically just reading a bit from one stream and writing it to
the other until it's all done. We use this method a lot and it seems very
reliable.

Phil.

John Bird wrote: 

Well that might explain something, as the current directory when this
particular copy is done is the source file directory, which is usually on a
different drive from the destination directory.

I will experiment with altering this.

John

-----Original Message-----
From: Rohit Gupta [mailto:rohit at cfl.co.nz] 
Sent: Thursday, 21 September 2006 8:11 a.m.
To: johnkbird at paradise.net.nz; NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Copying files problem

We get this sometimes.  Its as if the app has different access rights to the
user, even on Win2K.  We had an incident (still unresolved) a few days
ago.... Maybe its new windows updates.  One thing to note is that since
Win95 (at least), windows does the following :-

To Copy file from DirA to DirB

1.  Make DirB the current directory
2.  Copy from DirA
3.  Change back to original Current Directory

Sometimes, step 1 fails but there are no errors and it copies the file into
the current directory instead.  And I cant figure out any way to detect this
!!

John Bird wrote: 

I copy program files using a line like:

copyfile(Pchar(File1),Pchar(File2),false);

Sometimes this fails for no obvious reason (File2 is not in use for
instance), and if I open Windows explorer and copy from there it usually
works, if not if I delete the destination file and then paste works fine.
To my mind this proves it is not a problem with permissions to write into
this folder...

File1 is on the server, File2 is local on C drive.

any ideas?

Background:
This is a neat way of updating programs - updated exe files are loaded into
a central update folder (which is not used except for copying from), and the
startup program copies any updated programs into the local C drive working
folder before any programs are in use.   Works wonderfully except on one
site......I wonder the problem is from not being administrator or something
in the PC setup being locked down....(although I don't know why as Windows
Explorer works) 

John Bird

email

 john at jbcl.co.nz

 johnkbird at paradise.net.nz

Expert in Beyond Software

Ph land (03)384-4527  mobile (027)484-4528

92 Soleares Ave, Mt Pleasant

Christchurch

Web www.jbcl.co.nz <http://www.jbcl.co.nz/> 

-----Original Message-----
From: delphi-bounces at ns3.123.co.nz [mailto:delphi-bounces at ns3.123.co.nz] On
Behalf Of Gary T. Benner
Sent: Wednesday, 20 September 2006 5:17 p.m.
To: vss at vss.co.nz
Cc: delphi at delphi.org.nz
Subject: RE: [DUG] Integrating Indy HTTPServer

[Reply] 

HI Jeremy, 

If you are incorporating this into an app, may I suggest you dynamically
instantiate the component each time you make an http call. I found this made
for greater reliability. 

kr 

Gary 

At 13:53 on 20/09/2006 you wrote 

>To : delphi at delphi.org.nz 

>CC : 

>From: Jeremy Coulter, vss at vss.co.nz 

>Content Type: text/html 

>Attached: 

> 

>This is a multi-part message in MIME format. 

> 

> 

> 

> 

>Hi all. 

>List seems to have been VERY quite over the last few days. 

> 

>Has anyone successfully integrated the Indy HTTP Server into an app.? 

>I am going to be adding an HTTP Server into an app. I have and wondered if 

>anyone had used the indy one, and how they found it? 

>Can I use ISAPI or CGI apps. with it does anyone know? 

> 

> 

>Thanks, Jeremy 

> 

>-- 

>No virus found in this outgoing message. 

>Checked by AVG Free Edition. 

>Version: 7.1.405 / Virus Database: 268.12.5/451 - Release Date: 19/09/2006 

> 

> 

> 

>_______________________________________________ 

>Delphi mailing list 

>Delphi at ns3.123.co.nz 

>http://ns3.123.co.nz/mailman/listinfo/delphi 

  _____  

Gary Benner 	
e-Engineer, Lecturer, and Software Developer	

123 Internet  <http://www.123.co.nz> Limited	
Waiariki Institute of  <http://www.waiariki.ac.nz> Technology	
Sunshine Garden Bag  <http://www.sunshinebags.co.nz> Co.	
 <http://www.sommnet.com> MailScanner has detected a possible fraud attempt
from "www.sommnet.com" claiming to be MailScanner has detected a possible
fraud attempt from "www.sommnet.com" claiming to be Sommnet.com Limited	
Mob: 021 966 992	
Email: gary at 123.co.nz 	

Ref#: 41006

__________ NOD32 1.1461 (20060329) Information __________

This message was checked by NOD32 antivirus system.
http://www.eset.com

  _____  

_______________________________________________

Delphi mailing list

Delphi at ns3.123.co.nz

http://ns3.123.co.nz/mailman/listinfo/delphi

-- 

Rohit Gupta
B.E. Elec.   M.E.   Mem IEEE    Associate IEE
Technical Manager
Computer Fanatics Limited

Tel     +64 9 4892280
Fax    +64 9 4892290
Email   <mailto:rohit at cfl.co.nz> rohit at cfl.co.nz
Web     <http://www.cfl.co.nz/> www.cfl.co.nz

  _____  

This email and any attachments contain information, which is confidential
and may be subject to legal privilege and copyright. If you are not the
intended recipient, you must not use, distribute or copy this email or
attachments. If you have received this in error, please notify us
immediately by return email and then delete this email and any attachments. 

__________ NOD32 1.1461 (20060329) Information __________

This message was checked by NOD32 antivirus system.
http://www.eset.com

  _____  

_______________________________________________

Delphi mailing list

Delphi at ns3.123.co.nz

http://ns3.123.co.nz/mailman/listinfo/delphi

  _____  

No virus found in this incoming message.

Checked by AVG Free Edition.

Version: 7.1.405 / Virus Database: 268.12.6/453 - Release Date: 9/20/2006

__________ NOD32 1.1461 (20060329) Information __________

This message was checked by NOD32 antivirus system.
http://www.eset.com

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://ns3.123.co.nz/pipermail/delphi/attachments/20060922/4edcadce/attachment-0001.html