richedin içeriğini Web Sayfası(Süzülmüş) kaydetme
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
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
.-.-.-.-.-.-.-. ^_^
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.
İ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.
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...mege yazdı:gel vatandaş süzülmüş çorba aman html burda
sayfa 3 saniyede hizmete hazır , 2. denemede 2 saniye sürdü
tabi bunun kötü tarafı beraberinde wordü de taşımanız gerekecek heheKod: 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;
file formatı değiştirip doc text veya htmlden doc yapabilirsiniz.
4 wdFormatDOSText
8 wdFormatHTML
6 wdFormatRTF
7 wdFormatUnicodeText
vs.. vs..
tekrar teşekkürler