PJ6
Nov 5th, 2003, 01:41 AM
hi@all!
I have a component (assembly) with an object that writes data to a registry key.
When this is run from a Windows app, it works like a charm. When run from a web app, it doesnt work.
here is the code:
Public Function sendandprint(ByVal path As String)
Dim Key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\pdfMachine\BroadGun pdfMachine", True)
Dim f As New RegistryPermission(RegistryPermissionAccess.AllAccess, Key.Name)
f.Assert()
Dim success As Integer
Dim strfile As String
Dim strpath As String
Dim pdffile As String
Dim reader As StreamReader = New StreamReader(path + "pdfpath.txt")
pdffile = reader.ReadLine
reader.Close()
Try
If Not IsNothing(Key) Then
Key.SetValue("DefaultSaveDir", path)
Key.SetValue("DefaultSaveFilename", pdffile)
strfile = Key.GetValue("DefaultSaveFilename")
strpath = Key.GetValue("DefaultSaveDir")
Key.Close()
Dim fs4 As New FileStream(path & "print.txt", FileMode.Append)
Dim sw4 As New StreamWriter(fs4)
sw4.WriteLine("done")
sw4.Close()
Else
Dim fs4 As New FileStream(path & "print.txt", FileMode.Append)
Dim sw4 As New StreamWriter(fs4)
sw4.WriteLine("is nothing")
sw4.Close()
End If
Catch ex As Exception
Dim fs4 As New FileStream(path & "print.txt", FileMode.Append)
Dim sw4 As New StreamWriter(fs4)
sw4.WriteLine(ex.Message + " Fehler beim Schreiben")
sw4.Close()
End Try
End Function
thx for any suggestions u have!
greetings
I have a component (assembly) with an object that writes data to a registry key.
When this is run from a Windows app, it works like a charm. When run from a web app, it doesnt work.
here is the code:
Public Function sendandprint(ByVal path As String)
Dim Key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\pdfMachine\BroadGun pdfMachine", True)
Dim f As New RegistryPermission(RegistryPermissionAccess.AllAccess, Key.Name)
f.Assert()
Dim success As Integer
Dim strfile As String
Dim strpath As String
Dim pdffile As String
Dim reader As StreamReader = New StreamReader(path + "pdfpath.txt")
pdffile = reader.ReadLine
reader.Close()
Try
If Not IsNothing(Key) Then
Key.SetValue("DefaultSaveDir", path)
Key.SetValue("DefaultSaveFilename", pdffile)
strfile = Key.GetValue("DefaultSaveFilename")
strpath = Key.GetValue("DefaultSaveDir")
Key.Close()
Dim fs4 As New FileStream(path & "print.txt", FileMode.Append)
Dim sw4 As New StreamWriter(fs4)
sw4.WriteLine("done")
sw4.Close()
Else
Dim fs4 As New FileStream(path & "print.txt", FileMode.Append)
Dim sw4 As New StreamWriter(fs4)
sw4.WriteLine("is nothing")
sw4.Close()
End If
Catch ex As Exception
Dim fs4 As New FileStream(path & "print.txt", FileMode.Append)
Dim sw4 As New StreamWriter(fs4)
sw4.WriteLine(ex.Message + " Fehler beim Schreiben")
sw4.Close()
End Try
End Function
thx for any suggestions u have!
greetings