I/O Error 103

[bonanza]

immer noch das problem....aber nach etwas "rumtüfteln" kriege ich jetzt den "I/O Error 32" ist das besser als der andere ? :mrgreen:

[EDatabaseError]

:shock: solch einen Fehler gibt es gar nicht ?!?

[bonanza]

Die einzige brauchbare aber auch net wirklich gute auskunft dazu: HIER

kann aber damit nix anfangen :-(

[EDatabaseError]

unten steht computer neu starten dann ist der error vl. weg.

[bonanza]

mal angenommen, das programm greift an späterer stelle noch auf diese datei zu...mit welchem befehl kann ich den zugriff beenden, bzw die datei freigeben ?

[EDatabaseError]

mit closefile(f); gibst du sie frei.
:? es wäre sehr hilfreich wenn du mal alles postest was mit der datei was zu tun hat.

[bonanza]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

begin
 timer1.Enabled := true;
timer1.interval := 30000;

end;


procedure TForm1.Ontimer(Sender: TObject);
var
i,j: integer;
ergebnis:boolean;
begin

ergebnis := true;
DeleteFile('C:\text.txt') ; //<-- Er schafft es nicht beim 2. durchlauf die datei zulöschen.
AssignFile (Text_Datei, 'C:\text.txt');
rewrite(text_datei);
Write(Text_Datei, IdHTTP.Get('http://XXX/text.txt') );
reset(text_datei);
CloseFile(Text_Datei);
reset(text_datei);

Application.ProcessMessages;

list1 := TStringlist.Create;
list1.LoadFromFile('C:\text.txt');
i := list1.Count;
AssignFile(bla,'C:\text.txt');
Reset(bla);
for i := 0 to i - 1 do begin
readln(bla,s);
memo1.Lines.Add(s);
if (pos('Peter',s)>0) then begin
  memo1.Lines.Add('Hubert');
  ergebnis := false;
  end;
end;
CloseFile(bla);    //ab hier hab ich so ziemlich alles ausprobiert ^^
list1.Free;
MyTextFile.free  ;

end;

[EDatabaseError]

Zitat:

Zitat von bonanza

Delphi-Quellcode:

{
procedure TForm1.Timer1Timer(Sender: TObject);

begin
 timer1.Enabled := true;
timer1.interval := 30000;

end;
setz das im OI
}

procedure TForm1.Ontimer(Sender: TObject);
var
i,j: integer;
ergebnis:boolean;
begin
On.Enabled := false; //timer disabeln
ergebnis := true;
DeleteFile('C:\text.txt') ; //<-- Er schafft es nicht beim 2. durchlauf die datei zulöschen.
AssignFile (Text_Datei, 'C:\text.txt');
rewrite(text_datei);
Write(Text_Datei, IdHTTP.Get('http://XXX/text.txt') );
//reset(text_datei);//////////////////////////////////////////////////////////////////du kannst die datei nicht nochmal öffnen;
CloseFile(Text_Datei);
//reset(text_datei);///////////////////////////////////////////////////////////////////////und hier schließ du die datei nichtmehr also weglassen.

Application.ProcessMessages;

list1 := TStringlist.Create;
list1.LoadFromFile('C:\text.txt');
i := list1.Count;
AssignFile(bla,'C:\text.txt');
Reset(bla);
for i := 0 to i - 1 do begin
readln(bla,s);
memo1.Lines.Add(s);
if (pos('Peter',s)>0) then begin
  memo1.Lines.Add('Hubert');
  ergebnis := false;
  end;
end;
CloseFile(bla);    //ab hier hab ich so ziemlich alles ausprobiert ^^
list1.Free;
MyTextFile.free  ;
on.enabled := true; //Timer enablen
end;

so ich hab ein paar fehler weg gemacht probiers mal aus.
//edit more fehler weg.

[bonanza]

SUPER DANKE....so wie es aussieht funktionert es...

THX !!

[EDatabaseError]

:thumb: endlich...

mfg
tobi