как в memo загрузить файл с расширением *.doc

[Азамат Казанчев]

спасибо, расмешил. на нет и суда нет

[Rififi]

Азамат Казанчев

Так получается мне не удастся его открыть в том виде какой он есть?

Почему не удастся. Очень даже удастся, ибо, хотя p51x и уверяет тебя, будто бы бинарный формат doc закрыт, на самом деле это не так, и его спецификацию могут бесплатно получить все желающие.

Поэтому - качаешь спеки, разбираешь формат, конвертишь по спекам в txt и показываешь в memo.

[Swarog]

Сообщение от Rififi

Азамат Казанчев

Так получается мне не удастся его открыть в том виде какой он есть?

Почему не удастся. Очень даже удастся, ибо, хотя p51x и уверяет тебя, будто бы бинарный формат doc закрыт, на самом деле это не так, и его спецификацию могут бесплатно получить все желающие.

Поэтому - качаешь спеки, разбираешь формат, конвертишь по спекам в txt и показываешь в memo.

вы это серьезно? студентам лень поискать что нить полегче, а вы их спецификацию какую то хотите затавить разбирать.
Если нужен просто текст то создаем winword в нем открываем документ делаем "выделить все", "скопировать" а потом вставить в мемо. Все выше перечисленное делается программно.

вот вектора поиска
статьи и делфиворлд: "Delphi и OLE Automation с Word" и думаю "Как работать с файлами MS Word или таблицами MS Excel"

[Swarog]

кстати если речь идет о шифровании ... можно ведь шифровать и двоичные данные, и для этого мемо не нужен

[Rififi]

Swarog

студентам лень поискать что нить полегче, а вы их спецификацию какую то хотите затавить разбирать

аффтар, однако, вполне недвусмысленно заявил, что не желает работать с Word через OLE.
поэтому вариантов остается как бы немного...

[Азамат Казанчев]

....спасибо за нравоучения!!!!! Почитал ваши умные речи, но мне больше понравилось двоичное представление данных-очень интересно!!! Можно об этом по подробнее?

[Sparkman]

uses ComObj;
...
function LoadFromWord(path:string):string;
var msword:variant;
begin
     msword := CreateOleObject('Word.Application');
     msword.Documents.Open(FileName := path, ReadOnly := True);
     msword.Selection.WholeStory;
     result := msword.Selection.Text;
     msword.quit(false);
     msword := 0;
end;

пс: используется OLE

[Swarog]

по кодированию-декодированию двоичных файлов вот могу скинуть свою наработку, шифрование идет по двум ключам один хранится в зашифрованном тексте первые 4 байта (они правда не шифруются) еще один ключ хранишь где нить в другом месте