Hallo Freunde,
endlich funktioniert mein Kostenzähler mit automatischer Verbindungserkennung!
ABER: der zeigt die aktuelle verbindungsdauer an (mit einem Timer (1s)); vergleicht man die aber mal mit der anzeige der dfü-verbindung, stimmen sie schon nach ca. 2 minuten um mehrere sekunden NICHT überein.. das macht mehrere minuten aus in 2-3 stunden!
gibt es irgendwie eine möglichkeit, etwas WIRKLICH JEDE SEKUNDE zu aktualisieren?
vielleicht liegt das ja daran, dass noch zusätzlich die Rechenzeit mit einfließt, in der der timer den QT ausführt?
ich zeig euch einfach meinen text:
Delphi-Quellcode:
type
Uhr = Record
H : string;
M : string;
S : string;
end; //Alle String, damit ich sie gleich nem Label zuw. kann
var Satz : string := '0,89' //Kosten in ct/min
...
procedure Tform1.Uhrzeit(var Zeit : Uhr; welche : integer);
begin
if StrtoInt(Zeit.S) >= 59 then begin
if StrtoInt(Zeit.M) = 59 then begin
Zeit.H := InttoStr(StrtoInt(Zeit.H) + 1);
Zeit.M := '00';
if StrToInt(Zeit.H) > 2 then Label9.Font.Color:=clred;
end;
if StrtoInt(Zeit.M)<59 then Zeit.M:=InttoStr(StrtoInt(Zeit.M)+1);
Zeit.S := IntToStr(StrToInt(Zeit.S) - 60);
if welche = 1 then Label15.Caption := FloattoStr(StrtoFloat(Label15.Caption) + (StrtoFloat(Satz) / 100));
if welche = 2 then Label8.Caption := FloattoStr(StrtoFloat(Label8.Caption) + (StrtoFloat(Satz) / 100));
end;
if StrtoInt(Zeit.S) < 59 then Zeit.S := InttoStr(StrtoInt(Zeit.S) + 1);
if length(Zeit.H) = 1 then Zeit.H := '0' + Zeit.H;
if length(Zeit.M) = 1 then Zeit.M := '0' + Zeit.M;
if length(Zeit.S) = 1 then Zeit.S := '0' + Zeit.S;
end;
...
procedure TForm1.Timer1Timer(Sender: TObject); // Intervall = 1000 ms
begin
Uhrzeit(Jetzt,1);
Uhrzeit(Heute,2);
end;
ein beispiel der differenz:
DFÜ-Anzeige: 01:48:24 Online
Meine Anzeige: 01:41:11 Online
Hoffe, ihr könnt mir helfen!
MfG Lefko.
[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]