RichEdit

[Klaus01]

Word Documente darstellen, geht über einen OLE Container oder
der TWebBrowser sollte dazu auch in der Lage sein.

Grüße
Klaus

[SaFu]

habe mir mal alles angeguckt und denke das, das richtige dabei wäre nur es ist für mich einwenig zu kompliziert gibts da nichts leichteres

Lade immoment so mein test Datei rein kann mann das nicht einfach ergenzen

Delphi-Quellcode:

procedure TForm9.Button1Click(Sender: TObject);
Var a :TFileName;
 test : String;
begin
Richedit1.PlainText := false;
a:= ExtractFilePath(ParamStr(0))+'Documente nur RTF\'+'zu.rtf';
Richedit1.Lines.LoadFromFile(a);
test:= Richedit1.Text
end;

Gruss sascha

[inherited]

Was willst du denn machen?
Wenn du nur einen Text laden willst, hilft dir sicher eine TStringList oder du machst das direkt über TFileStream

[DGL-luke]

Er will eine beliebige RTF-Datei so darstellen, dass sie in ihrer Gänze auf den Bildschirm passt... der Mann redet doch deutsch?!

[SaFu]

ich habe schon Documente in einem bestimmten Ordner liegen.
Die einzelnen Dateien (.RTF) in diesem Ordner werden in einer FileListbox durschlaufen und nacheinander geladen für eine eingestellte zeit über einen Timer

Funktioniert auch soweit.

Mein Problem ist es das die Dateien nicht als ganze seite angezeigt werden.
Ich würde die Dateien gerne im RichEdit als seitenansicht anzeigen lassen z.b wie in Word

[SaFu]

Richtig

[inherited]

Zitat von DGL-luke:

Er will eine beliebige RTF-Datei so darstellen, dass sie in ihrer Gänze auf den Bildschirm passt... der Mann redet doch deutsch?!

Das habe ich schon verstanden... Nur sein letzter Beitrag mochte mir nicht so ganz einleuchten. Entschuldigung, wenn ich da der einzige bin
Für eine solche Seitenansicht brauchst du eine andere Komponente. RichEdit stellt text nur ganz normal dar.

[Klaus01]

Hallo Sascha,

ich möchte Dir noch einmal den TWebBrowser ans Herz legen.
Warum, nun den kann man zoomen (kleiner und auch größer).

Den Zoomfaktor kannst Du ja abhänging von der Formgröße ändern.

Delphi-Quellcode:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  webbrowser1.OleObject.document.body.style.zoom :=0.80;
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  source.Visible:=false;
  rtf2html('e:\document.rtf').SaveToFile('e:\test.html');
  webBrowser1.Navigate('e:\test.html');
end;

Den Code rtf2html habe ich von Delphi-Source geklaut und etwas angepasst.
Habe Dir das Demoprojekt einmal angehängt.

Grüße
Klaus

[SaFu]

Hi Klaus danke für deine großen mühen die du dir aufnimmst habe die DemoVersion mal getest.
Nur im Webbrowser kommen auch scrollbars, die in meinem anwendungsfall nicht sehr schön sind brauch die informationen auf einer Seite. zudem bekomme ich auch formatierungs fehler.

Möchte aber nicht an dieser Lösung zweifeln vielleicht habe ich auch etwas übersehen.

Werde mal darüberschlafen und mir den Code dann nochmal angucken.

Gibt es wirklich keine komponente die Worddokumente darstellen kann???

Gruss Sascha Danke Klaus

[Klaus01]

Guten Morgen Sascha,

unten findest Du zwei Links die sich mit OLE und Word beschäftigen,
vielleicht findest Du da etwas.

Ich weiß aber nicht ob das Dokument dann in deiner Applikation geöffnet wird
- oder ob Word dazu gestartet wird.

http://www.dsdt.info/tipps/?id=600
http://www.faqsen.de/delphi/tutorial...94849/tut1.jsp

Bezüglich der Formatierungsfehler - kann sein, dass da ein Problem in
rtf2html liegt. Ich habe das ganze nur mit recht simplen rtf Daten getestet.
Hier findest Du noch eine andere rtftohtml Routine -> http://homepages.borland.com/torry/v...n/rtf2html.zip

Wenn das alles nichts hilft, dann bleibt Dir wahrscheinlich nur ein Weg
das Dokument (word oder RTF) in ein Image zu konvertieren.
Das Image kannst Du problemlos skalieren.
Nur solche Konverter sind meistens kostenpflichtig.

Grüße
Klaus