Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Formatierten RichEdit-Text per String übertragen
alias5000 - Sa 11.02.06 19:06
Titel: Formatierten RichEdit-Text per String übertragen
Hi
ich arbeite mir jetzt schon den ganzen Tag mir die Finger wund, nur damit ich es endlich hinbekomme, in meinen Netzwerkchat (LanChat2 TBX) die Möglichkeit einzubauen, formatierten Text zu übertragen.
Bisher war die Devise: Wir nehmen das RichEdit, wandeln das dann in HTML um, verschicken das dann und auf der anderen Seite wirds wieder vom HTML ins RichEdit eingefügt.
Jedoch ist es so, dass das einfügen bei nur etwa 7-8 unterstüzten Tags bereits unglaublich schwer ist.
Jetzt, nach etlichen Umdenkereien, Kompromissen, die zukünftigen Programmfunktionen im Weg stehen, usw., hab ich langsam keine Lust mehr, mich damit rumzuplagen, da das ganze wieder von vorne losgehen würde, wenn ich auf das TJvRichEdit umsteigen würde (um auch Bilder einfügen zu können).
Leider bekommt man ja aus dem RichEdit nicht direkt den rtf-Text. Nimmt man ganz einfach RichEdit.Text, geht die Formatierung verloren.
Ok, wenn ich Lines.SaveToStream nehme und das ganze dann in ein Memo oder so einfüge, komm ich daran. Also ist das auch nicht mehr mein Problem.
Aber wie füge ich diesen Text jetzt in das andere RichEdit wieder ein?
Weil einfach ein [Delphi]LoadFromStream[/Delphi geht nicht, es ist ja schon vorher in diesem RichEdit, was ja das Chatlog ist, Text drinnen, der dann verloren gehen würde.
Also im Prinzip ist mir jede Lösung recht, hauptsache sie funktioniert gut (und am besten gleich auch mit dem TJvRichEdit)
Gruß alias5000
alias5000 - So 12.02.06 12:20
Ja also ich hab jetzt mittels der DP ein paar eigene Routinen geschrieben, funktionieren einwandfrei. Man könnte sie evtl. noch ein wenig optimieren (nicht über eine TStringList gehen) aber mir genügt das jetzt erstmal.
Hier die Source der Unit:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
| unit rtf2rtf;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, JvExStdCtrls, JvRichEdit, ComCtrls, RichEdit;
function FromRTFtoString(var RichEdit: TRichEdit): string; overload;
function FromRTFtoString(var RichEdit: TJvRichEdit): string; overload;
Procedure FromStringIntoRTF(s: string; var RichEdit: TJvRichEdit);
implementation
function FromRTFtoString(var RichEdit: TRichEdit): string; overload;
var stream: TMemoryStream;
sl: TStringList;
begin
Result := '';
if RichEdit = nil then begin
exit;
end;
Stream := TMemoryStream.Create;
sl := TStringList.Create;
RichEdit.Lines.SaveToStream(Stream);
Stream.Position := 0;
sl.LoadFromStream(Stream);
Result := sl.Text;
sl.Free;
Stream.Free;
end;
function FromRTFtoString(var RichEdit: TJvRichEdit): string; overload;
var stream: TMemoryStream;
sl: TStringList;
begin
Result := '';
if RichEdit = nil then begin
exit;
end;
Stream := TMemoryStream.Create;
sl := TStringList.Create;
RichEdit.Lines.SaveToStream(Stream);
Stream.Position := 0;
sl.LoadFromStream(Stream);
Result := sl.Text;
sl.Free;
Stream.Free;
end;
Procedure FromStringIntoRTF(s: string; var RichEdit: TJvRichEdit);
var Stream: TMemoryStream;
sl: TStringList;
begin
if (s = '') or (not assigned(RichEdit)) then begin
exit;
end;
Stream := TMemoryStream.Create;
sl := TStringList.Create;
sl.Text := s;
sl.SaveToStream(Stream);
RichEdit.StreamMode := RichEdit.StreamMode + [smSelection];
Stream.Position := 0;
RichEdit.Lines.LoadFromStream(Stream);
RichEdit.StreamMode := RichEdit.StreamMode - [smSelection];
sl.Free;
Stream.Free;
end;
end. |
Gruß alias5000
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!