Italian community of Lazarus and Free Pascal

Programmazione => Componenti Aggiuntivi => Topic aperto da: Matteo - Maggio 08, 2023, 07:56:47 pm

Titolo: Esportare in html
Inserito da: Matteo - Maggio 08, 2023, 07:56:47 pm

Sapete se esiste una qualche libreria che permetta di esportare il contenuto di un richmemo in formato html.
Grazie

Titolo: Re:Esportare in html
Inserito da: Stilgar - Maggio 08, 2023, 09:37:08 pm

Ciao


Non so se esiste un componente standard che lo faccia.


Però puoi vedere come viene salvato l'rtf in richmemortf.pas
Stilgar

Titolo: Re:Esportare in html
Inserito da: tito_livio - Maggio 08, 2023, 10:30:13 pm

Ciao,
se tu realizzi una stampa, con il componente Lazreport, puoi salvarla in Html.
Oppure puoi salvare il richmemo come un file rtf come ti ha detto Stilgar.
Ti riporto il codice che uso io

Codice: [Seleziona]

procedure TForm1.btnSaveClick(Sender: TObject);
var
  fs : TFileStream;
begin
  if SaveDialog1.Execute then begin
    fs := nil;
    try
      fs := TFileStream.Create( Utf8ToAnsi(SaveDialog1.FileName), fmCreate);
      RichMemo1.SaveRichText(fs);
    except
    end;
    fs.Free;
  end;
end;

Titolo: Re:Esportare in html
Inserito da: Matteo - Maggio 09, 2023, 09:31:04 am

Intanto grazie per le vostre risposte. Quello che vorrei fare è semplice, ho un RichMemo vorrei esportare il contenuto in vari formati. rtf e txt già fatto con un codice simile a quello che avete postato.Il problema è quando cerco di esportare in pdf e in html. Per il formato pdf sto usando o meglio sto cercando di capire come funziona la libreria PReport in parte cisono riuscito ma ci sono dei problemi, per quanto riguarda il formato html vorrei esportare mantenendo la formattazione del testo. Per tale motivo sto cercando qualche libreria che  semplifichi il lavoro sempre se esiste.
Dimenticavo se avete qualche alternativa PReport fatemelo sapere, perchè ho dei problemi che non riesco a risolvere: i caratteri accentati non c'è modo che vengano stampati in modo corretto e poi le linee lunghe vengono troncate ma ci sto studiando.

Titolo: Re:Esportare in html
Inserito da: Stilgar - Maggio 09, 2023, 09:36:12 am

Ciao Matteo.
Che io sappia un componente come quello che cerchi (che faccia il lavoro) non so se esista.


In linea di principio, se devi lavorare con due modalità di "esportazione", suggerirei di vedere come si comporta il componente quando salva (di base scrive su uno stream e legge dal componente).


Per il PDF, Freepascal ha le sue classi per scrivere il pdf in quanto file, non ho mai approfondito il funzionamento.
Per l'esportazione in HTML con la formattazione, se guardi nel file che ti avevo indicato, c'è il modo di interagire con il formato e scrivere i metadati rtf.
RTF lavora con una sorta di fogli di stile (sono tabelle di stile, per intendersi), potrebbe essere un modo per iniziare.


Stilgar

Titolo: Re:Esportare in html
Inserito da: DragoRosso - Maggio 09, 2023, 10:56:47 am

Se installi il pacchetto LazRichView dall'Online Packet Manager, hai il metodo SAVEHTML ... ossia salvare in formato HTML.

Ciao

EDIT: il componente non è usabile perchè è un freeware derivato da un pacchetto sotto licenza. Non ha i metodi per caricare un intero testo, solo metodi e funzioni per costruirsi i singoli "paragrafi". Mi dispiace  :-[

Titolo: Re:Esportare in html
Inserito da: Matteo - Maggio 09, 2023, 11:55:49 am

Mi sta sorgendo un dubbio RichView è derivato e non può essere usato ma io sto usando RichMemo non è che ha lo stesso problema ???

Titolo: Re:Esportare in html
Inserito da: Stilgar - Maggio 09, 2023, 11:59:43 am

https://github.com/serbod/lazrichview/blob/master/rv_save.inc


Puoi guardare come fa qui a elaborare l'rtf e generare html.


Stilgar

Titolo: Re:Esportare in html
Inserito da: Matteo - Maggio 09, 2023, 12:07:35 pm

Vi chiedo scusa ho dimenticato di specificare che per questo progetto non sto usando Lazarus ma Typhon per il semplice fatto che possiede un componente chiamato RichMemo che a differenza del RichView permette di editare il testo a runtime. Quindi non posso usarela funzione savehtml.
Scusate ancora e grazie.
 

Titolo: Re:Esportare in html
Inserito da: Stilgar - Maggio 09, 2023, 12:09:51 pm

Puoi sempre scrivere tu il codice.
;)


Stilgar

Titolo: Re:Esportare in html
Inserito da: DragoRosso - Maggio 09, 2023, 02:39:46 pm

Citazione da: Matteo - Maggio 09, 2023, 12:07:35 pm

Vi chiedo scusa ho dimenticato di specificare che per questo progetto non sto usando Lazarus ma Typhon per il semplice fatto che possiede un componente chiamato RichMemo che a differenza del RichView permette di editare il testo a runtime. Quindi non posso usarela funzione savehtml.
Scusate ancora e grazie.

Ok, ora si spiega qualcosa.
Lazarus ha anche lui TRichMemo che può essere editato.

In Lazarus, il tuo codice senza conversione UTF8....  scrive correttamente i caratteri unicode (accentati in questo caso) nel PDF generato.

Rimane il problema del WordWrap.

Ciao

Titolo: Re:Esportare in html
Inserito da: Matteo - Maggio 09, 2023, 05:13:54 pm

E no purtroppo i caratteri accentati bon vengono visualizzati o meglio vengono visualizzati strani segni. Ho fatto molti tentativi ma non c'è forma di farglieli riconoscere

Titolo: Re:Esportare in html
Inserito da: DragoRosso - Maggio 09, 2023, 07:55:07 pm

....

Lazarus 2.2.6 Release standard

Ciao

P.S.: per la l'accapo con la riga nuova devi settare correttamente la proprietà indicata nell'immagine in allegato .... come ti dicevo è necessario conoscere il font usato e magari fare qualche calcolo.

Ciao

Titolo: Re:Esportare in html
Inserito da: Matteo - Maggio 09, 2023, 10:46:52 pm

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.

Titolo: Re:Esportare in html
Inserito da: DragoRosso - Maggio 10, 2023, 12:24:42 am

Guarda che il post con l'allegato fanno vedere che a me i caratteri li stampa correttamente ... guarda tutta l'immagine.

Il componente usato per l'editing è quello che avevi indicato tu: "TRichMemo".

N.B.: l'eseguibile che creo io è a 64 bit.

Ciao

Titolo: Re:Esportare in html
Inserito da: Matteo - Maggio 10, 2023, 10:12:32 am

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;                                                                 

Titolo: Re:Esportare in html
Inserito da: Matteo - Maggio 10, 2023, 04:11:48 pm

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

Titolo: Re:Esportare in html
Inserito da: DragoRosso - Maggio 10, 2023, 10:39:22 pm

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

Titolo: Re:Esportare in html
Inserito da: bonmario - Maggio 11, 2023, 07:54:34 am

Citazione da: Matteo - Maggio 09, 2023, 10:46:52 pm

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

Titolo: Re:Esportare in html
Inserito da: Matteo - Maggio 11, 2023, 08:24:59 pm

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.