Esportare in html

[Matteo]

Si intanto scusa non avevo visto l'intera foto. Ma come ci sei riuscito ma può veramente dipendere che che l'eseguibile che hai fatto è a 64 bit per il resto ho praticamente ricopiato il codice che mi hai fornito.
 procedure TForm1.SavePdfClick(Sender: TObject);
var
  pdf: TPReport;
  page: TPRPage;
  panel: TPRPanel;
  memo: TPRText;
  i: Integer;
begin
  if true then
   begin
    if FileExists ('Prova.pdf') then
     begin
     if MessageDlg('File already exists. Do you want to overwrite it?', mtWarning, [mbYes, mbNo], 0) = mrNo then
        Exit;
     end;
    pdf := TPReport.Create(nil);
    try
    //pdf.Encoding := 'UTF-8'; //
    pdf.FileName :='.\Prova.pdf';
    pdf.BeginDoc;
    page := TPRPage.Create(pdf);
    page.MarginBottom:=100;
    page.MarginTop:=100;
    page.MarginLeft:=100;
    page.MarginRight:=100;
    panel := TPRPanel.Create(page);
    panel.Parent := page;
    memo := TPRText.Create(panel);
    memo.Parent := panel;

    //memo.Font.Name := 'Arial'; //
    memo.Width := 600;
    memo.Height := 3000;
    memo.WordWrap := True;
    memo.Text := RichMemo1.Lines.Text;
    pdf.Print(page);
    pdf.EndDoc;
    finally
    end;
   end;
end;                                                                 

[Matteo]

Allora sembra che il problema dipenda in qualche modo da Typhon, infatti lo stesso identico codice
usati in Lazarus funziona in modo perfetto. Secondo voi da cosa può dipendere?
Grazie sempre

[DragoRosso]

Code Typhon è un fork di Lazarus / FPC. Bisogna vedere a quanto è allineato il codice con la versione attuale di Lazarus / FPC, e anche se hanno implementato le stesse versioni dei pacchetti di terze parti (PowerPdf in questo caso).

Quindi dirti perchè ci sono differenze è abbastanza difficile.

Ho premesso i 64 bit perchè possono esserci alcune differenze tra le funzionalità a 32 e 64 bit, magari minime ma possono esserci.

Ciao

[bonmario]

Grazie DragoRosso si in effetti adesso funziona va a capo, rimane il problema dei caratteri accentati
Ho provato a cambiare il tipo di carattere: memo.Font.Name := 'Arial';  ma non succede niente nel senso che non cambia neanche il tipo di carattere.
Provo a fare qualche altro esperimento se avete un idea fatemolo sapere.
Grazie a tutti.

Per quanto riguarda le lettere accentate, prova così: aggiungi alla Uses "LazUTF8" converti il testo con una di queste 2 "WinCPToUTF8" oppure "UTF8ToWinCP", e vedi se una di loro funziona

Ciao, Mario

[Matteo]

Grazie Mario, ma la soluzione proposta non ha funzionato. A questo punto, credo che ci siano due sole alternative. La prima è disinstallare PowerPDF di Typhon, scaricare quello di Lazarus, convertirlo per Typhon e installarlo. La seconda alternativa è convertire l’intero progetto scritto con Typhon in Lazarus, anche perché sembra che il package di Lazarus sia più recente. Grazie ancora.