Wie kopiere ich???

[glkgereon]

also, ich bin grad erst in delphi drin, und bin mit nem freund (yankee) nen html-editor am fabrizieren, aber das hat damit jetzt nix zu tun, auf jeden fall bin ich in delphi noch nicht so weit.
deshalb: wie kopiere ich eine datei (ort und name ist bekannt) woanders hin.
muss ich dafür die datei als (text)datei "erkennen" oder geht das auch so???
ich hatte da an batch bzw exe dateien gedacht, die kopiert werden sollen.
wie geht das?
thx im voraus

[Michael Leyhe]

HI

Wenn du in der Hilfe nachschaust unter blockread oder blockwrite findest du eine Beispielprozedur die eine Datei Kopiert. Dort musst du nur noch den pfad und den Namen und all das ändern

[hummer]

Dass müßte dir weiterhelfen. Damit wird eine ganze Datei kopiert. Ist aus der OH.

Delphi-Quellcode:

var

  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  if OpenDialog1.Execute then     { Öffnen-Dialogfeld anzeigen }
  begin
    AssignFile(FromF, OpenDialog1.FileName);
    Reset(FromF, 1);   { Datensatzgröße = 1 }
    if SaveDialog1.Execute then      { Speichern-Dialogfeld anzeigen }
    begin
      AssignFile(ToF, SaveDialog1.FileName);   { Ausgabedatei öffnen }

      Rewrite(ToF, 1);   { Datensatzgröße = 1 }
      Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
        + ' bytes...');
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      CloseFile(FromF);
      CloseFile(ToF);
    end;
  end;
end;

[himitsu]

Was habt ihr gegen einfach?

Result := Windows.CopyFile(PChar(ExistingFileName), PChar(NewFileName), NoOverwrite);

[hummer]

Warum einfach wenn auch kompliziert geht?

[Michael Leyhe]

Tja weniger ist oft mehr und in diesem Fall stimmt es

Habe mir schon gedacht das es einfacher geht aber ist mir so auf die schnelle nicht eigefallen

[glkgereon]

ja. denn ers ma danke
ich bin von nem anderen forum gewöhnt dasses was länger dauert
aber egal, thx, ich probiers mal aus (was halt schneller geht zu tippen... )