Hallo!

Habe folgendes problem: Ich möchte Daten mit Hilfe des AnsyncPro über die ser. schittstelle einlesen. Hierzu benutze ich folgende Prozedur:

markieren

Code:

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);

var I : Word;
    C: char;
    daten : string ;
    f: TextFile;
begin
  daten := '';
 AssignFile (f, 'C:\Wetterdaten.txt');
 if not FileExists('C:\Wetterdaten.txt') then
   ReWrite(f) else
  Reset(f);
  for I := 1 to Count do
    begin
        C := ApdComPort1.GetChar;
        daten := daten + C;
       sleep(15);
    end;
  // Daten in Memo schreiben
  Memo1.SelText:= daten;

//Daten in Datei schreiben
  WriteLn(f,daten);
  CloseFile(f);
end;

Führe ich mein Progeramm aus...bekomme ich eine Fehlermeldung ERROR 105...heißt wohl "Datei nicht für Ausgabe geöffnet". WriteLn(f,Daten) ist markiert.

Habe ich nur Rewrite da stehen. Klappt es...es hapert wohl irgendwie am Reset...aber wieso?
Und wir könnte ich den Fehler beheben?
Die befehle an sich müssten stimmen...hab sie schon mehrmals kontrolliert.

Kann mir jemand helfen?

Und weiß jemand wie ich die Procedur TriggerAvail in einer Timer Procedure aufrufen kann?

danke schon mal

Nimm mal Append anstatt Reset, du willst ja Daten anhängen. Reset, setzt den Dateizeiger aber auf den Anfang der Datei und dann schläg wohl das Writeln fehl.

Desweiteren solltets du dir angewöhnen deinen Quellcode gescheit zu formatieren:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);

var
  I : Word;
  C : char;
  daten : string;
  f : TextFile;
begin
  daten := '';
  AssignFile(f, 'C:\Wetterdaten.txt');
  if not FileExists('C:\Wetterdaten.txt') then
    ReWrite(f)
  else
    Reset(f);
  for I := 1 to Count do
  begin
    C := ApdComPort1.GetChar;
    daten := daten + C;
    sleep(15);
  end;
  // Daten in Memo schreiben
  Memo1.SelText := daten;

  //Daten in Datei schreiben
  WriteLn(f, daten);
  CloseFile(f);
end;

Und stell bitte deine zweite Frage in einen neuen Thread.