Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

сохранение Word файла в Blob поле   Найти похожие ветки 

 
Xmen   (2011-01-17 08:45) [0]

Привет мастерам!
Есть один вопрос как сохранить Word файл в Blob поле посли закрытия word файла.
Есть док файл там есть анкета после ввода текста и сохранения этого файла чтобы он сохранился в влоб поле таблицы.


 
Jeer ©   (2011-01-17 10:16) [1]

google:
save file to blob


 
Xmen   (2011-01-17 12:09) [2]

Спасибо
Мне интересно было по закрытию ворд файла отправить его в блоб


 
Cobalt ©   (2011-01-17 14:04) [3]

смотри TBlobField


 
Andy BitOff ©   (2011-01-18 13:50) [4]

Следить за Вордом с помощью TWordApplication
события
OnDocumentBeforeClose
OnDocumentBeforeSave


 
имя   (2011-02-05 15:34) [5]

Удалено модератором


 
Xmen   (2011-02-25 10:49) [6]

Как отследить закрытие Word документа искал с гуглом но толком не нашел ответа. Есть только одинаковые ответы.


> Andy BitOff ©   (18.01.11 13:50) [4]
> Следить за Вордом с помощью TWordApplicationсобытияOnDocumentBeforeCloseOnDocumentBeforeSave

TWordApplication не ползуюсь, работаем с ComObj.


 
Xmen   (2011-02-25 12:27) [7]

Результат поиска много раз возвращал ссылку вот этот пример (ссылки были разные это только один из них)
http://delphiworld.narod.ru/base/msword_open_docs_notify.html


 
KilkennyCat ©   (2011-02-25 12:58) [8]

а зачем этот пример, раз вы

>  работаем с ComObj.

закройте документам там.


 
KilkennyCat ©   (2011-02-25 13:00) [9]

ну а если вообще все плохо, написать макрос в ворде, пусть сам ворд орет, что документы он закрыл. он, кстати, может и сам еще и в блоб запихнуть.


 
Xmen   (2011-02-25 13:04) [10]


> а зачем этот пример, раз вы>  работаем с ComObj.закройте
> документам там.

Я ссылку дал потом что я искал уже в инете и не нашел подходящего ответа.


 
KilkennyCat ©   (2011-02-25 13:26) [11]

а, понятно... вы запускаете ворд, пользователь редактирует, закрывает, и надо перехватить это закрытие? т.е. редактируется не из программы...


 
Xmen   (2011-02-25 14:13) [12]


> KilkennyCat ©   (25.02.11 13:26) [11]
> а, понятно... вы запускаете ворд, пользователь редактирует,
>  закрывает, и надо перехватить это закрытие? т.е. редактируется
> не из программы..


если конкретно то да
есть анкеты в ворде(хранятся в блобе) и есть клиенты.
для каждого клиента создаётся поля с блоб полями внутри ворд файлом.
задача было такое нужно открыть каждую анкету, то есть сохранить файл из блоб поле в временном каталоге. а потом его редактировать и заполнят и сохранить его. Есть форма с помощью его выбирается клиент и выбирается анкета для изменения (сохраняется файл из блоба в временном каталоге). И программно открывается вордом. Заполняется в ворде и сохраняется. вот тут программа должно заново сохранить его в блоб поле. Мне это не удается. У меня не получается узнать что файл был изменен и сохранен.


 
clickmaker ©   (2011-02-25 14:26) [13]

> Мне это не удается. У меня не получается узнать что файл
> был изменен и сохранен

как вариант: FindFirstChangeNotification на этот файл


 
Xmen   (2011-02-28 08:17) [14]


> как вариант: FindFirstChangeNotification на этот файл

чета не то что я хотел
мне бы сделать так когда закрывается открытий для редактирования документ появился бы форма запроса в котором запрашивался о сохранение файла в базе.


 
clickmaker ©   (2011-02-28 11:23) [15]

> мне бы сделать так когда закрывается открытий для редактирования
> документ появился бы форма запроса

отследить закрытие можно периодически пытаясь открыть файл на запись


 
Xmen   (2011-03-03 08:12) [16]

сделал так
поместил в форму компонентов
WordApplication и WordDocument и Button и прописал
procedure TMainForm.Button1Click(Sender: TObject);
var fn:OleVariant;
begin
 fn := ExtractFilePath(Application.ExeName) + "test.doc";
 WordApplication1.Connect;
 WordApplication1.Documents.Open(fn, EmptyParam, EmptyParam, EmptyParam,
       EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
       EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
 WordApplication1.Visible:=True;
end;

по нажатию кнопки открывается ворд файл
а потом
procedure TMainForm.WordApplication1DocumentBeforeClose(ASender: TObject;
 const Doc: _Document; var Cancel: WordBool);
begin
 MessForm.Show;
end;

MessForm форме 2 кнопки "Да" "Нет" для сохранения файла заново в базе.

Теперь вопрос. Как мне сделать так что бы MessForm форма появился поверх ворд формы и перед закрытием ворда. А то у меня сначала ворд закрывается потом MessForm форма появляется. Если сделать так
procedure TMainForm.WordApplication1DocumentBeforeClose(ASender: TObject;
 const Doc: _Document; var Cancel: WordBool);
begin
 ShowMessage("Закрывается ворд!");
end;
То ShowMessage форма остаётся зади Ворд документа.


 
Плохиш ©   (2011-03-03 11:27) [17]


> Как мне сделать так что бы MessForm форма появился поверх
> ворд формы

Надо активировать свою программу и вывести еë на передний фронт.


 
Xmen   (2011-03-03 13:51) [18]

procedure TMainForm.WordApplication1DocumentBeforeClose(ASender: TObject;
const Doc: _Document; var Cancel: WordBool);
begin
MessForm.Show;
end;

уже сделано появляется мая форма но ворд документ исчезает.
мне бы чтобы когда нажимается кнопка закрытия (х) ворда форма появился бы над вордом в место обычного запроса сохранения документа.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.067 c
15-1354034040
Use_R
2012-11-27 20:34
2013.03.22
Яндекс Почта и Одноклассники.


3-1282589023
ddd329
2010-08-23 22:43
2013.03.22
Не исключаются BLOB - поля


4-1260370228
Megavolt_Old
2009-12-09 17:50
2013.03.22
Чем принципиально отличаются эти два примера кода ...


15-1342183148
yorik_spb
2012-07-13 16:39
2013.03.22
Организации требуется - старший программист (Delphi+M SSQL)


15-1333095615
Медвежонок Пятачок
2012-03-30 12:20
2013.03.22
oiosaml.java





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский