adfaxsrv.pas

测试用例

      if not Assigned(FComPort) then
        ComPort := TApdCustomComPort(AComponent);
      if not (csDesigning in ComponentState) then begin
        if FSendFax.ComPort = nil then
          FSendFax.ComPort := TApdCustomComPort(AComponent);
        if FRecvFax.ComPort = nil then
          FRecvFax.ComPort := TApdCustomComPort(AComponent);
      end;
    end;
    if AComponent is TApdAbstractFaxStatus then begin
      if not Assigned(FStatusDisplay) then
        StatusDisplay := TApdAbstractFaxStatus(AComponent);
    end;
    if AComponent is TApdFaxLog then
      if not Assigned(FFaxLog) then
        FaxLog := TApdFaxLog(AComponent);
    if AComponent is TApdCustomFaxPrinter then
      if not Assigned(FFaxPrinter) then
        FaxPrinter := TApdCustomFaxPrinter(AComponent);
    if AComponent is TApdFaxServerManager then
     if not Assigned(FServerManager) then
       ServerManager := TApdFaxServerManager(AComponent);
    if AComponent is TApdCustomTapiDevice then
      if not Assigned(FTapiDevice) then
        TapiDevice := TApdCustomTapiDevice(AComponent);
  end;
end;

procedure TApdCustomFaxServer.SetAnswerOnRing(const Value: Word);
begin
  if FAnswerOnRing <> Value then begin
    FAnswerOnRing := Value;
    if Assigned(FRecvFax) then
      FRecvFax.AnswerOnRing := Value;
  end;
end;

procedure TApdCustomFaxServer.SetBlindDial(const Value: Boolean);
begin
  if FBlindDial <> Value then begin
    FBlindDial := Value;
    if Assigned(FSendFax) then
      FSendFax.BlindDial := Value;
  end;
end;

procedure TApdCustomFaxServer.SetBufferMinimum(const Value: Word);
begin
  if FBufferMinimum <> Value then begin
    FBufferMinimum := Value;
    if Assigned(FSendFax) then
      FSendFax.BufferMinimum := Value;
  end;
end;

procedure TApdCustomFaxServer.SetComPort(const Value: TApdCustomComPort);
begin
  if FComPort <> Value then begin
    if Assigned(FComPort) then
      FComPort.DeregisterUserCallBack(FInternalPortToggle);
    if Assigned(Value) then
      Value.RegisterUserCallBack(FInternalPortToggle);
    FComPort := Value;
    if Assigned(FSendFax) then
      FSendFax.ComPort := Value;
    if Assigned(FRecvFax) then
      FRecvFax.ComPort := Value;
  end;
end;

procedure TApdCustomFaxServer.SetConstantStatus(const Value: Boolean);
begin
  if FConstantStatus <> Value then begin
    FConstantStatus := Value;
    if Assigned(FRecvFax) then
      FRecvFax.ConstantStatus := Value;
  end;
end;

procedure TApdCustomFaxServer.SetCoverFile(const Value: TPassString);
begin
  if FCoverFile <> Value then begin
    FCoverFile := Value;
    if Assigned(FSendFax) then
      FSendFax.CoverFile := Value;
  end;
end;

procedure TApdCustomFaxServer.SetDelayBetweenSends(const Value: Word);
begin
  if FDelayBetweenSends <> Value then
    FDelayBetweenSends := Value;
end;

procedure TApdCustomFaxServer.SetDesiredBPS(const Value: Word);
begin
  if FDesiredBPS <> Value then begin
    FDesiredBPS := Value;
    if Assigned(FSendFax) then
      FSendFax.DesiredBPS := Value;
    if Assigned(FRecvFax) then
      FRecvFax.DesiredBPS := Value;
  end;
end;

procedure TApdCustomFaxServer.SetDesiredECM(const Value: Boolean);
begin
  if FDesiredECM <> Value then begin
    FDesiredECM := Value;
    if Assigned(FSendFax) then
      FSendFax.DesiredECM := Value;
    if Assigned(FRecvFax) then
      FRecvFax.DesiredECM := Value;
  end;
end;

procedure TApdCustomFaxServer.SetDestinationDir(const Value: TPassString);
begin
  if FDestinationDir <> Value then begin
    FDestinationDir := AddBackSlash(Value);
    if Assigned(FRecvFax) then
      FRecvFax.DestinationDir := FDestinationDir;
  end;
end;

procedure TApdCustomFaxServer.SetDetectBusy(const Value: Boolean);
begin
  if FDetectBusy <> Value then begin
    FDetectBusy := Value;
    if Assigned(FSendFax) then
      FSendFax.DetectBusy := Value;
  end;
end;

procedure TApdCustomFaxServer.SetDialAttempts(const Value: Word);
begin
  FDialAttempts := Value;
end;

procedure TApdCustomFaxServer.SetDialPrefix(const Value: TModemString);
begin
  if FDialPrefix <> Value then begin
    FDialPrefix := Value;
    if Assigned(FSendFax) then
      FSendFax.DialPrefix := Value;
  end;
end;

procedure TApdCustomFaxServer.SetDialWait(const Value: Word);
begin
  FDialWait := Value;
  if Assigned(FSendFax) then   
    FSendFax.DialWait := Value;
end;

procedure TApdCustomFaxServer.SetEnhFont(const Value: TFont);
begin
  if FEnhFont <> Value then begin
    FEnhFont.Assign(Value);
    if Assigned(FSendFax) then
      FSendFax.EnhFont := Value;
  end;
end;

procedure TApdCustomFaxServer.SetEnhHeaderFont(const Value: TFont);
begin
  if FEnhHeaderFont <> Value then begin
    FEnhHeaderFont.Assign(Value);
    if Assigned(FSendFax) then
      FSendFax.EnhHeaderFont := Value;
  end;
end;

procedure TApdCustomFaxServer.SetEnhTextEnabled(const Value: Boolean);
begin
  if FEnhTextEnabled <> Value then begin
    FEnhTextEnabled := Value;
    if Assigned(FSendFax) then
      FSendFax.EnhTextEnabled := Value;
  end;
end;

procedure TApdCustomFaxServer.SetExitOnError(const Value: Boolean);
begin
  if FExitOnError <> Value then begin
    FExitOnError := Value;
    if Assigned(FSendFax) then
      FSendFax.ExitOnError := Value;
    if Assigned(FRecvFax) then
      FRecvFax.ExitOnError := Value;
  end;
end;

procedure TApdCustomFaxServer.SetFaxClass(const Value: TFaxClass);
begin
  if FFaxClass <> Value then begin
    FFaxClass := Value;
    if Assigned(FSendFax) then
      FSendFax.FaxClass := Value;
    if Assigned(FRecvFax) then
      FRecvFax.FaxClass := Value;
  end;
end;

procedure TApdCustomFaxServer.SetFaxFile(const Value: TPassString);
begin
  if FFaxFile <> Value then begin
    inherited SetFaxFile(Value);
    FFaxFile := Value;
    if Assigned(FSendFax) then
      FSendFax.FaxFile := Value;
    if Assigned(FRecvFax) then
      FRecvFax.FaxFile := Value;
    { force the page length check }
    FPageLength := 0;
    GetPageLength;
  end;
end;

procedure TApdCustomFaxServer.SetFaxFileExt(const Value: TPassString);
begin
  if FFaxFileExt <> Value then begin
    FFaxFileExt := Value;
    if Assigned(FSendFax) then
      FSendFax.FaxFileExt := Value;
    if Assigned(FRecvFax) then
      FRecvFax.FaxFileExt := Value;
  end;
end;

procedure TApdCustomFaxServer.SetFaxLog(const Value: TApdFaxLog);
begin
  if FFaxLog <> Value then begin
    FFaxLog := Value;
    { not using the TApdFaxLog directly anymore }
    {if Assigned(FSendFax) then}                                         {!!.04}
      {FSendFax.FaxLog := Value;}                                        {!!.04}
    {if Assigned(FRecvFax) then}                                         {!!.04}
      {FRecvFax.FaxLog := Value;}                                        {!!.04}
  end;
end;

procedure TApdCustomFaxServer.SetFaxNameMode(const Value: TFaxNameMode);
begin
  if FFaxNameMode <> Value then begin
    FFaxNameMode := Value;
    if Assigned(FRecvFax) then
      FRecvFax.FaxNameMode := Value;
  end;
end;

procedure TApdCustomFaxServer.SetFaxPrinter(
  const Value: TApdCustomFaxPrinter);
begin
  if FFaxPrinter <> Value then
    FFaxPrinter := Value;
end;

procedure TApdCustomFaxServer.SetFaxServerMode(
  const Value: TFaxServerMode);
begin
  FFaxServerMode := Value;
  if FFaxServerMode = fsmSend then begin
    if Assigned(FStatusDisplay) then
      FStatusDisplay.Fax := FSendFax;
    { not using the TApdFaxLog directly }
    {if Assigned(FFaxLog) then}                                          {!!.04}
      {FFaxLog.Fax := FSendFax;}                                         {!!.04}
  end else if FFaxServerMode = fsmReceive then begin
    if Assigned(FStatusDisplay) then
      FStatusDisplay.Fax := FRecvFax;
    {if Assigned(FFaxLog) then}                                          {!!.04}
      {FFaxLog.Fax := FRecvFax;}                                         {!!.04}
  end;
end;

procedure TApdCustomFaxServer.SetHeaderLine(const Value: TPassString);
begin
  if FHeaderLine <> Value then begin
    FHeaderLine := Value;
    if Assigned(FSendFax) then
      FSendFax.HeaderLine := Value;
  end;
end;

procedure TApdCustomFaxServer.SetHeaderRecipient(const Value: TPassString);
begin
  if FHeaderRecipient <> Value then begin
    FHeaderRecipient := Value;
    if Assigned(FSendFax) then
      FSendFax.HeaderRecipient := Value;
  end;
end;

procedure TApdCustomFaxServer.SetHeaderSender(const Value: TPassString);
begin
  if FHeaderSender <> Value then begin
    FHeaderSender := Value;
    if Assigned(FSendFax) then
      FSendFax.HeaderSender := Value;
  end;
end;

procedure TApdCustomFaxServer.SetHeaderTitle(const Value: TPassString);
begin
  if FHeaderTitle <> Value then begin
    FHeaderTitle := Value;
    if Assigned(FSendFax) then
      FSendFax.HeaderTitle := Value;
  end;
end;

procedure TApdCustomFaxServer.SetInitBaud(const Value: Integer);
begin
  if FInitBaud <> Value then begin
    FInitBaud := Value;
    if Assigned(FSendFax) then
      FSendFax.InitBaud := Value;
    if Assigned(FRecvFax) then
      FRecvFax.InitBaud := Value;
  end;
end;

procedure TApdCustomFaxServer.SetMaxSendCount(const Value: Word);
begin
  if FMaxSendCount <> Value then begin
    FMaxSendCount := Value;
    if Assigned(FSendFax) then
      FSendFax.MaxSendCount := Value;
  end;
end;

procedure TApdCustomFaxServer.SetModemInit(const Value: TModemString);
begin
  if FModemInit <> Value then begin
    FModemInit := Value;
    if Assigned(FSendFax) then
      FSendFax.ModemInit := Value;
    if Assigned(FRecvFax) then
      FRecvFax.ModemInit := Value;
  end;
end;

procedure TApdCustomFaxServer.SetMonitoring(const Value: Boolean);
  { - enables or disables automatic fax reception }
begin
  if csDesigning in ComponentState then
    Exit;
  if Value = FMonitoring then
    Exit;
  if Value then begin
    { enable monitoring for incoming faxes }
    if not FFaxInProgress then begin
      CheckPort;
      FaxServerMode := fsmReceive;

      if not FWaitForRing then begin                                   
        FRecvFax.StartReceive;                                         
        FWaitForRing := True;