/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
ReWrite(Handle) under Win2000
Fra : Morten Vahlkvist


Dato : 15-11-01 15:20

Jeg har et program som opretter en ny fil med
(filename:=a:\floppyfil.txt):

AssignFile(handle, Filename);
i := IOResult;
If i <> 0 then
begin
Result := false;
StatusPanel.Caption := S_StatusFloppyError;
StatusPanel.Update;
MessageDlg('Debug: AssignFileError',mtInformation,[mbOk],0);
exit;
end;


if (FileExists(FileName)) then Append(handle)
else Rewrite(Handle);
i := IOResult;
If i <> 0 then
begin
Result := false;
StatusPanel.Caption := S_StatusFloppyError;
StatusPanel.Update;
MessageDlg('Debug: RewriteError',mtInformation,[mbOk],0);
exit;
end;

Under win95, 98, NT går dette godt

Under win2000 ryger jeg ind i den anden IF sætning ('Debug:
RewriteError')

De to MessageDlg er sat ind for debug, da jeg ikke har Delphi oppe og
køre på win2000.

Skal mit program tildeles rettigheder til at skrive en ny fil på floppy
eller hvad?

MVH
Morten Vahlkvist

 
 
Morten Vahlkvist (15-11-2001)
Kommentar
Fra : Morten Vahlkvist


Dato : 15-11-01 16:07

Fejlen er fundet, i det afkortede eksempel brugt her skrev jeg at
filename:=floppyfil.txt. Det var ikke helt sandt. Jeg brugte

Filename := 'a:\'+DateToStr(Date)+'.txt';

Det gik galt da dato seperator var sat yil '/' på min windows2000
maskine
da jeg rettede det til:

Filename := 'a:\'+FormatDateTime('yy-mm-dd',Date)+'.txt';

Gik det meget bedre.

Jeg tror jeg hoppede i en klasiker der.

Morten


Morten Vahlkvist wrote:
>
> Jeg har et program som opretter en ny fil med
> (filename:=a:\floppyfil.txt):
>
> AssignFile(handle, Filename);
> i := IOResult;
> If i <> 0 then
> begin
> Result := false;
> StatusPanel.Caption := S_StatusFloppyError;
> StatusPanel.Update;
> MessageDlg('Debug: AssignFileError',mtInformation,[mbOk],0);
> exit;
> end;
>
> if (FileExists(FileName)) then Append(handle)
> else Rewrite(Handle);
> i := IOResult;
> If i <> 0 then
> begin
> Result := false;
> StatusPanel.Caption := S_StatusFloppyError;
> StatusPanel.Update;
> MessageDlg('Debug: RewriteError',mtInformation,[mbOk],0);
> exit;
> end;
>
> Under win95, 98, NT går dette godt
>
> Under win2000 ryger jeg ind i den anden IF sætning ('Debug:
> RewriteError')
>
> De to MessageDlg er sat ind for debug, da jeg ikke har Delphi oppe og
> køre på win2000.
>
> Skal mit program tildeles rettigheder til at skrive en ny fil på floppy
> eller hvad?
>
> MVH
> Morten Vahlkvist

Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste