Jut, also im weisentlichen geht es darum das ich zwei Timerroutinen hab, welche auf den gleichen String zugreifen
Delphi-Quellcode:
//capturestring:string ist als globale Variable definiert
procedure Thauptform.tmrMouselogTimer(Sender: TObject);
var
x,y:integer;
aktuellerfenstertitel:string;
begin
x:= getmousex();
y:= getmousey();
aktuellerfenstertitel := lesefenstertitel();
if (aktuellerfenstertitel <> alterfenstertitel) then //Fenstertitel geändert
begin
alterfenstertitel := aktuellerfenstertitel;
MyCS.Enter;
Try //wenn fenster sich geändert hat, diese information mit der aktuellen mausposition in den string schreiben
capturestring := capturestring + '|NWA|'+ aktuellerfenstertitel +'|NWE|'+'|MPA|'+inttostr(x)+','+inttostr(y)+'|MPE|';
Finally
MyCS.Leave;
End;
end
else
begin
MyCS.Enter;
Try //wenn fenster sich nicht geänder hat, nur die aktuelle mouseposition in den string schreiben
capturestring := capturestring + '|MPA|'+inttostr(x)+','+inttostr(y)+'|MPE|';
Finally
MyCS.Leave;
End;
end;
end;
procedure Thauptform.tmrschreibeTimestampTimer(Sender: TObject);
begin
//erst prüfen wir ob die Zeitinformation erneuert werden muss
//es wird geprüft ob eine stunde vergangen ist
if (lasttimestamp + 3600 < datetimetounix(now())) then
begin
info('schreibe timestamp');
MyCS.Enter;
Try
capturestring := capturestring + '|DTA|' + inttostr(datetimetounix(now())) + '|DTE|';
Finally
MyCS.Leave;
End;
lasttimestamp := datetimetounix(now());
oldcapturestring := capturestring;
end;
end;
//die Prozedur schreibt also jede Stunde in die Variable capturestiring den aktuellen Unixtimestamp
Problem des ganzen ist, wie schohn beschrieben, dass, wenn stündlich ein Timestamp in den String geschrieben wird, dieser den aktuellen Datenfluss abhackt
sprich aus dem richtigem Ergebnis '|NWA|Explorer|NWE||MPA|333,444|MPE||DTA|328974893 729|DTE|' wird z.b. '|NWA|Explo|DTA|328974893729|DTE|' wobei der Teil der abgehackt wird ('rer|NWE||MPA|333,444|MPE|') kommplett überschrieben wird