Aus eigener Anwendung faxen???

[rwachtel]

Zitat von romber:

[Faxen machen mit Fritz!Card]

Als Framework kann ich folgenden Code anbieten:

Wichtig: Funktioniert nur ab Fritz! Version 3.0a (oder so).

Delphi-Quellcode:

//******************* SendFax ************************* 
// Bild (TGraphic) faxen 

procedure SendFax(Bild: TGraphic; FaxNummer: string); 
const  DokumentTitel = 'FritzMcCoy Test';  
       FaxDruckerName = 'FRITZfax Drucker'; 
begin
// Zuerst den Titel und die Nummer des zu druckenden  
// Dokuments in die Registry schreiben  
// (Fritz!Fax schaut dort wohl vor Abfrage  
// einer Nummer nach ;-)  
with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('\Software\VB and VBA Program Settings\FRITZ!fax\Print', True) then
      WriteString(DokumentTitel, FaxNummer); 
  finally
    CloseKey;
    Free;
   end;
// Nun das Bild auf den Faxdrucker drucken  
with Printer do  begin
  SetPrinter(FaxDruckerName, '', '', 0);
  Title := DokumentTitel; // und hier bitte auch den Titel setzen
  BeginDoc;
  Canvas.Draw((PageWidth - Bild.Width) div 2, 
        (PageHeight - Bild.Height) div 2,
        Bild);
  EndDoc;
  PrinterIndex := -1; // Standarddrucker zuruecksetzen  end;
end;

Btw: äusserst simpel, oder?

Zeitversetzt senden kann man unter Zuhilfenahme der Fritz!Fax-Version ab
3.02.1 oder so mit folgender Zeile z.B.:

Delphi-Quellcode:

if OpenKey('\Software\VB and VBA Program Settings\FRITZ!fax\SendTime', True) then
  WriteString(DokumentTitel, '11.02.2002 21:00');

(Jetzt bitte nicht von wegen mangelnder Fehlerüberprüfung und so reden, das ist ein QDF (Quick'n'Dirty Fax)

hth