Code: Select all
Dim bt As Byte() = dms.ReadFile("d:\dms\forms\" & FormName) ‘ Reads file from server using remoting call (this works!)
Dim sti As New Stimulsoft.Report.StiReport
With sti.Designer
.CanDesignerChangeReportFileName = False
.DontAskSaveReport = True
'.ReportNeverSave = True
End With
sti.Load(bt)
sti.Design()
If System.IO.File.Exists("c:\dms\forms\" & FormName) Then System.IO.File.Delete("c:\dms\forms\" & FormName)
Try
sti.SaveDocument("c:\dms\forms\" & FormName)
catch
end try
Thanks in advance
Simon