richedin içeriğini Web Sayfası(Süzülmüş) kaydetme

[mege]

illaki word ile olmucak dersen 1 saniyenin altına düşerim mikisoftun hızı belli birde ben o örneği 30-40 sayfalık bi rtf ile denedim

[mepc]

Eğer araya wordu karıştırmadan yapabileceksek çok güzel olur.

İstediğim şu richeditin içeriğini süzülmüş html olarak kaydetme.

Şu an richediti html kaydedebiliyorum ama süzülmüş html kaydedemediğim için önce word belgesi olarak kaydediyorum daha sonra wordden süzülmüş html ye çeviriyorum.

[moonred]

gel vatandaş süzülmüş çorba aman html burda


sayfa 3 saniyede hizmete hazır , 2. denemede 2 saniye sürdü

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
    // word için
    WordFile  :variant;
begin
  label1.caption:= timetostr(now);
  WordFile:=createoleobject('word.application'); 
  WordFile.Documents.open(ExtractFilePath(Application.ExeName)+'a.rtf',EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam);

  WordFile.ActiveDocument.SaveAs(FileName := ExtractFilePath(Application.ExeName)+'a.html',
    FileFormat:=8, AddToRecentFiles := False);

  WordFile.Quit;
  WordFile:=Unassigned;
  label2.caption:= timetostr(now);
end;

tabi bunun kötü tarafı beraberinde wordü de taşımanız gerekecek hehe

file formatı değiştirip doc text veya htmlden doc yapabilirsiniz.
4 wdFormatDOSText
8 wdFormatHTML
6 wdFormatRTF
7 wdFormatUnicodeText
vs.. vs..

yukarıdaki örnekten geç faydalanmış da olsam emeği geçen herkese çok teşekkür ederim... Beni büyük bir yükten kurtardınız...

tekrar teşekkürler