Re: Datei kopieren (datei wird verwendet)
Zitat:
|
Re: Datei kopieren (datei wird verwendet)
Ich habe die Prozedur mal "aufgebohrt".
Delphi-Quellcode:
Wenn ich nichts übersehen habe, solltest Du dem Fehler nun auf die Spur kommen können.
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; |
Re: Datei kopieren (datei wird verwendet)
Zitat:
Damit geht es. |
Re: Datei kopieren (datei wird verwendet)
Thx, hatte eben nur C&P benutzt und nicht ausprobiert *g*
|
Re: Datei kopieren (datei wird verwendet)
also, der code von euch zwei schmeißt mir die meldung raus "fehler bei fileopen "
... :( |
Re: Datei kopieren (datei wird verwendet)
Also klappt schon der Anfang nicht. Hast Du mal so versucht?
Delphi-Quellcode:
iFileHandleIn := FileOpen(filename, fmOpenRead or fmShareDenyNone);
|
Re: Datei kopieren (datei wird verwendet)
Hallo,
Zitat:
Für das
Delphi-Quellcode:
gibt es mehrere Möglichkeiten, eine weitere wäre
iFileHandleIn := FileOpen(filename, fmShareDenyNone);
Delphi-Quellcode:
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.
iFileHandleIn := FileOpen(filename, fmOpenRead or fmShareDenyNone);
[OT]und DeddyH ist schon wieder schneller als ich :x [/OT] |
Re: Datei kopieren (datei wird verwendet)
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 |
Re: Datei kopieren (datei wird verwendet)
Mit diesem Download von MS geht die alte Hilfe auch unter Vista ;-):
http://www.microsoft.com/downloads/d...0-334cd175d4bb |
Re: Datei kopieren (datei wird verwendet)
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:05 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz