/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 705
от 12.01.2007, 21:05

Вопрос № 69.825

Господа эксперты! Я использую MS Word для формирования отчетов. Имеется несколько десятков документов-шаблонов. Пользователь выбирает один из них и запускает процедуру, ее примерный код - в приложении. Все работает, но иногда какой-нибудь из шаблонов (всякий раз - другой) вдруг перестает открываться, выдает сообщение о нехватке памяти, хотя реально памяти полно. При этом в диспетчере задач видно, что есть незавершенный процесс Word. Открыть документ не удается, даже если этот процесс прибить. Другие шаблоны при этом открываются нормально. Иногда это проходит само собой, но чаще требуется перезагрузка. Подскажите, что можно предпринять. Спасибо. С Новым Годом. Vitaly Grobshtein Приложение: T := 'MayTemplate.doc'; WordApplication1.Documents.Add(T, EmptyParam, EmptyParam, EmptyParam); WordDocument1.ConnectTo(WordApplication1.ActiveDocument); // Передача текста в Word WordApplication1.Visible := True; WordApplication1.Disconnect;

Отправлен: 07.01.2007, 03:25 Вопрос задал: Vitaly (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ivanich Здравствуйте, Vitaly! Давно я уже не исползовал интерфейс OLE, но попытаюсь помочь. Скорее всего глючит Word.

Ответ отправил: Ivanich (статус: 6-ой класс) Ответ отправлен: 07.01.2007, 19:04 Оценка за ответ: 2 Комментарий оценки: За желание помочь - спасибо. Но в вашем сообщении не содержится никакой полезной информации.

Вопрос № 69.877

Доброго времени суток уважаемые эксперты я уже задавал этот вопрос но возможно из-за того что неуточнил, неполучил правильного ответа проблема вот в чем база данных InteBase в ней данные разного типа (Varcar,Integer,Date(dd,mm,yyyy)) при поиске по (Varcar,Integer) все замечательно но по (Date) практически постояно проблемы если нет полного совпадения со значением в базе то ничего невыдает а мне нужно чтобы поиск производился по (dd,mm) я пробовал через Like но например если ввести '11' все работает если ввести '11.11' ничего невыдает хотя в базе есть данное значение через Starting Whith тоже самое хотя может я неправильно написал код прозьба ответ распишите по подробней что и почему чтобы я тоже понял что я делаю а не просто переписал чужой код заранее спасибо за ответы

Отправлен: 07.01.2007, 15:38 Вопрос задал: Fins (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, Fins! Вам надо было свой код привести. :) Если Вы задаете условие по неполной дате, то Вам нужно воспользоваться функцией EXTRACT(), которая возвращает отдельные составляющие даты. Например: SELECT нужные_поля FROM Таблица WHERE EXTRACT(DAY FROM Поле_Date)=11 and EXTRACT(MONTH FROM Поле_Date)=11 Тип данных Date в обязательном порядке должен предусматривать год.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 08.01.2007, 07:38

Вопрос № 69.880

здраствуйте уважаемые эксперты ! подскажите пожалуста как из указаной директории окрыть файл например рисунок или запустить exe какой нибудь спасибо зарание за ответ

Отправлен: 07.01.2007, 16:09 Вопрос задал: Fins (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ivanich Здравствуйте, Fins! например в приложение представлена программа, которая открывает все файлы брошеные ей как параметры в командную строку! Приложение: program Execute; uses Windows, SysUtils, ShellAPI; var i:Integer; procedure ExecuteThis(Name:PChar); begin ShellExecute(0, nil, Name, nil, nil, 1); end; begin for i:=1 to ParamCount do if FileExists(ParamStr(i)) then ExecuteThis(PChar(ParamStr(i))); end.

Ответ отправил: Ivanich (статус: 6-ой класс) Ответ отправлен: 07.01.2007, 18:45

Отвечает: Alexey G. Gladenyuk Здравствуйте, Fins! Для запуска других приложений можно использовать WinExec. function WinExec (lpCmdLine: LPCSTR; uCmdShow: UINT): UINT lpCmdLine - полный путь к файлу (PAnsiChar) uCmdShow - способ отображения программы (LongWord). Определены константы: SW_HIDE - Окно в скрытом режиме. SW_MAXIMIZE - Окно максимального размера SW_MINIMIZE - Окно находится в свернутом виде, активируется следующее верхнее окно в Z последовательности. SW_RESTORE - Активирует и показывает окно. Если окно свернуто или развернуто, Windows восстанавливает его к первоначальному размеру и позиции. Приложение должно определить этот флаг при восстановлении свернутого окна. SW_SHOW - Активирует окно и выводит его в текущих размерах и позиции. SW_SHOWMAXIMIZED - Активирует и показывает окно в развернутом виде. SW_SHOWMINIMIZED - Активирует и показывает окно в свернутом виде. SW_SHOWMINNOACTIVE - Отображает окно в свернутом виде. Активное окно остается активным. SW_SHOWNA - Отображает окно в текущем состоянии. Активное окно остается активным. SW_SHOWNORMAL - Активирует и показывает окно. Если окно свернуто или развернуто, Windows восстанавливает его к первоначальному размеру и позиции. Приложение должно определить этот флаг при показе окна в первый раз. Однако, Microsoft не рекомендует использовать WinExec, а предлагает пользоваться CreateProcess (создание процесса), что несколько сложнее из-за большого количества передаваемых аргументов. Более "продвинутый" вариант вызова - ShellExecute. function ShellExecute(hWnd: HWND; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): HINST Функция позволяет открыть или вывести на принтер указанный файл, а также открыть каталог (open (открыть), print (напечатать) и explore (исследовать)). В качестве файла (параметр Operation) можно указать исполняемый файл, в результате чего запустится приложение, либо любой другой файл, что приведет к запуску соответствующего приложения, обрабатывающего данный тип файлов. Например, если с помощью ShellExecute Вы попробуете запустить файл с расширением .BMP, то будет запущена соответствующая программа для просмотра графических файлов. Параметр hWnd содержит ссылку на окно, из которого запускается другое приложение. Параметр Operation указывает на строку с описанием выполняемой команды (операции). Командная строка может принимать следующие значения: - open (открытие файла или каталога, указанных параметром FileName. Если задан исполняемый файл, то он запускается). - print (печать файла документа). - explore (открытие каталога, указанного параметром FileName). Если для этого параметра указать nil, то по умолчанию принимается значение open. Параметр FileName является указателем на строку с именем файла или каталога, для которых выполняется операция. Параметр Parameters указывает на строку, содержащую передаваемые запускаемому приложению параметры. Если открывается неисполняемый файл, то следует установить это значение в nil. Параметр Directory указывает на строку с именем каталога по умолчанию. Параметр ShowCmd определяет (так же, как для WinExec) способ отображения окна запускаемого приложения. Перед использованием ShellExecute в разделе Uses нужно подключить модуль ShellAPI. Пример использования ShellExecute для запуска блокнота Windows: ShellExecute (Application.MainForm.Handle, PChar ('open'), PChar ('notepad.exe'), Nil, Nil, SW_SHOWNORMAL); В качестве окна, вызвавшего Блокнот, указана главная форма приложения Application.MainForm. Открытие текстового документа: ShellExecute (Application.MainForm.Handle, PChar ('open'), PChar ('test.doc'), Nil, PChar ('c:example'), SW_SHOWNORMAL); Открывается файл test.doc из каталога c:exampleю

Ответ отправил: Alexey G. Gladenyuk (статус: Академик) Россия, Сегежа Тел.: +7 911 402 18 57 Организация: ОАО "Сегежский ЦБК" WWW: Мой город ICQ: 279076419 ---- Ответ отправлен: 12.01.2007, 00:06

Вопрос № 69.896

Как програмно можно отключить а затем включить клавиатуру с мышкой? спасибо.

Отправлен: 07.01.2007, 17:56 Вопрос задал: Танасюк Олег Олегович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ivanich Здравствуйте, Танасюк Олег Олегович! Знвчит на счет мяши все просто. Мною уже давно была написана программа "Мышеловка", которая при запуске ограничивает или совсем запрещает движение мяши. Основой ее была API-функция ClipCursor. Единственный ее параметр - это указатель на структуру TRect, в которой указаны экранные координаты отсекаемой области для действия мыши. Вот примерные процедуры остановки и возобновления работы мыши: procedure StopMouse; //см. приложение procedure RunMouse; //см. приложение С клавиатурой же все сложнее. Скорее всего для ее полного отключения придется написать целый дополнительный модуль. Не знаю API-функций для выключения клавиатуры и по этой причине могу предложить только решить эту проблему только с помощью Hooks (ловушек) системных событий. Приложение: procedure StopMouse; var Pos:TPoint; Lock:TRect; begin GetCursorPos(Pos); Lock.Left:=Pos.X-1; Lock.Top:=Pos.Y-1; Lock.Right:=Pos.X; Lock.Bottom:=Pos.Y; ClipCursor(@Lock); end; procedure RunMouse; var Lock:TRect; begin Lock.Left:=0; Lock.Top:=0; Lock.Right:=GetSystemMetrics(SM_CXSCREEN); Lock.Bottom:=GetSystemMetrics(SM_CYSCREEN); ClipCursor(@Lock); end;

Ответ отправил: Ivanich (статус: 6-ой класс) Ответ отправлен: 07.01.2007, 18:35

Отвечает: Alexanderus Здравствуйте, Танасюк Олег Олегович! Для этого нужно зайти в диспетчер устройсв найти клавиатура, нажать свойства-вкладку драйвер-откатить. Доже самое проделать с мышкой.

Ответ отправил: Alexanderus (статус: 3-ий класс) Ответ отправлен: 07.01.2007, 22:14

Отвечает: Coupler Здравствуйте, Танасюк Олег Олегович! Код для включения-выключения того и другого в приложении. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; m_OldMHook: HHook = 0; k_OldKBHook: HHook = 0; function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall; procedure KeyBoardOn; procedure KeyBoardOff; function MouseHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall; procedure MOUSEON; procedure MouseOff; implementation {$R *.dfm} function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall; begin if code < 0 then Result := CallNextHookEx(k_oldKbHook, code, wparam, lparam) else Result := 1; end; // включение клавы procedure KeyBoardOn; begin if k_OldKbHook <> 0 then begin UnHookWindowshookEx(k_OldKbHook); k_OldKbHook := 0; end; end; // выключение клавы procedure KeyBoardOff; begin k_OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0); end; function MouseHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall; begin if code < 0 then Result := CallNextHookEx(m_oldMHook, code, wparam, lparam) else Result := 1; end; // включение мышки procedure MOUSEON; begin if m_OldMHook <> 0 then begin UnHookWindowshookEx(m_OldMHook); m_OldMHook := 0; end; end; // выключение мышки procedure MouseOff; begin m_OldMHook := SetWindowsHookEx(WH_MOUSE, @MOUSEHook, HInstance, 0); end; procedure TForm1.Button1Click(Sender: TObject); begin KeyBoardOn; end; procedure TForm1.Button2Click(Sender: TObject); begin KeyBoardOFF; end; procedure TForm1.Button3Click(Sender: TObject); begin MouseOn; end; procedure TForm1.Button4Click(Sender: TObject); begin MouseOff; end; end.

Ответ отправил: Coupler (статус: Студент) Ответ отправлен: 08.01.2007, 06:02 Оценка за ответ: 5

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.38 от 20.12.2006