raudus + lazreport + pdfexport
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
xinyiman · 2013-01-29 16:09

I made it with lazarus raudus + + + LazReport pdfexport a program that
generates a pdf file and then read it and put it in a stream. I get
this error. works on linux but not on windows. why?

CheckSynchronize called from non-main thread "$D24"

My code:

Code: [Select]var
   Anno, Mese, Giorno, AnnoA, MeseA, GiornoA: WORD;
   TotIncassato: double;
   TotScontrini: integer;
   QuantiNegoziVedo: integer;
   NomeUtente: string;
   appFile: TFileStream;
   NomeFilePDF, NomeFilePDFSenzaPercorso: string;

begin

     NomeFilePDFSenzaPercorso:='Report_Generico_' +
StringReplace(DateToStr(Now()),'/','', [rfReplaceAll]) + '_' +
StringReplace(TimeToStr(Now()) ,':','.', [rfReplaceAll]) + '.pdf';
     NomeFilePDF := Application.Location + 'report' +
System.DirectorySeparator + NomeFilePDFSenzaPercorso;

     RaStreamPublisher1.DownloadName:=NomeFilePDFSenzaPercorso;

     Self.frReport1.LoadFromFile(Application.Location  + 'report' +
System.DirectorySeparator + 'resoconto_giornaliero.lrf');
     //Self.frReport1.PrepareReport;

     Self.frReport1.ExportTo(TFrTNPDFExportFilter, NomeFilePDF);

     appFile:=TFileStream.Create(NomeFilePDF, fmOpenRead);

     RaStreamPublisher1.Stream:=appFile;

     DeleteFile(NomeFilePDF); //ora che l'ho caricato in uno stream lo
cancello

     RaLabel15.Caption := '<div style="text-align:center;' + //
horizontal align
                                     'line-height:25px;">' + //
vertical align for one line
                           '<a href="' + RaStreamPublisher1.URL + '"
target="_blank">' +
                             'Download' +
                           '</a>' +
                         '</div>';


     RaLabel15Click(Self);