Hallo,
kann mir jemand die folgende Funktion einmal erklären? Es ist eine Funktion um den Zustand eines mit der Tapi überwachten Calls auszulesen, aber ich versteh nicht wie das funktioniert (die for-schleife):
Delphi-Quellcode:
function TMyCall.get_CallState: string;
var i: integer;
begin
try
if priv_LineCallStatus.MyCallStatus.dwCallState = 0 then begin
Result := '*** false ***';
end else begin
Result := '';
for i := low(TAPI_LineCallState) to High(TAPI_LineCallState) do
if (priv_LineCallStatus.MyCallStatus.dwCallState and (1 shl i)) > 0
then Result := Result + TAPI_LineCallState[i] + ', ';
if Length(Result) > 0
then Result := Copy(Result, 1, Length(Result) - 2);
end;
except
MyTapi.ShowWarning('Error: TMyLine.get_CallState', 'uMyTapiObj');
end;
end;
TAPI_LineCallState ist ein String Array:
Delphi-Quellcode:
TAPI_LineCallState: array [0..15] of string =
( 'LINECALLSTATE_IDLE',
'LINECALLSTATE_OFFERING',
'LINECALLSTATE_ACCEPTED',
'LINECALLSTATE_DIALTONE',
'LINECALLSTATE_DIALING',
//usw.
dwCallState kommt aus der Tapi:
Delphi-Quellcode:
PLineCallStatus = ^TLineCallStatus;
linecallstatus_tag =
packed record
dwTotalSize,
dwNeededSize,
dwUsedSize,
dwCallState,
dwCallStateMode,
dwCallPrivilege,
dwCallFeatures,
dwDevSpecificSize,
dwDevSpecificOffset: DWORD;
{$IFDEF TAPI20}
dwCallFeatures2: DWORD;
// TAPI v2.0
{$IFDEF WIN32}
tStateEntryTime: TSystemTime;
// TAPI v2.0
{$ELSE}
tStateEntryTime:
array[0..7]
of WORD;
// TAPI v2.0
{$ENDIF}
{$ENDIF}
end;
{$EXTERNALSYM linecallstatus_tag}
TLineCallStatus = linecallstatus_tag;
LINECALLSTATUS = linecallstatus_tag;
{$EXTERNALSYM LINECALLSTATUS}