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-MethodeFaxSvr.InitConnection FileExtension As String, Username As String, DeliveryTime As String |
* SendFile-MethodeFaxSvr.SendFile( FileBuffer ) |
* Send-MethodeReturn As Bool = FaxSvr.Send(FaxNr As String, Email As String, Username As String, DeliveryTime As String, NumberofRetries As Long, FileExtension As String |
* EndConnection-MethodeAnmerkungen:
*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.