Datei kopieren (datei wird verwendet)

[ghost007]

Zitat von nahpets:

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.

So gehts leider auch nicht

[DeddyH]

Ich habe die Prozedur mal "aufgebohrt".

Delphi-Quellcode:

procedure TForm1.CopyEx(const FileName, NewFile: string);
var
  iFileHandleIn,iFileLength,iBytesRead,iBytesWritten:integer;
  buffer:pointer;
  iFileHandleOut,sizeofbuffer:integer;
begin
  //holt sich das handle zum file
  iFileHandleIn := FileOpen(filename, fmShareDenyNone);
  if iFileHandleIn > -1 then
    begin
      //holt sich den pointer auf das ende des files
      iFileLength := FileSeek(iFileHandleIn,0,2);
      if iFileLength > -1 then
        begin
          //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));
          if Assigned(Buffer) then
            begin
              //schreibt den inhalt der datei vom anfang bis zum pointer auf das ende in den buffer
              iBytesRead := FileRead(iFileHandleIn, Buffer^, iFileLength);
              //erstellt ein neues file
              iFileHandleOut := FileCreate(NewFile);
              if iFileHandleOut > -1 then
                begin
                  //schreibt den inhalt des buffers in das neue file
                  iBytesWritten := FileWrite(iFileHandleOut,Buffer,SizeOfBuffer);
                  if iBytesWritten = -1 then
                    ShowMessage('Fehler bei FileWrite');
                  //schliesst das neue file
                  FileClose(iFileHandleOut);
                end
              else
                ShowMessage('Fehler bei CreateFile');
            end
          else
            ShowMessage('Buffer nicht zugewiesen');
        end
      else
        ShowMessage('Fehler bei FileSeek');
      //schliesst das file
      FileClose(iFileHandleIn);
    end
  else
    ShowMessage('Fehler bei Fileopen');
end;

Wenn ich nichts übersehen habe, solltest Du dem Fehler nun auf die Spur kommen können.

[Kurt56]

Zitat von DeddyH:

Ich habe die Prozedur mal "aufgebohrt".

Delphi-Quellcode:

procedure TForm1.CopyEx(const FileName, NewFile: string);
var
  iFileHandleIn,iFileLength,iBytesRead,iBytesWritten:integer;
  buffer:pointer;
  iFileHandleOut,sizeofbuffer:integer;
begin
  //holt sich das handle zum file
  iFileHandleIn := FileOpen(filename, fmShareDenyNone);
  if iFileHandleIn > -1 then
    begin
      //holt sich den pointer auf das ende des files
      iFileLength := FileSeek(iFileHandleIn,0,2);
      if iFileLength > -1 then
        begin
          //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));
          sizeofbuffer:=iFileLength; //<<<--- die Bufferlänge gesetzt, fehlte noch

          if Assigned(Buffer) then
            begin
              //schreibt den inhalt der datei vom anfang bis zum pointer auf das ende in den buffer
              iBytesRead := FileRead(iFileHandleIn, Buffer^, iFileLength);
              //erstellt ein neues file
              iFileHandleOut := FileCreate(NewFile);
              if iFileHandleOut > -1 then
                begin
                  //schreibt den inhalt des buffers in das neue file
                  iBytesWritten := FileWrite(iFileHandleOut,Buffer^,SizeOfBuffer); //<<<---- das ^ bei Buffer eingefügt
//                                                         ----------
                  if iBytesWritten = -1 then
                    ShowMessage('Fehler bei FileWrite');
                  //schliesst das neue file
                  FileClose(iFileHandleOut);
                end
              else
                ShowMessage('Fehler bei CreateFile');
            end
          else
            ShowMessage('Buffer nicht zugewiesen');
        end
      else
        ShowMessage('Fehler bei FileSeek');
      //schliesst das file
      FileClose(iFileHandleIn);
    end
  else
    ShowMessage('Fehler bei Fileopen');
end;

Wenn ich nichts übersehen habe, solltest Du dem Fehler nun auf die Spur kommen können.

Zwei Kleinigkeiten hab ich noch geändert.
Damit geht es.

[DeddyH]

Thx, hatte eben nur C&P benutzt und nicht ausprobiert *g*

[ghost007]

also, der code von euch zwei schmeißt mir die meldung raus "fehler bei fileopen "


...

[DeddyH]

Also klappt schon der Anfang nicht. Hast Du mal so versucht?
iFileHandleIn := FileOpen(filename, fmOpenRead or fmShareDenyNone);

[nahpets]

Hallo,

Zitat von ghost007:

also, der code von euch zwei schmeißt mir die meldung raus "fehler bei fileopen "


...

da gibt's nur zewi Möglichkeiten: Die Datei gibt's nicht, dass schließen wir aus oder das andere Programm hat sie exklusiv geöffnet.

Für das iFileHandleIn := FileOpen(filename, fmShareDenyNone); gibt es mehrere Möglichkeiten, eine weitere wäre
iFileHandleIn := FileOpen(filename, fmOpenRead or fmShareDenyNone); In der Hilfe müsstest Du finden, welche Werte ausser fmShareDenyNone, fmOpenRead noch möglich sind. Such Dir diese bitte heraus und versuche es dann mit unterschiedlichen Kombinationen. Welche Kombination zu welchem Zeitpunkt richtig ist, kann ich Dir beim besten Willen nicht sagen.

[OT]und DeddyH ist schon wieder schneller als ich [/OT]

[ghost007]

könnte mir evtl jemand den auszug aus der hilfe hier posten? Unter vista kann ich die hilfe von Delphi 7 nicht mehr aufrufen -.- er sagt das format der hilfe-datei ist zu alt ....

Danke

[jaenicke]

Mit diesem Download von MS geht die alte Hilfe auch unter Vista :
http://www.microsoft.com/downloads/d...0-334cd175d4bb

[ghost007]

Zitat von jaenicke:

Mit diesem Download von MS geht die alte Hilfe auch unter Vista :
http://www.microsoft.com/downloads/d...0-334cd175d4bb

muchas gracias