| Forum: VB.NET |
Thema:
Re: Faxen in Winforms |
Von:
Klaas Wedemeyer (
28.10.2005 16:27) |
Hi,
danke für den Tip, hab Ihn gerade ausprobiert
ich habe folgenden Code geschrieben:
Dim FaxServer As New PPFAXSERVERLib.CFaxServerClass
FaxServer.InitConnection("doc", "FoxxFax", Date.Now.ToString)
Dim stream As New FileStream(File, FileMode.Open)
Dim Buffer As Byte() = Array.CreateInstance(GetType(Byte), 4096)
Dim l As Integer = -1
Do
Array.Clear(Buffer, 0, Buffer.Length)
l = stream.Read(Buffer, 0, Buffer.Length)
If l > 0 Then
FaxServer.SendFile(Buffer)
End If
Loop Until l = 0
stream.Close()
stream = Nothing
Dim i As Integer = FaxServer.Send("040563748", "Test@gmx.de", "xyz", Date.Now.ToString, 3, "doc")
FaxServer.EndConnection()
FaxServer = Nothing
läuft durch ohne Fehler, doch im Admintool ist bei den Jobs nichts zu sehen. :-((
Klaas
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
