ShowPDF(InStream) IF ISSERVICETIER THEN BEGIN Filename := GetTempFilename('pdf'); DOWNLOADFROMSTREAM(InStream,'',FileManagement.Magicpath,Text010,Filename); END ELSE BEGIN File.CREATETEMPFILE; Filename := File.NAME + '.pdf'; File.CLOSE; File.CREATE(Filename); File.CREATEOUTSTREAM(OutStream); COPYSTREAM(OutStream,InStream); File.CLOSE; END; HYPERLINK(Filename); After the function: ShowPDFCLient.ShowPDF() it goes to a other function like this:
↧