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