Esportare in html

[Matteo]

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

[Stilgar]

Ciao


Non so se esiste un componente standard che lo faccia.


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

[tito_livio]

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;

[Matteo]

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.

[Stilgar]

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

[DragoRosso]

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 

[Matteo]

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

[Stilgar]

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


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


Stilgar

[Matteo]

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.
 

[Stilgar]

Puoi sempre scrivere tu il codice.



Stilgar

[DragoRosso]

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

[Matteo]

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

[DragoRosso]

....

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

[Matteo]

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.

[DragoRosso]

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