Enviar Fax a traves de IFaxServer

[mgomez2]

He mirado la ventana de Import Type Library, y efectivamente, es el fxscomex.dll, por el error que te da, está claro que hay que instalar algo para que registre la clase.... pero no se que es. A ver si al instalarlo en el portatil descubro algo !!

[User_Baja_2]

Tengo más información,


Como no me aparecian los componentes en la pestaña activex, lo que hice fue de los ficheros importados en delphi

FAXCOMEXLib_TLB.pas
FAXCOMEXLib_TLB.dcu
FAXCOMEXLib_TLB.dcr


generar un package yendo a "components" y despues "install components" , en la pestaña "into new package" donde con el *.Pas he generado un package y luego lo he instalado, de éste modo he conseguido los componentes en el "activex" asi todo me ha seguido dando un error de "la clase no registrada" asi que he cogido la libreria "fxscomex.dll" y la he registrado en windows con un programa que encontré llamado: "AjpdSoft Registro de OCX y DLL" a partir de aqui he conseguido ejecutar, evitando el problema de "clase no registrada" ahora el problema continua al llegar a la linea:

vlserver.Connect('FAX');

del código:

uses FAXCOMEXLib_TLB;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
vlserver: IFaxServer;
vlDocument : IFaxDocument;
begin
vlserver := CoFaxServer.Create;
vlDocument := CoFaxDocument.Create;
vlserver.Connect('FAX');
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('FAX');
vlserver.Disconnect;
end;

Del cual entiendo que la palabra "FAX" es el nombre de la impresora que necesitamos utilizar para poder enviar.. pero al parecer no es asi, empiezo a dudar del significado de su contenido pues me da error de conexión.

Ha sido he querido contar como lo he resuelto por si alguien le pasa algo similar.

He de aclarar que mi impresora virtual de "FAX" el servicio de microsoft lo hace funcionar perfectamente, asi como si yo cogo un archivo PDF y al darle enviar selecciono esta impresora y le indico el número de tfno éste se envia correctamente, asi que descarto que el modem esté incorrecto.

¿alguna idea por este nuevo punto? ¿quizá me he equivocado con algo de lo anterior?

Muchas gracias a todos

Nuppy

[mgomez2]

Bueno, en mi portatil tenia una instalacion de Windows de hace precisamente 1 semana, asi que estaba "limpia". He ido a Delphi, "Import Type Library" y no me aparecia el Microsoft Fax COM Extended...., he agregado el servicio de fax de Windows, y entonces si me aparecia ... nuppy, seguro que lo tenias instalado bien?, bueno, de todas maneras veo que lo has resuelto de otra manera.

Respecto a Connect('FAX') .... mil disculpas.... 'FAX' es el nombre del servidor REMOTO de fax (es que yo uso uno...), asi que si usas el local, pon Connect('') y luego Submit(''), puedes mirar en el manual de microsoft:

He modificado el codigo inicial, en el primer mensaje, por si alguien lo copia, que no le pase lo mismo.

Espero que con esto te funcione bien.

[User_Baja_2]

Hola de nuevo mgomez,

He comprobado que cuando he repetido toda esta operacion en un PC con win XP efectivamente al cargar la opcion de windows de envio de fax, puedo importar dicha libreria con la denominación que me habias comentado, cierto. Hasta ahora mis pruebas fueron con windows 2000, quizá tenga que ver.

He estado probando el código corregido dejandolo en comillas pero sigo sin poder conectar correctamente, quizá pueda ser debido a que estoy utilizando un modem externo por el puerto COM1 y nose donde hacerselo saber, desde luego intenta conectar, espera su tiempo pero finalmente no lo logra.


¿Sabes donde puedo indicarselo? Estoy mirando el manual por si encontrara algo aunque el que me has enviado va en referencia al Faxdocument, buscaré para faxserver

Muchas gracias por toda la información

Nuppy

[mgomez2]

Pozi, pos era lo de Windows 2000, la libreria Extended está a partir de XP, lo leí en nosedonde....

Respecto a lo de COM1, vamos por partes... lo primero, probemos en un ordenador con XP, porque en 2000 no sé si funcionará....

Si tenemos XP, configura el servicio de mocosoft Fax para que envie faxes correctamente, y entonces veamos si falla lo otro. Desde Delphi no sé si podras configurar o no el modem que usa el servicio de fax, pero no tiene sentido que lo hagas, para eso está el panel de control....

Si lo haces con W2000, pueeees..... en el fondo lo mismo, intenta ver si el servicio de fax funciona bien, pero ten en cuenta que aunque la clase esté registrada, eso no te garantiza que el servicio de fax use esa clase y no otra.... yo me apostaria algo a que no....

Por otro lado, existe una clase muy similar a la que yo he usado, pero para Win2000. Ahora no sé decirte como se llama ni nada, pero si miras en http://www.programmersheaven.com/mb/...xing/?S=B20000 veras que usan algo parecido a lo que yo uso, pero no igual.... a lo mejor es la version de W2000. Las instrucciones de Microsfot las tienes en http://msdn.microsoft.com/en-us/library/ms692281.aspx

Por ultimo, si quieres pasar olimpicamente del servicio de fax de microsoft, puedes usar una libreria que se llama TPA Pro, pero te aviso que es un poco mas complicada de usar. Como ventajas: controlas todo, la cola, el envio, recepcion, todo. Desventajas: las mismas, lo tienes que controlar todo... je je... con el servicio fax de microsoft, el se encarga de todo, y luego puedes usar la consola de fax. La mayor ventaja que le veo es que con TPA puedes saber si un fax ha sido enviado o no, y la principal ventaja que veo al de Microsoft, es que la consola de fax te sirve de archivo y no tienes que currartelo entero.

Bueno, perdona por el tocho.... a ver si de una forma u otra te sale...

[User_Baja_2]

Buenas de nuevo,

Gracias por la información que me estás pasando, te comantaré que por un lado el modem externo lo tengo enchufado en un pc con windows XP y el servidor de impresión de microsoft funciona correctamente pues si cojo un fichero cualquiera y al imprimir le selecciono la impresora de FAX de microsoft me sale su correspondiente asistente y marcando el tfno consigo enviar correctamente sin ningun tipo de problema.

El código lo estoy desarrollando en un PC con windows 2000, de ahi que después copie el ejecutable en el PC donde lo deseo ejecutar e intente hacerlo conectar pero de momento no me ha dado conexión correcta en ningún momento. Aunque he probado a hacer una prueba compilando este mismo código en winXP y usar ese ejecutable en el PC correspondiente y tampoco me ha conectado del todo correcto. De ahi que concluyera que quizá me faltara indicarle el puerto COM porque no consigo entender el motivo.

Respecto a las utilidades de TPA, los conozco igualmente pero tampoco he tenido mejor exito. he buscado los ejemplos por si estaria comentiendo algún error al respecto y el único que he conseguido hacer funcionar de un modo correcto por ahora es el: ExZSend.DPR pero solo me sirve para comprobar que la señal está correcta, asi como que de alguna manera me obliga a enviar ficheros APF (que son los utilizados por las máquinas de fax) pero no he logrado pasar de ahi. Nose si tu tendrás algún otro ejemplo que pudiera serme de utilidad o si por el contrario pudieras conocer cual es el motivo por el que no me deja conectar a la impresora de microsoft por fax.

Seguiré probando, si encuentro alguna otra novedad ya te comento, muchas gracias de todos modos por tu ayuda.

Nuppy

[mgomez2]

Yo no tengo el servidor local, el unico modem que tengo esta en el servidor de fax, asi que siempre lo tengo que probar en modo remoto.... asi que no te puedo ayudar (y en el remoto no puedo hacer pruebas).

En teoria, poniendo NULL o '' deberia funcionar ("bstrFaxServerName [in] BSTR that specifies a fax server. If this parameter is NULL or an empty string, the local fax server is specified.")Porque no se te conecta? que error te da?