Delphi - programmering af back-up program

Du kan nok finde inspiration her : http://www.eksperten.dk/spm/840662#reply_7176838 - til kopiering af filer + mapper.

Hvorfor bruger du ikke kommandolinjeprogrammet XCopy? Det kan vist stort set det du spørger om.

Hvis det er et versioneringsværktøj du har brug for: Hvad med SVN (og TortoiseSVN) eller Git? Begge er OpenSource (sidstnævnte er lavet af Linus selv) og håndterer snildt cirkusset med at holde styr på source-filerne. Bevares, man skal læse lidt for at sætte det op på en server, men det er besværet værd.

Jeg bruger SVN og Tortoise på mit arbejde. Det fungerer fint.
Ideen med dette her er at kunne lave backup af alle mine filer der er værd at gemme. Det kan være billeder, dokumenter, programmer osv. Så derfor vil jeg lave et program der gemmer mapper jeg har valgt med jævne mellemrum. Jeg er klar over at jeg sikkert kunne finde et program der ville kunne dette på nettet, men jeg ønsker 100 % kontrol så jeg kan lave det lige som jeg ønsker.
Jeg har faktisk lavet den "hårde del" og mangler nu kun brugergrænsefladen. Til selve kopi delen af filer har jeg benyttet Delphi - TFileStream.

Det med kontrollen kan du vel stadig styre med filernes "Archive"-bit. Alt det du ikke vil have med fjerner du flaget på, eksempelvis "attrib -a *.dcu /s"

... men hvis du vil lave det i Delphi er det vel meget forståeligt. Der er ingen der gider bat/cmd-filer længere.

Hvad TFileStream angår så kan du bruge Windows' Win32 funktioner såsom CopyFile eller CopyFileEx.

Måske skal vi prøve at svare manden på hans spørgsmål, fremfor at komme med gode råd til alternative løsninger.

a)
I Delphi kan du kopiere en fil med

  copyfile(frafilnavn, tilfilnavn, overskriv);

frafilnavn og tilfilnavn er filnavne (strings) og overskriv er en boolean - Du kan finde mere om denne funktion i pascal hjælp

b)
Du kan f.eks. løbe de filer der skal backup'pes igennem på følgende måde:

error : integer;
srec : tsearchrec;
path : string;

  path := 'c:\*.*'; // f.eks.
  error := findfirst(path, faanyfile, srec);
  while error=0 do begin
    // oprindelige fil alder i srec.time
    // sammenlign med fileage på backupfil
    error := findnext(srec);
  end;
  findclose(srec)

c)
Jeg forstår ikke rigtigt dette punkt, vil du være sikker på at filen er blevet kopieret, eller hva ??

ibhe: Der bliver svaret på spørgsmålet. Jeg synes bare ikke ideen er så god, at han skal slippe for alternativer. Den opmærksomhed giver jeg hans spørgsmål. Kan slet ikke se dit svar bringer ham nærmere en løsning for:

ad a. Jeg nævnte selv at man kunne benytte disse to funktioner og slippe for TFileStream. I Delphi er de mappet til "menneskelige" datatyper, men det er det samme; hvilken man får fat i (med ctrl-mellemrum) varierer.

ad b. Tror nok fedtore er i stand til at copy-paste fra Delphi-hjælpeteksten - og yderligere smække det i en try-finally. Din idé med fileage er nogenlunde, men det vil være hurtigere at kigge på archive-flaget i stedet (som jeg også skrev). Flaget er der til det samme.