ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ - 2011-12-02 00:08:19.783333
|
|
|
turbomatic
Сообщений: 1
Оценки: 0
Присоединился: 2011-12-01 23:58:12.810000
|
Всем Привет и заранее спасибо за помощь которая вполне реально очень поможет мне. Начну с предыстории которая может обратит Ваше внимание более остро на мой вопрос . Я по образованию и профессии системный администратор дипломированный специалист Циско, а программирование это побочные знания. Так получилось в жизни что я попал в зону и отбываю теперь здесь наказание за преступление и что б не сойти с ума в таких местах работаю на администрацию связистом. Ремонтирую телефоны и т.д. Недавно установили информационный терминал оказалось что обслуживать в зоне его некому потом выяснилось что у них сидит специалист в ИТ технологиях т.е. я. На этом терминале стоит программа не сложная я её доработал. Потом мне предложили переделать её полностью т.к. моя доработка понравилась в управлении УФСИН по нашей области, а главное не надо платить пообещав мне условно досрочное освобождение. Наработки дошли до большого уровня но знания закончились интернета естественно в зоне не кто не даст пришлось нелегально затянуть 3дж модем и вот я впервые за последний год в интернете… Под большим секретом и покровом ночи обращаюсь к вам друзья и коллеги помогите……
А вопрос собственно вот в чем. Нужен листинг или ссылка на описание такого рода программы, да к стати пишу на Delphi 7, На новой форме создаем кнопку при её нажатии открывается новая форма в которой просто отображен документ word просто для просмотра
Вот такая проблема, по понятным причинам не могу себя назвать и скинуть ссылку на фотки но в аське меня не найти так что пишите 124154130 если есть желание помочь ежедневно после 23.00 я в сети.
|
|
|
|
|
RE: ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ - 2011-12-02 05:33:01.343333
|
|
|
Barkass$
Сообщений: 1854
Оценки: 40
Присоединился: 2008-11-11 12:19:45.216666
|
По поводу открытия формы я чет не понял тебя, form2.show так что ли? Или тебе надо по нажатию на кнопку не открывать существующую, а каждый раз создавать динамически? Form2:= TForm2.Create(Application); Form2.Show?
Вообще формат .doc .docx нельзя подгрузить в делфе, насколько я знаю. Точнее не подгрузить, а отобразить.
Можно перебить Ворд и записать в RichEdit в формате .rtf Но что бы не париться и неменять расширение всех фалов ворда, сделаем через Олю вот так:
Берем: Батон, Edit, OpenDialog, RichEdit
var
Wordole: Variant;
begin
try
if OpenDialog1.Execute then
begin
Wordole := CreateOleObject('Word.Basic');
Wordole.FileOpen(OpenDialog1.FileName);
Wordole.FileSaveAs(Name := 'c:\название_нашего_документа.rtf', Format := 6);
Wordole.AppClose;
Wordole := Unassigned;
RichEdit1.Lines.LoadFromFile('c:\название_нашего_документа.rtf');
end;
except
on Exception do ShowMessage ('Оля поломалась :(');
end;
end;
Незабудь в Uses прописать: ComObj
Если надо что бы конкретный документ сразу открывался в редакторе, убери OpenDialog и запиши все это в Form.Create
p.s. А в историю твою я чет не верю) это больше похоже из разряда :- "помогите мне, я девушка" Как буд-то от этого что-то измениться. Хотя нет, на ксакепе любят женский пол, вот только для этого нужно изрядно постараться, дабы доказать)
|
|
|
|
|
RE: ПОМОГИТЕ ПОМОГИТЕ ПОМОГИТЕ - 2011-12-02 06:36:16.083333
|
|
|
Barkass$
Сообщений: 1854
Оценки: 40
Присоединился: 2008-11-11 12:19:45.216666
|
del
|
|
|
|
|
|
