Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Вниз
Содержимое файла Word Найти похожие ветки
← →
demonyator © (2004-05-11 01:33) [0]Как нарисовать на форме содержимое файла Word?
← →
KilkennyCat © (2004-05-11 01:34) [1]Вау! именно нарисовать? картинкой? в смысле, графикой?
← →
demonyator © (2004-05-11 01:36) [2]ага, там ведь таблицы, графики бывают и т.д. Надо пользователю показать так, как будто он смотрит в окно Word"a
← →
Nick Denry © (2004-05-11 01:36) [3]Обратная задача, но копать в этом направлении:
procedure TServerMain.btnExitClick(Sender: TObject);
begin
ServerMain.close;
end;
Procedure TServerMain.btnWordClick(Sender: TObject);
var
Direction : OleVariant;
FileName : OleVariant;
Time : TDateTime;
begin
//Çàïóñê ñåðâåðà
WordApplication1.Connect;
WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,
EmptyParam);
//Íàáîð òåêñòà è åãî ôîðàòèðîâàíèå
WordApplication1.Selection.InsertAfter(" "+#13);
WordApplication1.Selection.InsertAfter("Ïðèâåò, Jey!");
WordApplication1.Selection.Font.Size:=24;
WordApplication1.Selection.Font.Name:="Times New Roman";
Direction:=wdCollapseEnd;
WordApplication1.Selection.Collapse(Direction);
WordApplication1.Selection.InsertAfter(" "+#13);
WordApplication1.Selection.InsertAfter(Memo1.Text);
WordApplication1.Selection.Font.Bold:=1;
Direction:=wdCollapseEnd;
WordApplication1.Selection.Collapse(Direction);
//Âñòàâêà èçîáðàæåíèÿ
WordApplication1.Selection.InsertAfter(" "+#13);
Clipboard.Create;
ClipBoard.Assign(Image1.Picture);
WordApplication1.Selection.Paste;
WordApplication1.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;
ClipBoard.Clear;
ClipBoard.Free;
Direction:=wdCollapseEnd ;
WordApplication1.Selection.Collapse(Direction);
//Òåêñò ïîäïèñè
WordApplication1.Selection.InsertAfter(" "+#13);
WordApplication1.Selection.InsertAfter(" "+#13);
WordApplication1.Selection.InsertAfter("Ñ óâàæåíèåì, Nick Denry.");
Time := now;//Âðåìÿ
WordApplication1.Selection.InsertAfter(#13+DateTimeToStr(Time));
WordApplication1.Selection.Font.Bold:=1;
Direction:=wdCollapseEnd ;
WordApplication1.Selection.Collapse(Direction);
//Ñîõðàíåíèå äîêóìåíòû è ïîêàç îêíà Word
FileName:="Ïðèâåò.doc";
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordDocument1.SaveAs(FileName);
WordApplication1.Visible:=true;
end;
procedure TServerMain.FormDestroy(Sender: TObject);
var
SaveChanges : OleVariant;
begin
SaveChanges := false;
try
WordApplication1.Quit(SaveChanges);
WordApplication1.Disconnect;
except
on EOLEException do begin
WordApplication1.Free;
WordDocument1.Free;
ServerMain.Close;
end;
end;
end;
end.
← →
Nick Denry © (2004-05-11 01:38) [4]Верные комментарии:
//Запуск сервера
//Набор текста и его форатирование
//Вставка изображения
//Текст подписи
//Время
//Сохранение документы и показ окна Word
← →
demonyator © (2004-05-11 01:39) [5]Спасибо, Nick.
Может кто еще что-то знает?
← →
KilkennyCat © (2004-05-11 01:54) [6]Ну, предыдщий совет [3] Nick Denry © (11.05.04 01:36) - это запуск ворда... Если надо картинкой, то можно после вышеперечисленного сделать снапшот окна ворда.
а вот ежели надо напрямую... то прочитайте описание заголовка файлов Ворда. Желание пропадет (меня хватило только на выдирку текста).
← →
demonyator © (2004-05-11 01:59) [7]Я знаю есть компонент RTF2TIFF но он рабоает только по Delphi6
← →
ORMADA © (2004-05-11 08:02) [8]Ложиш на форму TOleContainer затем делаеш так затем делаеш Ole.CreateLinkToFile("путь",False);
Усё :)
← →
ORMADA © (2004-05-11 08:07) [9]2 demonyator © попробуй мой совет делал такое под Д5 + word2000 ща проверил в д7+wordXP всё работает :)
Удачи
← →
demonyator © (2004-05-11 12:40) [10]Спасибо. Работает.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.04 c
