Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
SUPER DANKE....so wie es aussieht funktionert es...
THX !!
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled := true;
timer1.interval := 30000;
end;
procedure TForm1.Ontimer(Sender: TObject);
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
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 ?
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
Die einzige brauchbare aber auch net wirklich gute auskunft dazu: HIER
kann aber damit nix anfangen :-(
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
immer noch das problem....aber nach etwas "rumtüfteln" kriege ich jetzt den "I/O Error 32" ist das besser als der andere ? :mrgreen:
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
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...
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
bei mir funktioniert es ja auch beim 1. mal...aber dann eben nicht mehr...
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
gleiches problem...getestet mit:
//....
AssignFile (Text_Datei, 'C:\freeaccount.cgi');
rewrite(text_datei);
Write(Text_Datei, {IdHTTP.Get('http://XXX/test.txt')}'asd' );
CloseFile(Text_Datei);
//....
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
tuts auch ^^
sry hab es dummerweise mit ausgeschnitten....*oben edit*
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
{...}
var
Form1: TForm1;
MyTextFile: TStringList;
text_Datei : System.Text;
s:String;
bla:textfile;
list1:TStringlist;
//...
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
Villeicht sollte ich dazu sagen, dass das immer erst im 2. durchlauf passiert...also das ganze ist in einer schleife, die alle 30sek ausgeführt wird :angel:
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
und wie kann ich das nun beheben ?
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
und wie kann ich das jetzt beheben ?
wenn ich doch eine neue datei mit "assignfile" erstelle, dann ist sie doch offen oder nicht ?!
Forum: Programmieren allgemein
by bonanza,
27. Jun 2006
Hi,
ich bekomme in folgendem Code einen "I/O Error 103":
AssignFile (Text_Datei, 'C:\test.txt');
rewrite(text_datei);
Write(Text_Datei, IdHTTP.Get('http:/-entfernt-/test.txt') );
CloseFile(Text_Datei);