Einzelnen Beitrag anzeigen

Benutzerbild von movietigger
movietigger

Registriert seit: 15. Dez 2004
Ort: Niedernhausen
4 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Windows FAX von Delphi aus nutzen

  Alt 23. Mai 2007, 06:28
Hallo,

habe mal vor Längerem Tests mit dem MS-Faxservice gemacht.
Hat damals sehr gut geklappt und war relativ einfach anzuwenden.

Vorausetzung ist ein konfigurierter MS-Fax-Dienst. Du solltest also manuell über Word oder sonst ein Programm den Faxdienst beim Drucken auswählen können und schon erfolgreich damit gefaxt haben...

In Delphi muß die Typbiblothek "Microsoft Fax Service Extended COM Type Library" importiert werden. Die DLL befindet sich dabei im Windows/System32-Verzeichnis und heißt fxscomex.dll. Man erhält dann unter den Komponenten zwei Einträge TFaxServer und TFaxDocument. Die kann man dann auf seine Form ziehen.

Hier ein Ausschnitt aus dem damaligen Quelltext:
Delphi-Quellcode:
unit fax_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FAXCOMEXLib_TLB, OleServer;

type
  TForm2 = class(TForm)
    FaxServer1: TFaxServer;
    FaxDocument1: TFaxDocument;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  id: variant;
begin
  FaxServer1.Connect;
  FaxDocument1.Body := 'H:\Delphi_2006_Projekte\FaxProgramm_MS_FAXSERVICE\test.pdf';
  FaxDocument1.DocumentName := 'MEIN ERSTES FAX';
  FaxDocument1.Recipients.Add('06912345678','Firma BekommtEinFax'); //hier steht die Zielfaxnummer!
  FaxDocument1.Priority:=fptHIGH;
  FaxDocument1.AttachFaxToReceipt := True;
  FaxDocument1.Sender.FaxNumber:='0123456789';
  id:=FaxDocument1.Submit('');
  //memo1.Lines.Add('JOB-ID: '+id[0]);
end;

end.
Nähere Infos zu dem Faxservice müßte es direkt auf den Microsoft-Seiten geben.
Hier ist auch noch eine interessante Seite dazu: Utilizing Microsoft Services from Delphi: Fax Services

Man braucht so jedenfalls keine Zusatzsoftware und kann falls man eine AVM-ISDN-Karte hat und die AVM-Tapi-Services(?) installiert, den MS-Faxservice so konfigurieren, daß auch Faxen über ISDN möglich ist...

Hoffe ich habe damit etwas geholfen, bin leider schon zu lange von dem Thema weg...
  Mit Zitat antworten Zitat