DevTrain - Faxe auf einer Webseite versenden

Auf manchen Webseiten findet man ein Fax Feature. Das heisst, Sie können meist Text eingeben und diesen Text als Fax an eine bestimmte Nummer versenden. Manche dieser Webseiten bieten sogar einen Service an, mit dem man Bilder als Fax versenden kann. Mit Hilfe eines neuen Produkts kann jetzt jeder in seiner Website so einen Fax Service einbauen.

Die Fax-Funktionalität wird vom Produkt fax@Net Server von der Firma ppedv zur Verfügung gestellt, dass seit kurzem als Beta Version frei erhältlich ist. Hier der Link...
http://www.ppedv.de/software/faxnetpro/index.htm

Voraussetzungen:
Alles was Sie für die Software benötigen ist, eine ISDN-Karte und CAPI-Treiber, und für´s Web natürlich IIS.

In dieser Software ist bereits ein funktionsfähiger WebClient enthalten, mit dem Sie Faxen können. Dieser wird nur installiert, wenn Sie IIS installiert haben. In einem Unterzeichnis von fax@Net befindet sich eine ASP-Seite namens faxsender.asp. In dieser Seite sind Feld-Validierungen, Upload und Fax-Function enthalten. Wie Sie einen Upload durchführen können, wurde bereits in folgenden Artikel besprochen...
http://www.devtrain.de/news.asp?artnr=401

Das Fax Feature:
Wie wollen uns in diesem Artikel nur auf die Fax-Funktion selbst konzentrieren. Ich werde hier ein kurzes hardcoded Beispiel zeigen, wie sie ein Fax mit ASP versenden können. Natürlich sollten die im Beispiel fix eingetragenen Werte, dynamisch über eine Form eingefügt werden. Hier also pure Funktionalität....
<%@ Language=VBScript %>
<%
const C_lBUFFERSIZE = 4096  ' maximale BufferSize
on error resume next
' Fax Komponente instantiieren
set FaxSvr = Server.CreateObject("FaxServer.FaxServer")
' Verbindung herstellen
FaxSvr.InitConnection cstr("jpg"),cstr("DemoUser"), cstr(time())

' Datei als Binär-Stream an FaxServer Komponente übergeben!
' Die FaxSvr-Komp. kann nur einen maximalen Buffer von 4096 Bytes lesen
set st = Server.CreateObject("ADODB.Stream")
st.Type = 1
st.Open
st.LoadFromFile Server.MapPath("./images/ppedv1.jpg")
st.Position = 0
do until st.EOS
  ' Buffer senden
  FaxSvr.SendFile st.Read(C_lBUFFERSIZE)
loop
set st = nothing

' Fax beschreiben
x = FaxSvr.Send(cstr("44"), _
      cstr("bernharde@ppedv.de"), cstr("DemoUser"), _
      cstr(time()), clng("3"), cstr("jpg"))

' Verbindung beenden
FaxSvr.EndConnection()
set FaxSvr = Nothing

' Überprüfen ob Fax senden erfolgreich
if err.number = 0 then
  sMsg = "Fax gesendet."
else
  sMsg = "Fax senden fehlgeschlagen."
end if
on error goto 0

Response.Write sMsg
%>

Methoden Syntax der FaxServer Komponente
* InitConnection-Methode
FaxSvr.InitConnection FileExtension As String, Username As String, DeliveryTime As String

* SendFile-Methode
FaxSvr.SendFile( FileBuffer )

* Send-Methode
Return As Bool = FaxSvr.Send(FaxNr As String, Email As String, Username As String, DeliveryTime As String, NumberofRetries As Long, FileExtension As String

* EndConnection-Methode
FaxSvr.EndConnection()

Anmerkungen:
*UserID = Der aktuelle angemeldete Benutzer--> kann auch über ASP basiertes LogIn vollzogen werden.
*ADODB.Stream = Dieses Object gibt ASP die Möglichkeit Daten voll binär zu handhaben.
*sFileExt = Gültige Formate sind in der Beta Version: jpg, bmp, tif, sff, txt, pcx.

TIP!
Die bereits gesendeten Faxe werden in einer Access-DB gespeichert, diese können Sie auch mit jeder ASP-Seite anzeigen. Suchen Sie nach der Datei sentfaxes.asp.