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