kipiering af *.*

www.udvikleren.dk

maxium  > billigt sluppet? isåfald: www.borland.com ;-)

???? madd

hmm jeg vil da kigge på det link .. hvis det viser sig at være til noget for du altså ikke alle points !!

Kig i demos\\doc\\filmanex i din delphifolder - der ligger et program med masser af muligheder:
kopier, flyt eksekvér osv.

Casper

er det ikke det med den trakbar også ?? .. det er et vildt skummelt eksempel.. jeg kan ikke få det til at virke.. det skal jo også kopierer *.* fra mit bibliotek

Ok - jeg bikser lige noget sammen...

Casper

På www.borrisholt.com under File IO ligger der et eksempel der hedder Filehandling. det kan nemt kopiere/flytte/slette filer som du ønsker !

Mht. Gaugen så kan jeg ikke lige hjælpe der da jeg ikke selv har brugt den !

Snowball

Her er lidt kode jeg lige har lavet:

function docopyfile(Src, Dest: string; PB: TProgressbar): boolean;
var
  SrcFile, DestFile: File;
  Laest, Skrevet, LaestIAlt: integer;
  Buffer: array[1..500] of byte;
  FSize: Integer;
begin
  result := false;
  AssignFile(SrcFile, Src);
  AssignFile(DestFile, Dest);
  Reset(SrcFile, 1);
  try
  Rewrite(DestFile, 1);
  try
    try
    LaestIAlt := 0;
    FSize := fileSize(SrcFile);
    repeat
      BlockRead(SrcFile, Buffer, SizeOf(Buffer), Laest);
      if Laest > 0 then
      begin
      BlockWrite(DestFile, Buffer, laest, Skrevet);
      if Laest <> Skrevet then
        raise Exception.Create(\'\')
      else begin
        LaestIAlt := LaestIAlt + Laest;
        PB.Position := Trunc(LaestIAlt / FSize) * 100;
        PB.Update;
        Application.ProcessMessages;
      end;
      end;
    Until Laest = 0;
    except
    Erase(DestFile);
    raise;
    end;
  finally
    CloseFile(DestFile)
  end;
  Finally
  CloseFile(SrcFile)
  end;
end;

Progressbaren opdaterer muligvis ikke, men mit sys er også langsomt!

Casper

Til allersidst over det sidste end skal der lige være:

result := true

Casper

steinmann;  hmm det går ikke hvis det er alt for langsomt.. ser på det i morgen skal nemlig ud af døren nu ... men er der den Gauge med i din kode??

steinmann: Der er jo ikke meget *.* over din kode ! Man skal jo angive hver fil med både source og destination !

Med Borrisholt\'s FileHandling kan man netop kopiere filer ved at bruge *.* ! :)

Snowball

hmm, man kan vel lave en lykke! har ikke kigget på borisholts!

men det er vel TSerchRec der skal bruges!

Steinmann

Yeps, og det er netop det Borristholt har gjort med sin FileHandling ! :)

Snowball

Atlanta>> kig på borisholt\'s, der er ingen der koder noget mer, borisholt har det hele.

ik fordi jeg ik kan finde ud af det, men mister ligesom lysten når man lige har brugt 25 min på at lave nok det hurtigtste man kan lave indenfor filbehandling, med mindre man skriver BASM! men ok, that life!

hmm steinmann .. den filhandling Borisholt havde er perfekt :) .. den er bare for lækker lige det jeg manglede

atlanta: Hvorfor gi\'r du så steinmann point !? Det var jo mig der fortalte dig om den !

Snowball

don\'t know either! Hvad ska det betyde?

hmm at jeg trykkede forkert :(... sorry

kan i ikk elige finde ud af det ?.. med at steinmann giver pointsne til dig snowball