adlibmdm.pas

Async Professional 4.04

    for i := 0 to PLmModem (FModem[Value]).Responses.SingleRing.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Responses.SingleRing[i]);
    PLmModem (FModem[Value]).Responses.SingleRing.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Responses.DoubleRing) then begin
    for i := 0 to PLmModem (FModem[Value]).Responses.DoubleRing.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Responses.DoubleRing[i]);
    PLmModem (FModem[Value]).Responses.DoubleRing.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Responses.TripleRing) then begin
    for i := 0 to PLmModem (FModem[Value]).Responses.TripleRing.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Responses.TripleRing[i]);
    PLmModem (FModem[Value]).Responses.TripleRing.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Responses.Voice) then begin
    for i := 0 to PLmModem (FModem[Value]).Responses.Voice.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Responses.Voice[i]);
    PLmModem (FModem[Value]).Responses.Voice.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Responses.Fax) then begin
    for i := 0 to PLmModem (FModem[Value]).Responses.Fax.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Responses.Fax[i]);
    PLmModem (FModem[Value]).Responses.Fax.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Responses.Data) then begin
    for i := 0 to PLmModem (FModem[Value]).Responses.Data.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Responses.Data[i]);
    PLmModem (FModem[Value]).Responses.Data.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Responses.Other) then begin
    for i := 0 to PLmModem (FModem[Value]).Responses.Other.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Responses.Other[i]);
    PLmModem (FModem[Value]).Responses.Other.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Answer) then begin
    for i := 0 to PLmModem (FModem[Value]).Answer.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Answer[i]);
    PLmModem (FModem[Value]).Answer.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Fax) then begin
    for i := 0 to PLmModem (FModem[Value]).Fax.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Fax[i]);
    PLmModem (FModem[Value]).Fax.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Hangup) then begin
    for i := 0 to PLmModem (FModem[Value]).Hangup.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Hangup[i]);
    PLmModem (FModem[Value]).Hangup.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Init) then begin
    for i := 0 to PLmModem (FModem[Value]).Init.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Init[i]);
    PLmModem (FModem[Value]).Init.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Monitor) then begin
    for i := 0 to PLmModem (FModem[Value]).Monitor.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Monitor[i]);
    PLmModem (FModem[Value]).Monitor.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.CloseHandset) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.CloseHandset.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.CloseHandset[i]);
    PLmModem (FModem[Value]).Voice.CloseHandset.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.EnableCallerID) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.EnableCallerID.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.EnableCallerID[i]);
    PLmModem (FModem[Value]).Voice.EnableCallerID.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.EnableDistinctiveRing) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.EnableDistinctiveRing.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.EnableDistinctiveRing[i]);
    PLmModem (FModem[Value]).Voice.EnableDistinctiveRing.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.GenerateDigit) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.GenerateDigit.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.GenerateDigit[i]);
    PLmModem (FModem[Value]).Voice.GenerateDigit.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.HandsetPlayFormat) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.HandsetPlayFormat.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.HandsetPlayFormat[i]);
    PLmModem (FModem[Value]).Voice.HandsetPlayFormat.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.HandsetRecordFormat) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.HandsetRecordFormat.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.HandsetRecordFormat[i]);
    PLmModem (FModem[Value]).Voice.HandsetRecordFormat.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.LineSetPlayFormat) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.LineSetPlayFormat.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.LineSetPlayFormat[i]);
    PLmModem (FModem[Value]).Voice.LineSetPlayFormat.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.LineSetRecordFormat) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.LineSetRecordFormat.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.LineSetRecordFormat[i]);
    PLmModem (FModem[Value]).Voice.LineSetRecordFormat.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.OpenHandset) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.OpenHandset.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.OpenHandset[i]);
    PLmModem (FModem[Value]).Voice.OpenHandset.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.SpeakerPhoneDisable) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.SpeakerPhoneDisable.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.SpeakerPhoneDisable[i]);
    PLmModem (FModem[Value]).Voice.SpeakerPhoneDisable.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.SpeakerPhoneEnable) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.SpeakerPhoneEnable.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.SpeakerPhoneEnable[i]);
    PLmModem (FModem[Value]).Voice.SpeakerPhoneEnable.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.SpeakerPhoneMute) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.SpeakerPhoneMute.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.SpeakerPhoneMute[i]);
    PLmModem (FModem[Value]).Voice.SpeakerPhoneMute.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.SpeakerPhoneSetVolumeGain) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.SpeakerPhoneSetVolumeGain.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.SpeakerPhoneSetVolumeGain[i]);
    PLmModem (FModem[Value]).Voice.SpeakerPhoneSetVolumeGain.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.SpeakerPhoneUnMute) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.SpeakerPhoneUnMute.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.SpeakerPhoneUnMute[i]);
    PLmModem (FModem[Value]).Voice.SpeakerPhoneUnMute.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.StartPlay) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.StartPlay.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.StartPlay[i]);
    PLmModem (FModem[Value]).Voice.StartPlay.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.StartRecord) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.StartRecord.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.StartRecord[i]);
    PLmModem (FModem[Value]).Voice.StartRecord.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.StopPlay) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.StopPlay.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.StopPlay[i]);
    PLmModem (FModem[Value]).Voice.StopPlay.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.StopRecord) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.StopRecord.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.StopRecord[i]);
    PLmModem (FModem[Value]).Voice.StopRecord.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.VoiceAnswer) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.VoiceAnswer.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.VoiceAnswer[i]);
    PLmModem (FModem[Value]).Voice.VoiceAnswer.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.VoiceDialNumberSetup) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.VoiceDialNumberSetup.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.VoiceDialNumberSetup[i]);
    PLmModem (FModem[Value]).Voice.VoiceDialNumberSetup.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.VoiceToDataAnswer) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.VoiceToDataAnswer.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.VoiceToDataAnswer[i]);
    PLmModem (FModem[Value]).Voice.VoiceToDataAnswer.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Voice.WaveDriver.WaveFormat) then begin
    for i := 0 to PLmModem (FModem[Value]).Voice.WaveDriver.WaveFormat.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).Voice.WaveDriver.WaveFormat[i]);
    PLmModem (FModem[Value]).Voice.WaveDriver.WaveFormat.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).FaxDetails.FaxClass1.AnswerCommand) then begin
    for i := 0 to PLmModem (FModem[Value]).FaxDetails.FaxClass1.AnswerCommand.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).FaxDetails.FaxClass1.AnswerCommand[i]);
    PLmModem (FModem[Value]).FaxDetails.FaxClass1.AnswerCommand.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).FaxDetails.FaxClass2.AnswerCommand) then begin
    for i := 0 to PLmModem (FModem[Value]).FaxDetails.FaxClass2.AnswerCommand.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).FaxDetails.FaxClass2.AnswerCommand[i]);
    PLmModem (FModem[Value]).FaxDetails.FaxClass2.AnswerCommand.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).FaxDetails.FaxClass2_0.AnswerCommand) then begin
    for i := 0 to PLmModem (FModem[Value]).FaxDetails.FaxClass2_0.AnswerCommand.Count - 1 do
      FreeMem (PLmModem (FModem[Value]).FaxDetails.FaxClass2_0.AnswerCommand[i]);
    PLmModem (FModem[Value]).FaxDetails.FaxClass2_0.AnswerCommand.Free;
  end;

  if Assigned (PLmModem (FModem[Value]).Options) then
    PLmModem (FModem[Value]).Options.Free;
  if Assigned (PLmModem (FModem[Value]).BaudRates) then
    PLmModem (FModem[Value]).BaudRates.Free;

  FreeMem (FModem[Value]);
end;

procedure TApdLibModem.FreeModem;
var
  i : Integer;
begin
  for i := 0 to FModem.Count - 1 do
    if assigned (FModem[i]) then
      FreeModemEntry (i);
  FModem.Clear;
end;

function TApdLibModem.CreateModem : PLmModem;
begin
  Result := AllocMem (Sizeof (TLmModem));
  if not Assigned (Result) then
    Exit;

  { Create all the responses }

  Result.Responses.OK := TList.Create;
  Result.Responses.NegotiationProgress := TList.Create;
  Result.Responses.Connect := TList.Create;
  Result.Responses.Error := TList.Create;
  Result.Responses.NoCarrier := TList.Create;
  Result.Responses.NoDialTone := TList.Create;
  Result.Responses.Busy := TList.Create;
  Result.Responses.NoAnswer := TList.Create;
  Result.Responses.Ring := TList.Create;
  Result.Responses.VoiceView1 := TList.Create;
  Result.Responses.VoiceView2 := TList.Create;
  Result.Responses.VoiceView3 := TList.Create;
  Result.Responses.VoiceView4 := TList.Create;
  Result.Responses.VoiceView5 := TList.Create;
  Result.Responses.VoiceView6 := TList.Create;
  Result.Responses.VoiceView7 := TList.Create;
  Result.Responses.VoiceView8 := TList.Create;
  Result.Responses.RingDuration := TList.Create;
  Result.Responses.RingBreak := TList.Create;
  Result.Responses.Date := TList.Create;
  Result.Responses.Time := TList.Create;
  Result.Responses.Number := TList.Create;
  Result.Responses.Name := TList.Create;
  Result.Responses.Msg := TList.Create;
  Result.Responses.SingleRing := TList.Create;
  Result.Responses.DoubleRing := TList.Create;
  Result.Responses.TripleRing := TList.Create;
  Result.Responses.Voice := TList.Create;
  Result.Responses.Fax := TList.Create;
  Result.Responses.Data := TList.Create;
  Result.Responses.Other := TList.Create;

  { Create Voice Entries }

  Result.Voice.CloseHandset := TList.Create;
  Result.Voice.EnableCallerID := TList.Create;
  Result.Voice.EnableDistinctiveRing := TList.Create;
  Result.Voice.GenerateDigit := TList.Create;
  Result.Voice.HandsetPlayFormat := TList.Create;
  Result.Voice.HandsetRecordFormat := TList.Create;
  Result.Voice.LineSetPlayFormat := TList.Create;
  Result.Voice.LineSetRecordFormat := TList.Create;
  Result.Voice.OpenHandset := TList.Create;