Bonjour,
J'upgrade un petit programme intraweb d'interrogation de stocks qui a une possibilité d'envoyer un fichier PDF . Cette fonction faite avec D2010 et Rave fonctionnait parfaitement. Mais là le fichier pdf envoyé est toujours de 1k et surtout en erreur ! je ne vois pas où cela coince
L'état via un programme VCL classique fonctionne et s'exporte correctement
Question subsidiaire : La création de l'état peut être "longue" , comment afficher une barre de progression sur le web ? (je suis même prêt a faire une autre page )
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 procedure TiwMainForm2.iwPDFClick(Sender: TObject); var l_popup_page_name: string; l_popup_page_options: string; l_pdfurl: string; procedure CreerReportFile; begin // nom de fichier unique UserSession.pdfName:=IWServerController.rep+WebApplication.AppID+'Stocks.pdf'; l_pdfurl:=WebApplication.AppURLBase+ '/Files/'+WebApplication.AppID+'Stocks.pdf'; ForceDirectories(ExtractFileDir(userSession.pdfName)); with UserSession.iwdatas do begin Q2Print.ParamByName('MARQUE').AsString:=UserSession.Marque; Q2Print.Active:=True; // j'ai lu que c'était nécessaire ? frxReport1.EngineOptions.EnableThreadSafe:= True; // localisation de l'état (EN,FR,SP) if not FrxReport1.LoadFromFile('webstock'+UserSession.Langue+'.fr3') then FrxReport1.LoadFromFile('webstock.fr3',false); frxReport1.PrepareReport(true); frxPDFExport1.FileName:=UserSession.pdfname; // preview ok mais bien évidement juste quand je fait du debug frxreport1.Export(frxPDFExport1); Q2Print.Active:=False; end; end; begin l_popup_page_name:= 'Stocks_PDF'; l_popup_page_options:= 'toolbar=no,status=no,menubar=yes,scrollbars=yes,resizable=yes,'+ 'location=no,directories=no,width=780,height=580'; CreerReportFile; // mes différents essais (je ne sais plus où j'en suis) // WebApplication.GoToURL(l_pdfurl); WebApplication.SendFile(IWServerController.rep+WebApplication.AppID+'Stocks.pdf',true,'pdf','Stocks.pdf'); // c'est là que ça coince apparement // WebApplication.NewWindow(l_pdfurl); // AddToInitProc('NewWindow("' // + l_pdfurl // + '","'+ l_popup_page_name // + '","'+ l_popup_page_options // + '");'); end;
Partager