Reset en readonly-fil

du vil sætte en fil til ikke readonly mere???

/ZIRON

brug koden:

SetFileAttributes(pchar(\'c:\\fil_du_vil_ændre.exe\'), FILE_ATTRIBUTE_NORMAL);


du kan se hvad du kan ændre til hvis du søger på SetFileAttributes i delphi hjælpen...

/ZIRON

Hehe... Sorry, jeg tror jeg har skrevet lidt forkert... Jeg har en fil der er readonly, og den skal \"resættes\"
Jeg kan ikke sætte filen \"IKKE-READONLY\" Det er over lokalnetværk, så det er ikke muligt!

procedure TForm1.Button1Click(Sender: TObject);
Const
Filnavn=\'C:\\MinFile.txt\';
begin
if (FileGetAttr(Filnavn) and faReadOnly) > 0
then FileSetAttr(Filnavn, FileGetAttr(Filnavn) xor faReadOnly);
end;

Den checker først om filen skal gøes ikke skrive beskyttes, hvis den skal bliver den.

Du kan evt. prøve med fileopen() den tager openmode parameter :

Constant    Definition

fmOpenRead    Open for read access only.
fmOpenWrite    Open for write access only.
fmOpenReadWrite    Open for read and write access.
fmShareCompat    Compatible with the way FCBs are opened.
fmShareExclusive    Read and write access is denied.
fmShareDenyWrite    Write access is denied.
fmShareDenyRead    Read access is denied.
fmShareDenyNone    Allows full access for others.

Hvordan kan jeg gøre en fil der ligger på et lokalnetværk, \"Ikke-readonly\"?!? Så vidt jeg ved, er det ikke muligt, med mindre man laver nogle ikke helt lovlige tricks!

Er FileOpen ikke kun til tekstfiler?

procedure TForm1.Button1Click(Sender: TObject);
Const
Filnavn=\'C:\\MinFile.txt\';
var
  FromFile, ToFile: file;
begin
if (FileGetAttr(Filnavn) and faReadOnly) > 0 then
Begin
  AssignFile(FromFile, InputFile);
  Reset(FromFile, 1);    //Her kommer fejlen!

  AssignFile(ToFile, OutputFile);
  Rewrite(ToFile, 1);
...
end else showmessage(\'File Is Read Only!\');
end;

Jeg skal \"Seek\'e\" i filen, så den SKAL resættes på en eller anden måde!!!

Det er ikke nok! Hvis filen er ReadOnly skal man da også kunne læse fra den!!!

Der er normalt ikke nogle problemer med at læse fra en readonly fil som du prøver på i din kode, så det kunne jo være at Reset(,1); prøver at åbne med en filemode der er ReadWrite og den går jo ikke, derfor bruger du FileOpen i stedet for, for den kan du selv bestemme openmode på, eller hvis det bare er en kopi du vil lave kunne du overveje TFileStream / TMemoryStream i stedet for

Så vidt jeg ved gør Reset(,1) det at den sætter en RecSize, som de selv kalder det. Det skulle så gerne være hvor meget der bliver læst fra filen af gangen...

Du kunne jo overveje disse, hvis du ikke kan bruge Streams som er langt det nemeste :

FileOpen(), FileSeek(), FileRead();

Hvad er det lige Streams det er? Og virker FileOpen(), FileSeek() FileRead() på binære filer?

Ja, fra hjælpen : \" Opens a specified file using a specified access mode. \"

Streams er en Classe til at læse og skrive til div. ting f.eks. en fil eller memory, TFileStream.Create tager en openmode.

Laver en kopi :

VAR
  FFra,FTil : TFileStream;
begin
  FFra := TFileStream.Create(\'MyInputFile\',fmOpenRead);
  FTil := TFileStream.Create(\'MyOutputFile\',fmCreate);
  FTil.CopyFrom(FFra,0);
  FTil.Free;
  FFra.Free;
end;

Okay, jeg kigger på det! Thanks! :)

Hvad gør CopyFrom(), og hvad gør den Longint i andet parameter?

Kig lige i Hjælpen *S*, den Kopierer fra source streamen og 0 betyder fra starten.

Delphi har en global variabel der hedder FileMode, og det er den mode der bruges når du åbner en fil. Default der read/write (2), derfor kan du ikke åbne filen. Hvis du sætter FileMode til 0 inden Reset, så kan du godt åbne den.

Jah, okay... Det havde jeg sådan i store træk gættet, men andet parameter er det startstedet i bytes?

Thanks Unclebug! Det virker sgu nu!!!

Nej, Det er Count, du kan se det i hjælpen, men prøv du lige og se hvad unclebug skriver, det var lige det jeg ikke kunne huske *S*

Tusind tak også til martinlind, jeg tror også jeg kan bruge noget af det du gav mig! :) Håber I er tilfredse med pointfordelingen!

Ja, det er fint *S*

Hey! Nu har jeg fået det til at virke, men jeg har lige et lille supplerende spørgsmål...

Hvis jeg skal Rewrite\'e en fil der eksisterer i forvejen, hvordan kan jeg så undgå at den fil jeg skal rewrite\'e til, ikke bliver slettet først??

Jeg skal bruge noget der minder om Append, men til binære filer. HJÆLP!!!

Så laver man ikke en Rewrite, med en Reset og en Seek til enden af filen

/Martin

Skal FileMode så sættes til WriteOnly, Read/Write eller er det fuldstændig ligemeget?

Glem det! Har fået det til at virke! Thanks! :)