안녕하세요.
Quick Report 를 Async pro 로 Fax 전송하려고 합니다.
1.Async Pro에서 .wmf 화일을 보낼 수 있는지요.
2.Quick Report 결과를 BMP 화일로 만들 수 있는지
3.Async Pro에서 전송시 Operation failed 오류가 납니다.
노트북에서 테스트중인데 Com4에 모뎀이 연결되어 있는 것 같구요
Selected Port에는 Com4가 아니라 장치이름으로 보입니다.
Fax 마법사에서 보내보면 Com4로 설정을 하면 전송이 안되더군요.
경험 있으신분의 도움 기다리겠습니다.
아래에 테스트중인 소스 일부를 적어 보았습니다.
감사합니다.

-------------------
  QuickRep1.Prepare;

  tempMeta := TMetaFile.Create;
  for nloop := 1 to QuickRep1.QRPrinter.PageCount do
  begin
    tempMeta.Assign(QuickRep1.QRPrinter.GetPage(nloop));
    tempMeta.SaveToFile('C:\MediExam.dp\Temp\Fax.APF');
  end;
  tempMeta.Free;

  ApdFaxConverter1.DocumentFile := 'C:\MediExam.dp\Temp\FaxTest.wmf';
  ApdFaxConverter1.InputDocumentType := idUser;
  ApdFaxConverter1.OutFileName := 'C:\MediExam.dp\Temp\FAX.APF';
  ApdFaxConverter1.ConvertToFile;
 
  ApdComPort1.DataBits := 8;
  ApdComPort1.StopBits := 1;
  ApdComPort1.Parity := pNone;
  ApdComPort1.Baud := 9600;
  ApdComPort1.InSize := 8192;
  ApdComPort1.OutSize := 8192;
  ApdComPort1.HWFlowOptions := [hwfUseRTS, hwfRequireCTS];
  ApdComPort1.OutPut := 'ATZ'^M;
  ApdComPort1.ComNumber := 4; //Com4
  //ApdComPort1.TapiMode := tmOff;
  //ApdComPort1.PromptForPort := True;
  ApdComPort1.Open := True;


  ApdSendFax1.FaxClass := fcDetect;
  //ApdSendFax1.DesiredBPS := 9600;
  //ApdSendFax1.DialAttempts := 3;
  //ApdSendFax1.DialPrefix := 'ATDT';
  //ApdSendFax1.ModemInit := 'ATZ';
  //ApdSendFax1.DialRetryWait := 60;
  //ApdSendFax1.DialWait := 60;

  ApdSendFax1.HeaderSender := 'Me';

  ApdSendFax1.HeaderRecipient := 'You';

  ApdSendFax1.CoverFile := 'C:\MediExam.dp\Temp\FaxTest.APF';
  ApdSendFax1.FaxFile := 'C:\MediExam.dp\Temp\FaxTest.APF';
  //ApdSendFax1.FaxFileList.Clear;
  //ApdSendFax1.FaxFileList.Add('C:\MediExam.dp\Temp\FAX.APF');
  //ApdSendFax1.FaxFileList.Add('C:\MediExam.dp\Temp\FAX.APF');

  //ApdSendFax1.StationID := 'Lab';
  ApdSendFax1.PhoneNumber := '021234567';

  //ApdSendFax1.ModemInit := 'atm0';

  ApdSendFax1.StartTransmit;