adlibmdm.pas

Async Professional 4.04

  Result.Voice.SpeakerPhoneDisable := TList.Create;
  Result.Voice.SpeakerPhoneEnable := TList.Create;
  Result.Voice.SpeakerPhoneMute := TList.Create;
  Result.Voice.SpeakerPhoneSetVolumeGain := TList.Create;
  Result.Voice.SpeakerPhoneUnMute := TList.Create;
  Result.Voice.StartPlay := TList.Create;
  Result.Voice.StartRecord := TList.Create;
  Result.Voice.StopPlay := TList.Create;
  Result.Voice.StopRecord := TList.Create;
  Result.Voice.VoiceAnswer := TList.Create;
  Result.Voice.VoiceDialNumberSetup := TList.Create;
  Result.Voice.VoiceToDataAnswer := TList.Create;
  Result.Voice.WaveDriver.WaveFormat := TList.Create;

  { Create Fax Entries }

  Result.FaxDetails.FaxClass1.AnswerCommand := TList.Create;
  Result.FaxDetails.FaxClass2.AnswerCommand := TList.Create;
  Result.FaxDetails.FaxClass2_0.AnswerCommand := TList.Create;

  Result.Options := TStringList.Create;
  Result.BaudRates := TStringList.Create;

  { Create other things }

  Result.Answer := TList.Create;
  Result.Fax := TList.Create;
  Result.Hangup := TList.Create;
  Result.Init := TList.Create;
  Result.Monitor := TList.Create;
end;

procedure TApdLibModem.LoadModemGeneral (oOwner     : TObject;
                                           sName,
                                           sValue     : DOMString;
                                           bSpecified : Boolean);
begin
  if sName = 'Inheritance' then
    PLmModem (FModem[FCurModemIdx]).Inheritance:= sValue
  else if sName = 'AttachedTo' then
    PLmModem (FModem[FCurModemIdx]).AttachedTo:= sValue
  else if sName = 'FriendlyName' then
    PLmModem (FModem[FCurModemIdx]).FriendlyName := sValue
  else if sName = 'Manufacturer' then
    PLmModem (FModem[FCurModemIdx]).Manufacturer := sValue
  else if sName = 'Model' then
    PLmModem (FModem[FCurModemIdx]).Model := sValue
  else if sName = 'ModemID' then
    PLmModem (FModem[FCurModemIdx]).ModemID := sValue
  else if sName = 'InactivityFormat' then
    PLmModem (FModem[FCurModemIdx]).InactivityFormat := sValue
  else if sName = 'Reset' then
    PLmModem (FModem[FCurModemIdx]).Reset := sValue
  else if sName = 'DCB' then
    PLmModem (FModem[FCurModemIdx]).DCB := sValue
  else if sName = 'Properties' then
    PLmModem (FModem[FCurModemIdx]).Properties := sValue
  else if sName = 'ForwardDelay' then
    PLmModem (FModem[FCurModemIdx]).ForwardDelay := GetXMLInteger (sValue, 0)
  else if sName = 'VariableTerminator' then
    PLmModem (FModem[FCurModemIdx]).VariableTerminator := sValue
  else if sName = 'InfPath' then
    PLmModem (FModem[FCurModemIdx]).InfPath := sValue
  else if sName = 'InfSection' then
    PLmModem (FModem[FCurModemIdx]).InfSection := sValue
  else if sName = 'ProviderName' then
    PLmModem (FModem[FCurModemIdx]).ProviderName := sValue
  else if sName = 'DriverDesc' then
    PLmModem (FModem[FCurModemIdx]).DriverDesc := sValue
  else if sName = 'ResponsesKeyName' then
    PLmModem (FModem[FCurModemIdx]).ResponsesKeyName := sValue
  else if sName = 'Default' then
    PLmModem (FModem[FCurModemIdx]).Default := sValue
  else if sName = 'CallSetupFailTimeout' then
    PLmModem (FModem[FCurModemIdx]).CallSetupFailTimeout := GetXMLInteger (sValue, 0)
  else if sName = 'InactivityTimeout' then
    PLmModem (FModem[FCurModemIdx]).CallSetupFailTimeout := GetXMLInteger (sValue, 0)
  else if sName = 'SupportsWaitForBongTone' then
    PLmModem (FModem[FCurModemIdx]).SupportsWaitForBongTone := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsWaitForQuiet' then
    PLmModem (FModem[FCurModemIdx]).SupportsWaitForQuiet := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsWaitForDialTone' then
    PLmModem (FModem[FCurModemIdx]).SupportsWaitForDialTone := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSpeakerVolumeLow' then
    PLmModem (FModem[FCurModemIdx]).SupportsSpeakerVolumeLow := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSpeakerVolumeMed' then
    PLmModem (FModem[FCurModemIdx]).SupportsSpeakerVolumeMed := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSpeakerVolumeHigh' then
    PLmModem (FModem[FCurModemIdx]).SupportsSpeakerVolumeHigh := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSpeakerModeOff' then
    PLmModem (FModem[FCurModemIdx]).SupportsSpeakerModeOff := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSpeakerModeDial' then
    PLmModem (FModem[FCurModemIdx]).SupportsSpeakerModeDial := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSpeakerModeOn' then
    PLmModem (FModem[FCurModemIdx]).SupportsSpeakerModeOn := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSpeakerModeSetup' then
    PLmModem (FModem[FCurModemIdx]).SupportsSpeakerModeSetup := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSetDataCompressionNegot' then
    PLmModem (FModem[FCurModemIdx]).SupportsSetDataCompressionNegot := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSetErrorControlProtNegot' then
    PLmModem (FModem[FCurModemIdx]).SupportsSetErrorControlProtNegot := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSetForcedErrorControl' then
    PLmModem (FModem[FCurModemIdx]).SupportsSetForcedErrorControl := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSetCellular' then
    PLmModem (FModem[FCurModemIdx]).SupportsSetCellular := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSetHardwareFlowControl' then
    PLmModem (FModem[FCurModemIdx]).SupportsSetHardwareFlowControl := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSetSoftwareFlowControl' then
    PLmModem (FModem[FCurModemIdx]).SupportsSetSoftwareFlowControl := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsCCITTBellToggle' then
    PLmModem (FModem[FCurModemIdx]).SupportsCCITTBellToggle := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSetSpeedNegotiation' then
    PLmModem (FModem[FCurModemIdx]).SupportsSetSpeedNegotiation := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSetTonePulse' then
    PLmModem (FModem[FCurModemIdx]).SupportsSetTonePulse := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsBlindDial' then
    PLmModem (FModem[FCurModemIdx]).SupportsBlindDial := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsSetV21V23' then
    PLmModem (FModem[FCurModemIdx]).SupportsSetV21V23 := GetXMLBoolean (sValue, False)
  else if sName = 'SupportsModemDiagnostics' then
    PLmModem (FModem[FCurModemIdx]).SupportsModemDiagnostics := GetXMLBoolean (sValue, False)
  else if sName = 'MaxDTERate' then
    PLmModem (FModem[FCurModemIdx]).MaxDTERate := GetXMLInteger (sValue, 0)
  else if sName = 'MaxDCERate' then
    PLmModem (FModem[FCurModemIdx]).MaxDCERate := GetXMLInteger (sValue, 0)
  else if sName = 'CurrentCountry' then
    PLmModem (FModem[FCurModemIdx]).CurrentCountry := sValue
  else if sName = 'MaximumPortSpeed' then
    PLmModem (FModem[FCurModemIdx]).MaximumPortSpeed := GetXMLInteger (sValue, 0)
  else if sName = 'PowerDelay' then
    PLmModem (FModem[FCurModemIdx]).PowerDelay := GetXMLInteger (sValue, 0)
  else if sName = 'ConfigDelay' then
    PLmModem (FModem[FCurModemIdx]).ConfigDelay := GetXMLInteger (sValue, 0)
  else if sName = 'BaudRate' then
    PLmModem (FModem[FCurModemIdx]).BaudRate := GetXMLInteger (sValue, 0);
end;

procedure TApdLibModem.LoadVoiceSettings (oOwner     : TObject;
                                          sName,
                                          sValue     : DOMString;
                                          bSpecified : Boolean);
begin
  if sName = 'VoiceProfile' then
    PLmModem (FModem[FCurModemIdx]).Voice.VoiceProfile := sValue
  else if sName = 'HandsetCloseDelay' then
    PLmModem (FModem[FCurModemIdx]).Voice.HandsetCloseDelay := GetXMLInteger (sValue, 0)
  else if sName = 'SpeakerPhoneSpecs' then
    PLmModem (FModem[FCurModemIdx]).Voice.SpeakerPhoneSpecs := sValue
  else if sName = 'AbortPlay' then
    PLmModem (FModem[FCurModemIdx]).Voice.AbortPlay := sValue
  else if sName = 'CallerIDOutSide' then
    PLmModem (FModem[FCurModemIdx]).Voice.CallerIDOutSide := sValue
  else if sName = 'CallerIDPrivate' then
    PLmModem (FModem[FCurModemIdx]).Voice.CallerIDPrivate:= sValue
  else if sName = 'TerminatePlay' then
    PLmModem (FModem[FCurModemIdx]).Voice.TerminatePlay := sValue
  else if sName = 'TerminateRecord' then
    PLmModem (FModem[FCurModemIdx]).Voice.TerminateRecord := sValue
  else if sName = 'VoiceManufacturerID' then
    PLmModem (FModem[FCurModemIdx]).Voice.VoiceManufacturerID := sValue
  else if sName = 'VoiceProductIDWaveIn' then
    PLmModem (FModem[FCurModemIdx]).Voice.VoiceProductIDWaveIn := sValue
  else if sName = 'VoiceProductIDWaveOut' then
    PLmModem (FModem[FCurModemIdx]).Voice.VoiceProductIDWaveOut := sValue
  else if sName = 'VoiceSwitchFeatures' then
    PLmModem (FModem[FCurModemIdx]).Voice.VoiceSwitchFeatures := sValue
  else if sName = 'VoiceBaudRate' then
    PLmModem (FModem[FCurModemIdx]).Voice.VoiceBaudRate := GetXMLInteger (sValue, 0)
  else if sName = 'VoiceMixerMid' then
    PLmModem (FModem[FCurModemIdx]).Voice.VoiceMixerMid := sValue
  else if sName = 'VoiceMixerPid' then
    PLmModem (FModem[FCurModemIdx]).Voice.VoiceMixerPid := sValue
  else if sName = 'VoiceMixerLineID' then
    PLmModem (FModem[FCurModemIdx]).Voice.VoiceMixerLineID := sValue

    
  else if sName = 'BaudRate' then
    PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.BaudRate := sValue
  else if sName = 'WaveHardwareID' then
    PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveHardwareID := sValue
  else if sName = 'WaveDevices' then
    PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveDevices := sValue
  else if sName = 'LowerMid' then
    PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.LowerMid := sValue
  else if sName = 'LowerWaveInPid' then
    PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.LowerWaveInPid := sValue
  else if sName = 'LowerWaveOutPid' then
    PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.LowerWaveOutPid := sValue
  else if sName = 'WaveOutMixerDest' then
    PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveOutMixerDest := sValue
  else if sName = 'WaveOutMixerSource' then
    PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveOutMixerSource := sValue
  else if sName = 'WaveInMixerDest' then
    PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveInMixerDest := sValue
  else if sName = 'WaveInMixerSource' then
    PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveInMixerSource := sValue

  else if sName = 'ChipSet' then
    PLmWaveFormat(PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveFormat[
      PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveFormat.Count-1]).ChipSet := sValue
  else if sName = 'Speed' then
    PLmWaveFormat(PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveFormat[
      PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveFormat.Count-1]).Speed := sValue
  else if sName = 'SampleSize' then
    PLmWaveFormat(PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveFormat[
      PLmModem (FModem[FCurModemIdx]).Voice.WaveDriver.WaveFormat.Count-1]).SampleSize := sValue;      
end;

procedure TApdLibModem.LoadModemSettings (oOwner     : TObject;
                                          sName,
                                          sValue     : DOMString;
                                          bSpecified : Boolean);
begin
  if sName = 'Prefix' then
    PLmModem (FModem[FCurModemIdx]).Settings.Prefix := sValue
  else if sName = 'Terminator' then
    PLmModem (FModem[FCurModemIdx]).Settings.Terminator := sValue
  else if sName = 'DialPrefix' then
    PLmModem (FModem[FCurModemIdx]).Settings.DialPrefix := sValue
  else if sName = 'DialSuffix' then
    PLmModem (FModem[FCurModemIdx]).Settings.DialSuffix := sValue
  else if sName = 'SpeakerVolume_High' then
    PLmModem (FModem[FCurModemIdx]).Settings.SpeakerVolume_High := sValue
  else if sName = 'SpeakerVolume_Low' then
    PLmModem (FModem[FCurModemIdx]).Settings.SpeakerVolume_Low := sValue
  else if sName = 'SpeakerVolume_Med' then
    PLmModem (FModem[FCurModemIdx]).Settings.SpeakerVolume_Med := sValue
  else if sName = 'SpeakerMode_Dial' then
    PLmModem (FModem[FCurModemIdx]).Settings.SpeakerMode_Dial := sValue
  else if sName = 'SpeakerMode_Off' then
    PLmModem (FModem[FCurModemIdx]).Settings.SpeakerMode_Off := sValue
  else if sName = 'SpeakerMode_On' then
    PLmModem (FModem[FCurModemIdx]).Settings.SpeakerMode_On := sValue
  else if sName = 'SpeakerMode_Setup' then
    PLmModem (FModem[FCurModemIdx]).Settings.SpeakerMode_Setup := sValue
  else if sName = 'FlowControl_Hard' then
    PLmModem (FModem[FCurModemIdx]).Settings.FlowControl_Hard := sValue
  else if sName = 'FlowControl_Off' then
    PLmModem (FModem[FCurModemIdx]).Settings.FlowControl_Off := sValue
  else if sName = 'FlowControl_Soft' then
    PLmModem (FModem[FCurModemIdx]).Settings.FlowControl_Soft := sValue
  else if sName = 'ErrorControl_Forced' then
    PLmModem (FModem[FCurModemIdx]).Settings.ErrorControl_Forced := sValue
  else if sName = 'ErrorControl_Off' then
    PLmModem (FModem[FCurModemIdx]).Settings.ErrorControl_Off := sValue
  else if sName = 'ErrorControl_On' then
    PLmModem (FModem[FCurModemIdx]).Settings.ErrorControl_On := sValue
  else if sName = 'ErrorControl_Cellular' then
    PLmModem (FModem[FCurModemIdx]).Settings.ErrorControl_Cellular := sValue
  else if sName = 'ErrorControl_Cellular_Forced' then
    PLmModem (FModem[FCurModemIdx]).Settings.ErrorControl_Cellular_Forced := sValue
  else if sName = 'Compression_Off' then
    PLmModem (FModem[FCurModemIdx]).Settings.Compression_Off := sValue
  else if sName = 'Compression_On' then
    PLmModem (FModem[FCurModemIdx]).Settings.Compression_On := sValue
  else if sName = 'Modulation_Bell' then
    PLmModem (FModem[FCurModemIdx]).Settings.Modulation_Bell := sValue
  else if sName = 'Modulation_CCITT' then
    PLmModem (FModem[FCurModemIdx]).Settings.Modulation_CCITT := sValue
  else if sName = 'Modulation_CCITT_V23' then
    PLmModem (FModem[FCurModemIdx]).Settings.Modulation_CCITT_V23 := sValue
  else if sName = 'SpeedNegotiation_On' then
    PLmModem (FModem[FCurModemIdx]).Settings.SpeedNegotiation_On := sValue
  else if sName = 'SpeedNegotiation_Off' then
    PLmModem (FModem[FCurModemIdx]).Settings.SpeedNegotiation_Off := sValue
  else if sName = 'Pulse' then
    PLmModem (FModem[FCurModemIdx]).Settings.Pulse := sValue
  else if sName = 'Tone' then
    PLmModem (FModem[FCurModemIdx]).Settings.Tone := sValue
  else if sName = 'Blind_Off' then
    PLmModem (FModem[FCurModemIdx]).Settings.Blind_Off := sValue
  else if sName = 'Blind_On' then
    PLmModem (FModem[FCurModemIdx]).Settings.Blind_On := sValue
  else if sName = 'CallSetupFailTimer' then
    PLmModem (FModem[FCurModemIdx]).Settings.CallSetupFailTimer := sValue
  else if sName = 'InactivityTimeout' then
    PLmModem (FModem[FCurModemIdx]).Settings.InactivityTimeout := sValue
  else if sName = 'CompatibilityFlags' then
    PLmModem (FModem[FCurModemIdx]).Settings.CompatibilityFlags := sValue
  else if sName = 'ConfigDelay' then
    PLmModem (FModem[FCurModemIdx]).Settings.ConfigDelay := GetXMLInteger (sValue, 0);
end;

procedure TApdLibModem.LoadHardwareSettings (oOwner     : TObject;
                                             sName,
                                             s