Von BlockRead/BlockWrite wegkommen - IFileOperation steht bereit, aber kein CallBack

[dGeek]

Klappt wunderbar, Danke!
ich habe jetzt folgendes Konstrukt für den absoluten Notall:

Delphi-Quellcode:

// - versuche Datei mit BlockRead und BlockWrite zu "kopieren"
// - - wenn sofort ein Fehler auftritt und nicht "kopiert werden konnte DANN
// - - - "kopiere" Datei mit den seit Vista mitgelieferten IFileOperation-Funktionen
// - - geht das schief, gib einen Fehler aus

[dGeek]

Eine letzte Frage:
kann BlockRead und -Write auch Dateien mit überlangen Pfadnamen kopieren?
Denn soweit ich weiß können die IFileOperations Pfadnamen bis ~32.000 Zeichen kopieren.

[himitsu]

BlockRead und BlockWrite ist der Dateiname egal, denn Lese-/Schreibvorgänge arbeiten nur mit dem FileHandle.

Und wenn man 'ne Datei mit UNC öffnet, dann geht es auch mit Pfaden länger als MAX_PATH.

[dGeek]

Zitat:

Und wenn man 'ne Datei mit UNC öffnet, dann geht es auch mit Pfaden länger als MAX_PATH.

Das klingt zwar interessant aber...

was wäre denn der UNC-Pfad zu z.B. D:\verzeichnis1\datei1.txt ?

Soweit ich jetzt rausgefunden habe in etwa so..

\\Computername\D$\verzeichnis1$\datei1.txt

?

[himitsu]

UNC -> erster Link -> https://de.wikipedia.org/wiki/Unifor...ale_Ressourcen

[dGeek]

Meine stupide Lösung:

Delphi-Quellcode:

function getComputerName: string;
var
 Len: DWord;
begin
 Len := MAX_COMPUTERNAME_LENGTH + 1;
 SetLength(Result, Len);

 if Windows.getComputerName(PChar(Result), Len) then
  SetLength(Result, Len)
 else
  Result := '';
end;

function getUNCPath(aPath: string; aComputerName: string = ''): string;
var
 sTmp: string;
begin

 if aComputerName <> '' then
  sTmp := aComputerName
 else
  sTmp := getComputerName;

 Result := '\\' + sTmp + '\' + StringReplace(aPath, ':', '$');
end;

// Aufruf (bei einmaligem Aufruf)
showmessage( getUNCPath('D:\verzeichnis1\datei1.txt' );

// oder (bei mehreren Aufrufen in einer Schleife)
sComputerName := getComputer; // vor der Schleife

showmessage( getUNCPath('D:\verzeichnis1\datei1.txt', sComputerName ); // in der Schleife

// Vorher:
// D:\verzeichnis1\datei1.txt

// Nachher:
// \\DeinComputer\D$\verzeichnis1\datei1.txt

[Dalai]

Wieso Computername rausfinden? Es geht nur um das Prefix \\?\.

Grüße
Dalai