Enviar Fax a traves de IFaxServer

[mgomez2]

Pues no se me ocurre que puede fallarte, esta noche voy a instalar delphi en un portatil que tengo en casa, a ver si me pasa lo mismo que a ti, y a ver si encuentro que ocurre.

En "Import Type Library" pone exactamente lo que te he puesto "Microsoft Fax Extended...etc"

[User_Baja_2]

Buenas tardes mgomez,

Para mayor información puedo decirte que cuando entras en la ventana de "Import Type Library", dentro de "Project", podemos ver el listado de dll y ocx del Pc que podemos importar a nuestro delphi para poder utilizarlo. Quisiera preguntarte si en donde a ti te pone: "Microsoft Fax Extended..." que libreria te viene en el path.


Por otro lado te comentaré que yo encontré la libreria "fxscomex.dll" y la he importado, pudiendo asi importar a "C:\Archivos de programa\Borland\Delphi5\Imports" los ficheros:

FAXCOMEXLib_TLB.pas
FAXCOMEXLib_TLB.dcu
FAXCOMEXLib_TLB.dcr

Con los cuales tu código me deja compilarlo sin ningun problema. Pero al ejecutar me sale el siguiente error:

"Project Project1.exe raised exception class EOLESysError with message 'Clase no registrada'. Process stopped. Use Step or run to continue"

Este error lo encuentro cuando al ejecutar pasa por la linea:

vlserver := CoFaxServer.Create;

Creo que falta algo por instalar aunque si es cierto que sigo sin poder localizar la opción "Microsoft Fax Extended...". La impresora virtual de fax la tengo instalada correctamente.

Si al instalarlo tu en el portatil vieras algun error similar, agradeceria tu información. Muchas gracias

Un saludo

Nuppy

[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...