Ver Mensaje Individual
  #3  
Antiguo 30-03-2007
manolop manolop is offline
Miembro
 
Registrado: may 2005
Posts: 109
Reputación: 20
manolop Va por buen camino
Lo he puesto asi, pero me dice que no encuentra FAXCOMLib
Código Delphi [-]
function SendFax(filename : String; number : String) : Integer;external 'faxcom.dll';
var Srv : FAXCOMLib.FaxServer;
var Doc : FAXCOMLib.FaxDoc;
begin
  Srv := FaxServerClass.Create();
  Srv.Connect(nil);
  Doc := FAXCOMLib.FaxDoc(Srv.CreateDocument(filename));
  Doc.FaxNumber := number;
  sendFax := Doc.Send();
  srv.Disconnect;
end;

En cuanto a lo de crear una unidad, debería averiguar las funciones que tien e la dll e incluirlas en la nueva unit?. No tendras algun ejemplo porfavor, ya estoy varias semanas con esto del fax y me tiene fuera de mi. muchas gracias de antemano y por tu anterior respuesta.
Responder Con Cita