Hallo zusammen,
mir wurde zum testen eine Logdatei bereit gestellt, ich habe schon an mir gezweifelt bis ich die
Datei lokal kopiert hatte.
Wenn ich die
Datei nun lokal auf dem Rechner habe, so kann ich wunderbar darauf zugreifen.
Wenn ich jedoch auf die
Datei auf dem Server zugreifen möchte, so bekomme ich eine Fehlermeldung "E/A-Fehler 104".
Der Fehler tritt in der Zeile von " while not eof(f) do" auf.
Die
Datei wird alle 60s aktualisiert.
Hier die Routine mit der ich auf die
Datei zugreife:
Delphi-Quellcode:
function ThreadValue.ReadLogFile(Value: Integer): Double;
var
f: TextFile;
s: String;
i: Integer;
d: Double;
begin
// AssignFile(f, 'c:\temp\xxx.LOG');
AssignFile(f, '\\...\xxx.LOG');
// Fehlermeldungen ausschalten:
{$I-}
Reset(f);
{$I+}
i := 0;
DecimalSeparator := '.';
while not eof(f) do
begin
Readln(f, s);
d := StrToFloat(s);
case i of
0, 1, 2:
begin
d := d / 100;
end;
end;
if Value = i then
begin
Result := d;
end;
Inc(i);
end;
CloseFile(f)
end;
Hier der Inhalt der Logdatei:
1352.64
509.78
806.19
18.03
Vielen Dank für eure Hilfe!