Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Enviar Fax a traves de IFaxServer (https://www.clubdelphi.com/foros/showthread.php?t=60366)

mgomez2 22-10-2008 20:48:46

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;

User_Baja_2 23-10-2008 15:22:52

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


La franja horaria es GMT +2. Ahora son las 23:13:42.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi