Datei wird nicht kopiert in Win2000/XP

[BrunoT]

Hi,

ich habe folgendes Problem:

Ich möchte unter Windows 2000,XP in Delphi eine Datei kopieren. Die Datei kann nicht erstellt werden, da das Verzeichnis ein Unterverzeichnis von Programme ist(Rechtekonflikt). Pur unter Windows im Explorer und unter Kommandozeile ist das Kopieren möglich.

Wie kann ich trotzdem eine Datei dort hin kopieren?(Ich mache das jetz mit Shellexecute und erzeugter Batchdatei, was zwar geht,
aber keine Lösung ist)

ich habe es schon mit GetFileAttributes, GetFileAttributesEx und SetFileAttributes, SetFileAttributesEx versucht,
aber keine Lösung gefunden.

Mfg

BrunoT

[Christian Seehase]

Moin Bruno,

von "Hand" kopieren geht, aber per Programm nicht, da dies wegen Berechtigungen nicht möglich ist?
Kann ja eigentlich nicht sein. Entweder Du darfst da etwas hinkopieren, oder nicht.

Wie hast Du es denn versucht?

[BrunoT]

Hallo Christian,

ich habe aus FMXUtils (Delphi/Docs) die Procedure Copyfile benutzt, welche sonst immer funktioniert, nur dort nicht.

mfg

Delphi-Quellcode:

procedure CopyFile(const FileName, DestName: string);
var
  CopyBuffer: Pointer; { buffer for copying }
  BytesCopied: Longint;
  Source, Dest: Integer; { handles }
  Len: Integer;
  Destination: TFileName; { holder for expanded destination name }
const
  ChunkSize: Longint = 8192; { copy in 8K chunks }
begin
  Destination := ExpandFileName(DestName); { expand the destination path }
  if HasAttr(Destination, faDirectory) then { if destination is a directory... }
  begin
    Len :=  Length(Destination);
    if Destination[Len] = '\' then
      Destination := Destination + ExtractFileName(FileName) { ...clone file name }
    else
      Destination := Destination + '\' + ExtractFileName(FileName); { ...clone file name }
  end;
GetMem(CopyBuffer, ChunkSize); { allocate the buffer }
  try
    Source := FileOpen(FileName, fmShareDenyWrite); { open source file }
    if Source < 0 then raise EFOpenError.CreateFmt(SFOpenError, [FileName]);
    try
      Dest := FileCreate(Destination); { create output file; overwrite existing }
      if Dest < 0 then raise EFCreateError.CreateFmt(SFCreateError, [Destination]);
      try
        repeat
          BytesCopied := FileRead(Source, CopyBuffer^, ChunkSize); { read chunk }
          if BytesCopied > 0 then { if we read anything... }
            FileWrite(Dest, CopyBuffer^, BytesCopied); { ...write chunk }
        until BytesCopied < ChunkSize; { until we run out of chunks }
      finally
        FileClose(Dest); { close the destination file }
      end;
    finally
      FileClose(Source); { close the source file }
    end;
  finally
    FreeMem(CopyBuffer, ChunkSize); { free the buffer }
  end;
end;

[freak4fun]

Hallo Bruno,
hast du mal versucht die Datei "manuell" dort hinzukopieren, wie Christian gesagt hat? Wenn du nicht als Administrator angemeldet bist, hast du vielleicht gar nicht die Rechte dort etwas hinzukopieren.

MfG
freak

[BrunoT]

Hallo freak4fun,

Zitat von freak4fun:

hast du mal versucht die Datei "manuell" dort hinzukopieren:

Ich bin mit Admin-Rechten angemeldet und das Kopieren in das Verzeichnis funktioniert von "Hand" und als Batch(Explorer und CMD).

Es werden irgendwelche Rechte von "oben" durchgereicht, an denen Delphi nicht vorbeikommt

mfg

BrunoT

[Christian Seehase]

Moin Bruno,

schau Dir mal lieber SHFileOperation (SHFileOperation) an.
Die kopiert dann die Dateien auch mit den NTFS-Berechtigungen, und nicht nur die reinen Daten.

[BrunoT]

Hallo Christian,

danke für den Hinweis, ich werde es mir anschauen, um solchen Fehlern vorzubeugen.

übrigens nach Kompilieren des ganzen Projektes funktionierte es plötzlich .

Warum, werde ich wohl nie erfahren.

mfg

BrunoT