FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#21
|
|||
|
|||
Hola Nuppy, buscando otra cosa he encontrado esto, echale un vistazo, a ver si te sirve.
Te lo transcribo aqui: Código Delphi [-]function SendFax(filename : String; number : String) : Integer; var Srv : FAXCOMLib.FaxServer; var Doc : FAXCOMLib.FaxDoc; begin Srv := FaxServerClass.Create(); Srv.Connect(nil); srv.Retries := 5; Doc := FAXCOMLib.FaxDoc(Srv.CreateDocument(filename)); Doc.FaxNumber := trim(number); SendFax := Doc.Send(); srv.Disconnect; end; |
#22
|
|||
|
|||
Hola Mgomez,
Agradezco tu código, pero ésto ya lo he probado, yo también busqué información en hilos al respecto, pero el problema que tengo es que al menos la libreria que yo poseo de faxcom.dll cuando la he importado al delphi, tal como explique anteriormente en este hilo del foro, no me es util porque por ejemplo, he aqui el código de mi unidad integro: (Tengo windows 2000 profesional) unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; private function SendFax(filename, number: String): Integer; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses FAXCOMLib_TLB; {$R *.DFM} function TForm1.SendFax(filename : String; number : String) : Integer; var Srv : FAXCOMLib.FaxServer; var Doc : FAXCOMLib.FaxDoc; begin Srv := FaxServerClass.Create(); Srv.Connect(nil); srv.Retries := 5; Doc := FAXCOMLib.FaxDoc(Srv.CreateDocument(filename)); Doc.FaxNumber := trim(number); SendFax := Doc.Send(); srv.Disconnect; showmessage('Ha finalizado el proceso de envío'); end; procedure TForm1.Button1Click(Sender: TObject); begin SendFax('C:\prueba.pdf','123456789'); end; end. Cuando compilo me da error en var Srv : FAXCOMLib.FaxServer; y cuando quito faxcomlib de delante el fallo me da en FaxServerClass, de hecho entro en la unidad importada unit FAXCOMLib_TLB; que tengo en la carpeta de "imports" dentro de delphi y esta unidad no contiene ninguna declaración de faxserverclass... deduzco que si hay varias personas que han utilizado este código existe otra libreria o bien me falta la declaración algún otro uses que desconozco, Espero poder haber explicado mejor mi error para poder asi conocer cual es la solución, Un saludo Nuppy |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Tecla de control+Z y Escape para poder enviar SMS a través de un Modem | vejerf | Varios | 3 | 25-04-2008 17:09:54 |
Intercambiar XML´s a través de una pág. ASP | bataola | Internet | 0 | 13-09-2006 16:30:01 |
Enviar una estructura de datos a traves de Socket en Delphi | ygkw | API de Windows | 3 | 29-06-2006 21:53:48 |
conectar a través de ssh | barrauda | Linux | 2 | 29-05-2006 12:57:44 |
Enviar email a través de Outlook Express | kambiz | Internet | 9 | 20-10-2004 22:58:12 |
|