Bueno, voy a mejorar un poquito el código:
Código Delphi
[-]uses FAXCOMEXLib_TLB;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
vlDocument : IFaxDocument;
begin
vlDocument := CoFaxDocument.Create;
vlDocument.Body := 'D:\prueba.pdf';
vlDocument.DocumentName := 'Prueba';
vlDocument.Priority:=fptHIGH;
vlDocument.Recipients.Add('937111111','Nombre');
vlDocument.AttachFaxToReceipt := True;
vlDocument.CoverPageType := fcptNONE;
vlDocument.ScheduleType:=fstNOW;
vlDocument.ReceiptType:=frtNONE;
vlDocument.Submit('');
end;
He quitado toda referencia a FaxServer, puesto que no hace falta. Si alguien va a usar esto, le recomiendo encarecidamente que se lea detenidamente el manual de microsoft sobre el
servicio de fax.
Ejemplo usando FaxServer:
Código Delphi
[-]uses FAXCOMEXLib_TLB;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
vlServer : IFaxServer;
vlDocument : IFaxDocument;
begin
vlServer := CoFaxServer.Create;
vlServer := Connect('');
vlDocument := CoFaxDocument.Create;
vlDocument.Body := 'D:\prueba.pdf';
vlDocument.DocumentName := 'Prueba';
vlDocument.Priority:=fptHIGH;
vlDocument.Recipients.Add('937111111','Nombre');
vlDocument.AttachFaxToReceipt := True;
vlDocument.CoverPageType := fcptNONE;
vlDocument.ScheduleType:=fstNOW;
vlDocument.ReceiptType:=frtNONE;
vlDocument.ConnectedSubmit(vlServer);
vlServer.Disconnect;
end;
La version extendida FaxComEx, funciona a partir de W2000, y ademas, para Vista han hecho algunas mejoras y ampliaciones. Rectifico lo anteriormente dicho por mi, se puede controlar el fax, la consola, puedes programar tu propia consola, monitorizar cada fax, ver los recibidos .... en fin, control total del fax (como no podia ser de otra forma, al fin y al cabo)
Lo unico que no se puede hacer con XP (necesitas Vista) es enviar un fax con DOS ficheros adjuntos..... y ahí estoy atascado..... pero eso es otra cuestion.