I/O Error 103

[bonanza]

Delphi-Quellcode:

{...}
var 
  Form1: TForm1;
  MyTextFile: TStringList;
  text_Datei : System.Text;
  s:String;
  bla:textfile;
  list1:TStringlist;

//...
procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Enabled := true;
timer1.interval := 30000;
end;


procedure TForm1.Ontimer(Sender: TObject);
begin
AssignFile (Text_Datei, 'C:\test.txt');
rewrite(text_datei);
Write(Text_Datei, IdHTTP.Get('http:/-entfernt-/test.txt') );
CloseFile(Text_Datei);
//...
end;
//....

[EDatabaseError]

Zitat von bonanza:

Delphi-Quellcode:

{...}
var 
  Form1: TForm1;
  MyTextFile: TStringList;
  text_Datei : System.Text;
  s:String;
  bla:textfile;
  list1:TStringlist;

//...
procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Enabled := true;
timer1.interval := 30000;
end;


procedure TForm1.Ontimer(Sender: TObject);
//--------------------------------------------------muss da nicht ein begin hin gruebel???
AssignFile (Text_Datei, 'C:\test.txt');
rewrite(text_datei);
Write(Text_Datei, IdHTTP.Get('http:/-entfernt-/test.txt') );
CloseFile(Text_Datei);
//....

muss da oben nicht ein begin hin?!?

[bonanza]

tuts auch ^^

sry hab es dummerweise mit ausgeschnitten....*oben edit*

[EDatabaseError]

... könnte es sein:
-das der download zu lange dauert und die datei schon wieder zu ist
-oder das heruntergeladene file via reset geöffnet werden muss um den darin enthaltenen string zu lesen/schreiben


mach mal in dem write einen ganz simplen string 'asd'

mfg

[bonanza]

gleiches problem...getestet mit:

Delphi-Quellcode:

//....
AssignFile (Text_Datei, 'C:\freeaccount.cgi');
rewrite(text_datei);
Write(Text_Datei, {IdHTTP.Get('http://XXX/test.txt')}'asd' );
CloseFile(Text_Datei);
//....

[EDatabaseError]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  text_datei:textFile;
begin
AssignFile (Text_Datei, 'C:\freeaccount.cgi'); 
rewrite(text_datei); 
Write(Text_Datei, {IdHTTP.Get('http://XXX/test.txt')}'asd' );
CloseFile(Text_Datei); 

end;

end.

getestet und das funktioniert.

Mfg

[bonanza]

bei mir funktioniert es ja auch beim 1. mal...aber dann eben nicht mehr...

[EDatabaseError]

ich kann den button tausende male drücken.
wie oft wird der timer ausgefüht mach mal den timer nach begin enabled := false und wenn alles fertig ist gibst du ihn erst wieder mit enabled := true wieder frei.

[bonanza]

das wird so oft wie möglich ausgeführt...alle 30 sek (ich kann es auch auf 2 min stellen) ... um zu testen, ob sich was "getan" hat...

[EDatabaseError]

teste bitte das enabled.