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

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege »

illaki word ile olmucak dersen 1 saniyenin altına düşerim :lol: mikisoftun hızı belli :) birde ben o örneği 30-40 sayfalık bi rtf ile denedim :wink:
.-.-.-.-.-.-.-. ^_^
Kullanıcı avatarı
mepc
Üye
Mesajlar: 191
Kayıt: 26 Eyl 2003 11:39
Konum: Ankara

Mesaj gönderen 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.
Bilgi paylaşıldıkça güzeldir.
moonred
Üye
Mesajlar: 14
Kayıt: 05 Kas 2005 11:13
Konum: İstanbul
İletişim:

Mesaj gönderen moonred »

mege yazdı: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
Cevapla