Obtenir richtext d'un richedit à Delphes

Question

Y at-il un moyen d'obtenir les données RTF à partir d'un richedit sans utiliser SaveToStream comme dans

strStream := TStringStream.Create('') ; 
try 
    RichEdit.Lines.SaveToStream(strStream); 
    Text := strStream.DataString; 
    strStream.CleanupInstance; 
finally 
    strStream.Free 

Answer 1

Tim la seule façon d'obtenir les données RTF à partir d'un contrôle RichEdit utilise un Flux car le message Windows (EM_STREAMOUT) qui récupère les données RTF nécessite une structure EditStreamCallback, c'est la façon dont Windows utilise le transfert des données rtf dans ou hors d'un contrôle richedit.

Vous pouvez donc utiliser votre propre exemple de code ou implémenter l'appel au message Windows EM_STREAMOUT.

Answer 2

function RichTextToStr(red : TRichEdit) : string; 

var ss : TStringStream; 

begin 
    ss := TStringStream.Create(''); 

    try 
    red.Lines.SaveToStream(ss); 
    Result := ss.DataString; 
    finally 
    ss.Free; 
    end; 
end; 

procedure CopyRTF(redFrom,redTo : TRichEdit); 

var s : TMemoryStream; 

begin 
    s := TMemoryStream.Create; 

    try 
    redFrom.Lines.SaveToStream(s); 
    s.Position := 0; 
    redTo.Lines.LoadFromStream(s); 
    finally 
    s.Free; 
    end; 
end; 

Je peux attester écart par rapport aux résultats de motif de frustration ....