Вопрос по Delphi

[FEOFAN]

Ответ: Помощь по Delphi

Не выйдет. Т.е. оно-то его переименует, но это не будет ДОС файл, т.к. у них своя структура(нажми F3 в FAR на дос файле).

 

[IceCube]

Ответ: Помощь по Delphi

а если программой сохранить файл в .txt(или .rtf) и программой переименовать его в .doc ?)
p.s. плз не смейтесь если я сказал что-то очень глупое. в делфе максимум могу создать прогу для вычисления дискриминанта и т.д.

можно сделать при помощи соответственных компонентов, только не переименовывать, а конвертировать; а вообще если есть .rtf и его переименовать в .doc то работать будет и даже правильно, так как есть такой формат .doc файлов, как и .rtf

 

[FEOFAN]

Ответ: Помощь по Delphi

Так это выглядет в верде

Testing
1 2 3

А вот тебе содержимое RTF файла

{\rtf1\ansi\ansicpg1251\uc1\deff0\stshfdbch0\stshfloch0\stshfhich0\stshfbi0\deflang1049\deflangfe1049{\fonttbl{\f0\froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f39\froman\fcharset0\fprq2 Times New Roman;}
{\f37\froman\fcharset238\fprq2 Times New Roman CE;}{\f40\froman\fcharset161\fprq2 Times New Roman Greek;}{\f41\froman\fcharset162\fprq2 Times New Roman Tur;}{\f42\froman\fcharset177\fprq2 Times New Roman (Hebrew);}
{\f43\froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f44\froman\fcharset186\fprq2 Times New Roman Baltic;}{\f45\froman\fcharset163\fprq2 Times New Roman (Vietnamese);}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;
\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;
\red128\green128\blue128;\red192\green192\blue192;}{\stylesheet{\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1049\langfe1049\cgrid\langnp1049\langfenp1049 \snext0 Normal;}{\*\cs10 \additive \ssemihidden
Default Paragraph Font;}{\*\ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\trcbpat1\trcfpat1\tscellwidthfts0\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv
\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs20\lang1024\langfe1024\cgrid\langnp1024\langfenp1024 \snext11 \ssemihidden Normal Table;}}{\*\latentstyles\lsdstimax156\lsdlockeddef0}{\*\rsidtbl \rsid1126107\rsid6170147
\rsid9927356\rsid12603268}{\*\generator Microsoft Word 11.0.6359;}{\info{\title Testing}{\author feofan}{\operator feofan}{\creatim\yr2006\mo1\dy26\hr1\min40}{\revtim\yr2006\mo1\dy26\hr1\min41}{\version1}{\edmins1}{\nofpages1}{\nofwords2}{\nofchars12}
{\*\company Home}{\nofcharsws13}{\vern24703}}\paperw11906\paperh16838\margl1701\margr850\margt1134\margb1134 \deftab708\widowctrl\ftnbj\aenddoc\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\formshade\horzdoc\dgmargin\dghspace180\dgvspace180
\dghorigin1701\dgvorigin1984\dghshow1\dgvshow1\jexpand\viewkind5\viewscale100\pgbrdrhead\pgbrdrfoot\splytwnine\ftnlytwnine\htmautsp\nolnhtadjtbl\useltbaln\alntblind\lytcalctblwd\lyttblrtgr\lnbrkrule\nobrkwrptbl\snaptogridincell\allowfieldendsel\wrppunct
\asianbrkrule\rsidroot6170147\newtblstyruls\nogrowautofit \fet0\sectd \linex0\headery708\footery708\colsx708\endnhere\sectlinegrid360\sectdefaultcl\sftnbj {\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2
\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6
\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang
{\pntxtb (}{\pntxta )}}\pard\plain \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1049\langfe1049\cgrid\langnp1049\langfenp1049 {\b\lang1033\langfe1049\langnp1033\insrsid6170147\charrsid6170147 Testing}{
\b\lang1033\langfe1049\langnp1033\insrsid1126107
\par }{\lang1033\langfe1049\langnp1033\insrsid6170147\charrsid6170147 1 2 3
\par }}

А про DOC я вообще молчу(19к 2 троки весят...)

 

[GmPF]

Ответ: Помощь по Delphi

Блин, ну IceCube прав ведь. Неужели так тяжело поэкспериментировать, создать *.rtf, переименовать его в *.doc и оппробовать открыть в ворде, вордпаде, опеноффисе или иных приблудах, чем постить никому не нужные километровые посты кодировки ртф?

 

[FEOFAN]

Ответ: Помощь по Delphi

Никому ненужный пост, доказывает, что так ты док файл не сделаешь.

 

[GmPF]

Ответ: Помощь по Delphi

Зато переименованый ртф ворд открывает. Если интересует именно внутренняя структура файла, то ртф он и в африке ртф - доком никогда не станет. Зато при открытии обрабатывается корректно. Это смотря для чего нужно. Я, например, недавно юзал пдф трансформер. Дак там опция была сохранить в *.doc, оно то расширения *.doc проставляло, но на самом деле файлики то ртф были. Дак что и производители крупных программных продуктов юзают технику переименования *.rtf->*.doc.

 

[FafneR]

Ответ: Помощь по Delphi

а если программой сохранить файл в .txt(или .rtf) и программой переименовать его в .doc ?)
p.s. плз не смейтесь если я сказал что-то очень глупое. в делфе максимум могу создать прогу для вычисления дискриминанта и т.д.

Совсем забыл про эту тему
Всё оказалось банально просто
Memo1.Lines.SaveToFile(...\1.doc);

 

[Storm]

Ответ: Помощь по Delphi

Не выйдет. Т.е. оно-то его переименует, но это не будет ДОС файл, т.к. у них своя структура(нажми F3 в FAR на дос файле).

странно, перед тем как опубликовать я проверил, создал .txt набрал текст и сохранил как .doc . В word открыло отлично.

p.s. я писал и про .rtf . помойму делфа полностью поддержует этот формат + любой офис тоже.

 

[IceCube]

Ответ: Помощь по Delphi

Когда-то, давным давно в прошлом, когда еще был офис под DOS были файлы DOC такие же как обычные TXT + пару тэгов про автора, потом они подумали решили сделать такой DOC, который бы работал под Windows 3.11 и поддерживал рисование таблиц уже не по ASCII и + хранение изображений в файле или отдельно, такой же как сейчас RTF, а потом с появлением Windows 95 решили закодировать внутреннее содержание файлов и сделать DOC уже с кучей всяких наворотов для работы с текстом и изображениями.
А текущие версии текстовых редакторов поддерживают все предыдущие версии файлов DOC.
Почти все программы конвертирования текстовых файлов в DOC для предыдущих версий из новых, перегоняют его в DOC такой как RTF.

 

[feministka]

Ответ: Помощь по Delphi

Вопрос на тему ДелфЫ

Мистика.
Пишу дома прогу в делфе 6-той версии, проверяю в 7-мой, считает все верно и одинаково. Совершенно нече не меняю, приношу в универ, сначала запускаю ехе файл, выдает совершенно другие результаты, там же компилирую, и снова выдает те левые результаты. Снова же, нече не исправляю, прихожу домой, запускаю ехе, результат тот, что был дома, совершенно отличные от таво, что был на паре, компилирую, результат не меняется. И прога одна и таже. Как такое может быть??
Обьясните, эт мистика или сдесь есть какой-то более разумный ответ?