Datei-Ladevorgang abbrechen

[KodeZwerg]

Vielleicht über ein Mapped/Cache versuchen? So in etwa

Delphi-Quellcode:

function MMFileToString(const AFilename: string): string;
var
  hFile: THandle;
  hFileMap: THandle;
  hiSize: DWORD;
  loSize: DWORD;
  text: string;
  view: pointer;
begin
  Result := '';
  if AFilename = '' then
    Exit;
  if not FileExists(AFilename) then
    Exit;
  {Open the file}
  hFile := CreateFile(
    PChar(AFilename), GENERIC_READ, FILE_SHARE_READ, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0
  );
  if hFile <> INVALID_HANDLE_VALUE then
  begin
    loSize := GetFileSize(hFile, @hiSize);
    {File was opened successfully, now map it:}
    hFileMap := CreateFileMapping(
      hFile, nil, PAGE_READONLY, hiSize, loSize, 'TextForString'
    );
    if (hFileMap <> 0) then
    begin
      if (GetLastError() = ERROR_ALREADY_EXISTS) then
      begin
        MessageDlg(
          'Mapping already exists - not created.', mtWarning, [mbOk], 0
        );
        CloseHandle(hFileMap)
      end
      else
      begin
        try
          {File mapped successfully, now map a view of the file into the
          address space:}
          view := MapViewOfFile(hFileMap, FILE_MAP_READ, 0, 0, 0);
          if (view <> nil) then
          begin {View mapped successfully}
            {Close file handle - as long is view is open it will persist}
            CloseHandle(hFile);
            SetLength(Result, loSize);
            Move(view^, Result[1], loSize);
          end
          else
            MessageDlg(
              'Unable to map view of file. ' + SysErrorMessage(GetLastError),
              mtWarning, [mbOk], 0
            );
        finally
          UnmapViewOfFile(view);  {Close view}
          CloseHandle(hFileMap);  {Close mapping}
        end
      end
    end
    else
    begin
      MessageDlg(
        'Unable to create file mapping. ' + SysErrorMessage(GetLastError),
        mtWarning, [mbOk], 0
      );
    end;
  end
  else
  begin
    MessageDlg(
      'Unable to open file. ' + SysErrorMessage(GetLastError),
      mtWarning, [mbOk], 0
    );
  end;
end;

[Maekkelrajter]

Für die temporäre lokale Speicherung wäre ein MMF sicherlich die performanteste Lösung; Leider fehlt in dem Codebeispiel das Entscheidende, nämlich die Möglichkeit, den Kopiervorgang vom NetzLaufwerk in das MMF abbrechen zu können.
Ich fürchte, es wird auf Zwischenspeicherung in ein ein 'normales' File auf der lokalen Platte hinauslaufen. Sowas sollte mit der API-Function CopyFileEx zu bewerkstelligen sein.

[Luckie]

Da gibt es nichts zu fürchten. Das ist der einzige vernünftige Weg.

http://michael-puff.de/Programmierun...nVerlass.shtml

[KodeZwerg]

Auf das MMF bezogen könnte man mit ein paar Änderungen das File Chunkweise reinladen, auf Wunsch geladenes bereits darstellen/zur Bearbeitung zur Verfügung stellen; Indikator (% Anzeige) erhöhen etc.; Knopf "Abbruch" "Retry" etc., also per Puffer kontrolliert nachladen lassen, das ganze mit einem Übertragungsdialog versehen, oder eben einen Api Kopierbefehl einleiten der das dann überträgt, wenn es gut geht (transmit OK) klappen beide Varianten. Deine Lesemethode sollte identisch schnell gegenüber dem MMF sein, ich habe es noch nicht gebencht aber mein Bauchgefühlt sagt mir ist so ziemlich das selbe nur in grün.

[Maekkelrajter]

Ich habe das jetzt erstmal mit SHFileOperation gelöst, welches ja eine Fortschrittsanzeige und einen Abbruch-Button mitliefert. Passende Code-Schnipsel hatte ich noch in meiner 'Grabbelkiste'. Da ich dieses Programm voraussichtlich nur selbst und in einer bekannten Umgebung benutzen werde, wollte ich den Aufwand in Grenzen halten. Deshalb wäre es wohl Overkill, jede denkbare Konfiguration und jede Fehlermöglichkeit berücksichtigen zu wollen. Die Performance ist auch kein Problem, da es bekanntlich bei der Interaktion mit dem GUI nicht auf Nanosekunden ankommt. Der eigentliche Kopiervorgang dauert eh genausolange wie bei der direkten Methode.

Vielen Dank an alle, die mit guten Tips geholfen haben!

[KodeZwerg]

Wenn ich fragen dürfte, was passiert wenn der Copy Dialog auf ist und Du das Kabel rausziehst/Verbindung trennst und was passiert wenn Dein Prozess gekillt wird bevor Copy fertig ist, die zwei Dinge Interessieren mich, Danke für Antwort darauf! (auf letzteres könnte ich mir bereits was vorstellen)

[Maekkelrajter]

Im ersten Fall passiert erstmal garnichts. Der ProgressBar bleibt stehen, und das Programm wartet auf die Beendigung des Kopiervorganges und ist solange paralysiert. Das kann dauern, wie ich ja Anfangs beschrieben habe. Erst wenn ich 'Abbrechen' klicke, wird der Vorgang beendet und evtl. schon geschriebene Teile der Datei gelöscht. Anschließend ist die Anwendung wieder bedienbar, also alles ordnungsgemäß, wie es aussieht.
Wenn der Prozess 'gekillt' wird (via Taskmanager), verschwindet das Hauptfenster samt Copy-Dialog sofort. Im Taskmanager ist das Programm noch ein paar Sekunden zu sehen, wahrscheinlich bis Windows 'aufgeräumt' hat.
Ich hoffe, die Fragen damit beantwortet zu haben.

Gruß

[KodeZwerg]

Vielen Dank fürs Feedback und ja damit ist alles gut beantwortet!