Datei kopieren (datei wird verwendet)

[ghost007]

Kann man irgendwie eine datei, die gerade von einem anderen programm verwendet wird kopieren?

MfG - Ghost007

[nahpets]

Hallo,

ja :wink:

Was hast Du vor, willst Du selber kopieren oder per Batch oder per Explorer oder...

Meinst Du eventuell sowas?

Delphi-Quellcode:

iFileHandle := FileOpen('dateiname', fmShareDenyNone);

Damit lassen sich zumindest Dateien zum Lesen öffenen, in die der IIS gerade seine Protokolle schreibt, naja und lesen dürfte ja zum Kopieren reichen.

[ghost007]

hey,

ich will damit eine datei kopieren, eigentlich über das delphi interne CopyFile. Mal eine blöde frage :shock: wie kann ich dann über den filehandle die datei kopieren ? evtl auch mit tfilestream >.<

MfG - Ghost007

[nahpets]

Hallo,

Delphi-Quellcode:

iFileHandleIn := FileOpen(opendialog1.Files[l], fmShareDenyNone);
iFileLength := FileSeek(iFileHandleIn,0,2);
FileSeek(iFileHandleIn,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandleIn, Buffer^, iFileLength);
FileClose(iFileHandle);

Jetzt ist die Datei in Buffer, und den dann mit FileWrite in eine andere Datei schreiben.

Delphi-Quellcode:

iFileHandleOut := FileCreate(SaveDialog1.FileName);
FileWrite(iFileHandleOut,Buffer,SizeOfBuffer)); 
FileClose(iFileHandleOut);

Das ist jetzt nur so "hingedaddelt", sollte aber vom Prinzip funktionieren. Wenn die Datei was größer ist, musst Du sie stückweise in Buffer lesen und dann schreiben.

[ghost007]

hm,
ich versuch gerade den fehler zu lokalisieren ... aber irgendwie erstelt er die dateien zwar alle, aber die haben 0KB und sind leer :D

EDIT:

hab mir folgende procedure draus gebastelt ...

Delphi-Quellcode:

procedure CopyEx(const FileName, NewFile: string);
 var
  iFileHandleIn,iFileLength,iBytesRead:integer;
  buffer:pointer;
  iFileHandleOut,sizeofbuffer:integer;
begin
 iFileHandleIn := FileOpen(filename, fmShareDenyNone);
 iFileLength := FileSeek(iFileHandleIn,0,2);
 FileSeek(iFileHandleIn,0,0);
 Buffer := PChar(AllocMem(iFileLength + 1));
 iBytesRead := FileRead(iFileHandleIn, Buffer^, iFileLength);
 FileClose(iFileHandleIn);
 iFileHandleOut := FileCreate(NewFile);
 FileWrite(iFileHandleOut,Buffer,SizeOfBuffer);
 FileClose(iFileHandleOut);
end;

[Luckie]

Etwas Fehlerbehandlung im Code hilft auch bei der Fehlersuche.

[ghost007]

Zitat:

Zitat von Luckie

Etwas Fehlerbehandlung im Code hilft auch bei der Fehlersuche.

Das problem ist wohl eher darin begründet, dass ich den code nichtmal verstehe :(

EDIT: hab das ganze mal so kommentiert wie ich denke, dass es abläuft ... bitte um korrektur

Delphi-Quellcode:

procedure TForm1.CopyEx(const FileName, NewFile: string);
 var
  iFileHandleIn,iFileLength,iBytesRead:integer;
  buffer:pointer;
  iFileHandleOut,sizeofbuffer:integer;
begin
 //holt sich das handle zum file
 iFileHandleIn := FileOpen(filename, fmShareDenyNone);
 //holt sich den pointer auf das ende des files
 iFileLength := FileSeek(iFileHandleIn,0,2);
 //setzt den pointer wieder auf den anfang des files
 FileSeek(iFileHandleIn,0,0);
 //reserviert speicher mit der größe des files
 Buffer := PChar(AllocMem(iFileLength + 1));
 //schreibt den inhalt der datei vom anfang bis zum pointer auf das ende in den buffer
 iBytesRead := FileRead(iFileHandleIn, Buffer^, iFileLength);
 //schliesst das file
 FileClose(iFileHandleIn);
 //erstellt ein neues file
 iFileHandleOut := FileCreate(NewFile);
 //schreibt den inhalt des buffers in das neue file
 FileWrite(iFileHandleOut,Buffer,SizeOfBuffer);
 //schliesst das neue file
 FileClose(iFileHandleOut);
end;

[nahpets]

Hallo,

Zitat:

Zitat von ghost007

Das problem ist wohl eher darin begründet, dass ich den code nichtmal verstehe :(

EDIT: hab das ganze mal so kommentiert wie ich denke, dass es abläuft ... bitte um korrektur

Delphi-Quellcode:

procedure TForm1.CopyEx(const FileName, NewFile: string);
 var
  iFileHandleIn,iFileLength,iBytesRead:integer;
  buffer:pointer;
  iFileHandleOut,sizeofbuffer:integer;
begin
 //holt sich das handle zum file
 iFileHandleIn := FileOpen(filename, fmShareDenyNone);
 //holt sich den pointer auf das ende des files
 iFileLength := FileSeek(iFileHandleIn,0,2);
 //setzt den pointer wieder auf den anfang des files
 FileSeek(iFileHandleIn,0,0);
 //reserviert speicher mit der größe des files
 Buffer := PChar(AllocMem(iFileLength + 1));
 //schreibt den inhalt der datei vom anfang bis zum pointer auf das ende in den buffer
 iBytesRead := FileRead(iFileHandleIn, Buffer^, iFileLength);
 //schliesst das file
 FileClose(iFileHandleIn);
 //erstellt ein neues file
 iFileHandleOut := FileCreate(NewFile);
 //schreibt den inhalt des buffers in das neue file
 FileWrite(iFileHandleOut,Buffer,SizeOfBuffer);
 //schliesst das neue file
 FileClose(iFileHandleOut);
end;

ich vermute, dass der Fehler hier liegt:

Delphi-Quellcode:

//schreibt den inhalt des buffers in das neue file
FileWrite(iFileHandleOut,Buffer,SizeOfBuffer);

müsste eher heißen:

Delphi-Quellcode:

//schreibt den inhalt des buffers in das neue file
FileWrite(iFileHandleOut,Buffer,iBytesRead);

SizeOfBuffer ist als Integer deklariert, bekommt aber keinen Wert zugewiesen und ist damit zufällig 0 und genausso groß ist auch die Datei. Mit iBytesRead sollten genauso viele Bytes geschrieben werden, wie vorher gelesen wurden.

Ansonsten schau mal unter http://www.delphicorner.f9.co.uk/articles/misc4.htm und dort unter Quick and Dirty Copying, da ist ein Beispiel, dass sicherlich besser ist als meines.

[taaktaak]

Es stellt sich aber grundasätzlich die Frage, ob es sinnvoll ist, eine Datei zu kopieren, die gerade in Benutzung eines anderen Programms ist. Das macht m.E. nur Sinn, wenn sichergestellt ist, dass die andere Anwendung nur lesenden Zugriff hat. Ist das in deinem speziellen Fall so?

[nahpets]

Hallo Ralf,

Zitat:

Zitat von taaktaak

Es stellt sich aber grundsätzlich die Frage, ob es sinnvoll ist, eine Datei zu kopieren, die gerade in Benutzung eines anderen Programms ist. Das macht m.E. nur Sinn, wenn sichergestellt ist, dass die andere Anwendung nur lesenden Zugriff hat. Ist das in deinem speziellen Fall so?

prinzipiell hast Du recht, für die Auswertung von Logfiles muss ich aber stündlich die Dateien auswerten, während die Software, die die Logfiles erstellt, diese nur alle 24 Stunden wechselt. Beim Kopieren von zum Schreiben geöffneten Dateien, habe ich nie den wirklich aktuellen Stand und ggfls. auch mal nicht verwertbare Dateiinhalte. Es ist also Vorsicht geboten.