Status einer externen App in mAirlist verarbeiten

Deutsch / German Scripts
33

Hi @Tondose,

vielen lieben Dank. Es hat super funktioniert. Ich habe das ganze auch in Verbindung mit dem Airlite hinbekommen und ich habe das ganze so erweitert, so daß der Button bei ankommendem Anruf blinkt und sich die Schriftfarbe zusätzlich ändert.

const
  PATH = 'D:\Portable\PhonerLite\Airlite\';
  FILENAME = 'mairlist_phone_status.txt';
var
  sl: TStringList;
procedure UpdateButton;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile(PATH + FILENAME);
    if copy(sl.Text, 1, 1) = '1' then
    begin
ExecuteCommand('PHONERSTATUS FONTCOLOR #FF0000');
ExecuteCommand('PHONERSTATUS BACKGROUNDCOLOR #FF0000');
if trunc(now * 24 * 60 * 60 * 2) mod 2 = 0 then
  ExecuteCommand('PHONERSTATUS BACKGROUNDCOLOR #FFFF00')
	else
	ExecuteCommand('PHONERSTATUS FONTCOLOR #FFFF00');
    end
    else if copy(sl.Text, 1, 1) = '2' then
    begin
    ExecuteCommand('PHONERSTATUS BACKGROUNDCOLOR #FFFF00');
	ExecuteCommand('PHONERSTATUS FONTCOLOR #000000');
     end
    else
    begin
    ExecuteCommand('PHONERSTATUS BACKGROUNDCOLOR #FF0000');
	ExecuteCommand('PHONERSTATUS FONTCOLOR #000000');	
    end;
  finally
    sl.Free;
  end;
end;
procedure OnLoad;
begin
  UpdateButton;
  EnableTimer(500);
end;
procedure OnTimer;
begin
UpdateButton;
end;
begin
end.

So sehe ich jetzt in Mairlist wenn ein Anruf reinkommt, sehe am Airlite den Anruf auch signalisiert, kann über das Airlite die Anrufe steuern und Mairlist zeigt mir jeden Zustand (Incoming, Connected, Disconnected) über einen einzigen Button an.

Nachmittagliche Grüße
Nick

3 Likes