$Id: ru.delphi.f.a.q.tei,v 1.12 1999/02/25 23:25:04 alexm Exp $
(higher colliders)
Этот F.═A.═Q.═-- список ответов на вопросы, наиболее часто задаваемые в эхо-конференциях RU.DELPHI, RU.DELPHI.DB и RU.DELPHI.INFO.
Copyright (C) Alexey Mahotkin 1997-1999
Ответы на вопросы Copyright (C) авторы ответов
Пожалуйста, воздержитесь от задавания вопросов в этой иерархии, до того, как прочтете этот документ, правила иерархии, ознакомитесь со списком рекомендованной литературы и проведете самостоятельные исследования вопроса. Это поможет всем нам сохранить на должном высоком уровне соотношение полезной и бесполезной информации.
Правилами иерархии, в частности, регламентируется содержание поля Subject: ваших писем. Дело в том, что довольно большое количество "потенциально полезных вам индивидуумов" читают эхи методом "по сабджектам", сознательно не тратя время на письма под заголовком "Help!", "Проблема" или "Вопрос чайника". В данном случае использование комбинации клавиш Shift-1 лишь усугубляет ваше положение. Подумайте об этом.
Здесь не приветствуется:
Этот документ регулярно изменяется в результате отслеживания происходящего в RU.DELPHI.*. Вы можете поучаствовать в составлении документа, прислав по адресу mailto:alexm(at)hsys.msk.ru" сформулированный вариант вопроса, ответ или дополнение или исправление к ответу. Довольно важным критерием отбора ответов является размер. Я не хочу публиковать большие куски кода, предпочитая давать указание на источник дополнительной информации или направление самостоятельных разработок. В любом случае, вы можете обратиться к авторам сопутствующих проектов, список которых приведен ниже.
Разрешается свободное распространение и использование этого документа при соблюдении определенной вежливости по отношению к автору и читателям, основной составляющей чего является соблюдение целостности документа. Не очень приветствуется выкладывание копий этого документа на WWW: подумайте, нужны ли вам непрерывные усилия по синхронизации? Если же вы вынуждены использовать этот документ на сайте, для того, чтобы создать его содержимое, подумайте, нужен ли вообще ваш сайт?
Свежая версия этого документа находится на домашней странице автора http://alexm.here.ru. Остерегайтесь подделок.
Существует также некоторое количество подобных проектов, освещающих те или иные стороны вопроса.
Delphi Tips&Tricks, автор═-- Акжан Абдулин, 2:5040/55. Это большая коллекция кусков кода и обстоятельных рассказов о том или ином решении.
F.A.Q. по фичам Delphi, автор═-- Михаил Чернышев, 2:4615/26. Это описание различных библиотек и компонентов третьих фирм, не входящих в стандартную поставку Delphi.
Delphi F.A.Q., находящийся на сайте производителя http://www.inprise.com. Это официальный F.A.Q.
Delphi Bug List, лежащий по адресу http://www.dataweb.net/~r.p.sterkenburg. Это список ошибок во всех известных версиях Delphi, адекватно обновляемый.
Список людей, внесших свой вклад в создание этого F.A.Q., в алфавитно-случайном порядке: Akzhan Abdulin (2:5040/55), Alexey Tomin (alex(at)soniir.smr.ru), Anthony Buntyakov (antosha(at)metcombank.ru), Arthur Aseev (2:5030/465.2), Andrey Grigoriev (2:5061/24.20), Alex Konshin (2:5030/217), Alexander Lokshin (2:5020/529), Alexander Petrosyan (2:5020/468.8), Alex Petin (2:5000/97.8), Andrey Ruckoy (2:5047/7), Andrey Sarinkov (2:5040/33.121), Alexey Sinutin (2:5022/12.16), Andrew Verigo (2:452/23.32), Alexey Yashin (2:5020/62.31), Boris Loboda (2:461/256), Boris Podchezertseff (2:5020/656.20), Dmitry Kryloff (2:5054/9.20), Dmitry Shikhman (2:468/13.32), Edward Shigapov (2:5051/22.8), Eugene Kopko (2:464/196), Evgeny Levashoff (2:5022/31.7), Eugene Mayevski (2:463/209), Eugeny Sverchkov (2:5031/12.23), Ilya Andreev (2:5030/55.28), Ivan Gudym (2:4642/2213.9), Igor Slusarev (2:5020/118.18), Juris Bekins (2:5100/35), Max Vystropov (2:5020/1412), Oleg Belousov (oberon(at)nvart.ru), Pavel Shklovsky (2:5011/18), Roman Procopovich (2:5030/254.201), Roman Rechmakov (2:5020/952.26), Stanislav Babin (2:5030/356.7), Serge Korolev (2:5020/104), Sergey Mazunov (2:5083/30.20), Sergey Okhapkin (ex-2:5020/47), Serg Vostrikov (2:5053/15.3), Sergey Arkhipov (2:5054/88.10), Sergey Belov (sbelov(at)aha.ru), Victor Babkin (2:463/279.6), Vlad Sharnin (vlad(at)nplks.rb.ru), Victor Ishikeev (ivi(at)ufanet.ru), Vladimir Vornichescu (2:469/101.24).
Если по какой-то причине вас нет в этом списке, тогда как вы считаете, что должны там находиться, прошу извинить и уведомить об этом прискорбном факте. Я также позволил себе не сопоставлять некоторые ответы с именами авторов этих ответов. Если вас не устраивает такая ситуация═-- напишите об этом.
Прежде всего, конечно же, книги. Как бы это странно ни звучало, но зайдите в книжный магазин и купите себе там какую-нибудь книгу, даже если она уже у вас есть. Следует сразу предупредить, что специфика современного российского книгоиздания такова, что существует довольно большое количество книг, не стоящих своих денег. Вероятно, вам следует положиться на собственное чутье и тщательно изучить предлагаемую продукцию.
Список литературы на все интересующие темы, рекомендованный к прочтению, находится в неофициальном F.A.Q. эхоконференции RU.BOOKS.COMPUTING. Свежие версии этого F.A.Q. регулярно публикуются в соответствующей эхоконференции, а также доступны на домашней странице автора.
Учтите, что кроме книг по Delphi вас могут интересовать также издания, посвященные программированию под Windows и проектированию баз данных. Delphi, в сущности, является обычным компилятором для Windows, и довольно большое количество вопросов, которые у вас возникнут, будут не столь уж сильно ориентированы именно на Delphi.
Само собой, хотелось бы увидеть у активного участника конференции определенные знания языка программирования Object Pascal, являющегося основой Delphi, а также знаний в области программирования вообще, программирования под Windows в частности, а также предметной области своей собственной задачи. Без всякого сомнения, вы можете общаться и задавать вопросы на любом уровне, но ожидайте соответствующей реакции извне.
Научитесь также пользоваться системой помощи, поставляемой вместе с Delphi. Как это ни прискорбно, весьма ощутимый процент задаваемых в эхе вопросов легко снимается нажатием кнопки F1 и поиском примерного перевода вопроса на английский язык. Примером тому может являться сакраментальный вопрос о получении короткого имени файла из длинного и ответ: GetShortPathname. Да, скорее всего вам придется восполнить свои пробелы в школьном образовании и изучить некоторое подмножество английского языка, без коего вы имеете не столь много шансов успешно функционировать в выбранной области.
Учтите наличие в поставке Delphi большого количества разнообразных примеров. Возможно, ознакомившись с ними, вы приобретете дополнительные знания. Изучите исходные тексты Visual Component Library, поставляемой вместе с Delphi Professional и Delphi Client/Server, а также хорошие образцы кодирования и проектирования, например, исходники rxLib.
Возможно, вам следует приобрести тем или иным способом ту часть Microsoft Developer Network (MSDN), что содержит в себе документацию. Это диски с названиями "Platform SDK", "Additional SDKs and Tools" и "DDKs". В них содержится более свежая, более полная и обширная информация по всем аспектам программирования под Windows. Подписка на эту часть MSDN (это первый уровень) стоит не столь дорого и вы имеете все шансы купить ее, например, для своей организации. Более того, на http://msdn.microsoft.com можно получить доступ к львиной доле документации из MSDN.
Множество качественной информации, относящейся к программированию под Windows 95/NT, можно получить на http://www.sysinternals.com. На http://www.iarchitect.com находится большой ресурс, посвященный вопросам построения пользовательского интерфейса.
Если вам требуется работать с нестандартным железом, подумайте о написании драйвера. Это удобнее, проще и гибче. Соответствующая информация находится в DDK (Device Driver Development Kit). Самая известная фирма, занимающаяся поддержкой писателей драйверов -- Vireo. http://www.vireo.com. Отдельно стоит упомянуть, что если вы всего лишь желаете работать с последовательными портами, то вам следует приобрести библиотеку Async Professional фирмы Turbo Power. На http://www.entechtaiwan.com/tools.htm лежат TVicHW32 и TVicPort. На http://www.bluewatersystems.com есть WinRT, а у все той же Vireo Software: Driver::Agent. Это все попытки избавить пользователя от написания драйверов.
Традиционно обитатели RU.DELPHI питают заслуженную любовь и уважение к библиотеке rxLib. Это большая библиотека компонент для Delphi всех версий и C++Builder, распространяемая по системе freeware с полными исходными текстами и файлами помощи на русском языке. Выяснено, что эта библиотека способна покрыть очень большое количество запросов программистов на Delphi самого разного уровня, и в частности, именно на нее будут даваться обильные ссылки далее по тексту. Дополнительную информацию вы можете получить по адресу http://rx.demo.ru.
По возможности фидошные обитатели RU.DELPHI помещают интересные файлы в так называемые файлэхи. Официальной файлэхой RU.DELPHI является WDEVDELPHI. Ценным ресурсом являются файлэхи группы FED* (модератор═-- Акжан Абдулин, 2:5040/55). Если вы читаете RU.DELPHI из Фидо, то подпишитесь на эти файлэхи и научитесь пользоваться файловыми запросами (FReq'ами), так как многие узлы хранят файлы, проходившие по файлэхам, в течение довольно долгого времени. Обратитесь к вашему боссу в случае затруднений. Если же вы из Интернета, то поисковые машины, такие как http://www.altavista.com, http://ftpsearch.lycos.com, а также крупнейший архив ньюсгрупп http://www.dejanews.com, станут вашими лучшими помощниками. Вам следует также заметить, что существует определенное количество FTP-архивов, содержащих вышеупомянутые файлэхи, например, ftp://bbs.ogo.ru.
Само собой, Интернет переполнен ресурсами, посвященными Borland Delphi. Для начала хороший список ссылок можно найти на официальной странице rxLib: http://rx.demo.ru.
Вы можете также подписаться на дружественные эхи, такие как:
Q: Каким именно релизом Delphi вообще стоит пользоваться для каждой конкретной версии?
A: Во-первых, вы можете узнать точную версию Delphi, если в окошке Help═|═About нажмете кнопку═Alt и, не отпуская, наберете "VERSION".
Delphi═1 следует апгрейдить до версии═1.02 с помощью патчей.
Delphi═2 следует апгрейдить до версии═2.01. Это полноценный дистрибутив. Эту версию можно, в частности, узнать по странице "Internet" в палитре компонентов. Ее точная версия═ 2.0.76.0.
Delphi═3 следует взять версии 3.02. Это полноценный дистрибутив═3.01 и патчи до═3.02.
Delphi═4 же должна быть обновлена третьим ServicePack'ом, который можно взять на сайте Inprise.
Версии Delphi═4.3 и 4.5 являются обманными версиями. В действительности это ранние беты Delphi═4.0.
Q: Как исправить проблемы с вызовом помощи при одновременно стоящих Delphi═1 и Delphi═2?
A: (AP): Решаются так...
В regedit убейте из секции HKLM\SOFTWARE\Microsoft\Windows\Help все, что равно "...\help".
Изменив соответствующие пути, импортируйте в реестр следующий файлик:
REGEDIT4 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\AppPaths\ delphi32.exe]═@="C:\\DELPHI2\\BIN\\delphi32.exe"═"Path"="C:\\DELPHI2\\HELP"
Q: Delphi═2 и═3 не отображают русские TTF под Windows═NT WorkStation═+ ServicePack#3.
A: (AlPe): Попробуй сделать в [HKLM\Software\Microsoft\Windows═NT\CurrentVersion\FontMapper] DEFAULT=0xcc (204) вместо 0x00 (Именно DEFAULT, а не (Default) :-) получше маленько будет...
Q: А как включить окошко CPU═Window?
A: Вставьте в реестр строковый ключ
HKCU\Software\Borland\Delphi\2.0\Debugging\ EnableCPU=1
Соответственно, для Delphi═3═-- Delphi 3.0.
Q: Как установить компонент от Delphi одной версии под Delphi другой версии, если имеется только .DCU файл?
A: Никак. Фирма Borland всегда поддерживала несовместимость .DCU-файлов между разными версиями. Ищите исходник или .DCU, скомпилированный для соответствующей версии Delphi.
Q: При возникновении ошибки во время отладки программы машина перезагружается. Что делать?
A: Снести QEMM. Начисто. Простое отключение его функций не помогает.
Q: Delphi═4 виснут при запуске. Видеокарта S3═Virge.
REGEDIT4 [HKEY_CURRENT_CONFIG\Display\Settings] "BusThrottle"="on"
Эта проблема устранена в Delphi═4sp3.
При работе программ на Delphi═1 под Windows═95 в hicolor-режимах на иконках TBitBtn'ов обнаруживаются странные коричневые артефакты. Как от них избавиться?
A: (AB): Залить фон битмапа синим цветом.
Q: Можно ли скомпилировать на Delphi═2/3/4 программу, работающую под Windows═3.1?
A: (NP): Нет, но в дистрибутиве с Delphi═2/3/4 поставляется Delphi═1 специально для этой цели.
Q: Куда из Delphi═3 делся модуль для работы с ReportSmith? А мои любимые модули работы с OLE: ole2, oleauto и olectl?
Они лежат в X:\DELPHI3\LIB\DELPHI2.
Q: Не работает передача данных по OLE в русский Excel.
A: (SM): Дело в том что в VCL твои команды OLE2 передаются Excel'у в русском контексте (не знаю, как это правильно назвать). Для исправления необходимо найти в файле OLEAUTO.pas в функции GetIDsOfNames строчку
if═Dispatch.GetIDsOfNames(GUID_NULL,═@NameRefs,═NameCount, ══LOCALE_SYSTEM_DEFAULT,═DispIDs)═<>═0═thenи заменить ее на
══if═Dispatch.GetIDsOfNames(GUID_NULL,═@NameRefs,═NameCount, ═════((LANG_ENGLISH+SUBLANG_DEFAULT*1024)+SORT_DEFAULT*═65536═), ════════════DispIDs)═<>═0═thenПосле этого у меня Excel стал понимать нормальные английские команды :)). Необходимая комбинация для установки английского языка взята из C-шных хедеров.
Q: Database Desktop показывает содержимое таблиц шрифтом без русских букв. Что делать?
A: Для DBD═5.0 в файл c:\windows\pdoxwin.ini вставить в секцию
[Properties]═ SystemFont=Arial═Cyr
Для DBD═7.0 нужно исправить реестр: ключ
HKCU\Software\Borland\DBD\7.0\Preferences\Properties\ SystemFont="Arial═Cyr"
Можно попробовать также использовать шрифт типа Baltica, с гарантированными русскими буквами. Впрочем, для просмотра таблиц все равно можно порекомендовать rx═Database Explorer.
Q: Hе получается открыть таблицу, созданную в InterBase с DEFAULT CHARACTER SET WIN1251. Оно говорит, что "WIN1251 undefined".
A: (AA): Ставьте Interbase в каталог с путем, соответствующим DOS-овским соглашениям об именах═(8+3).
Q: WindowsNT═4.0 + Delphi═2.01 C/S + Oracle Client═7.3 + Oracle Server═7.3. После логина в базу данных возникает "EExternalError 0xC0000008". Что делать?
A: (IA, SK): Снести Oracle Trace Collection Services.
Q: Как русифицировать сообщения программы?
Ответ зависит от версии Delphi.
Ежели кому интересно то на http://members.xoom.com/PolarisSoft/ есть файлы строковых ресурсов на русском языке для Delphi═3 и Delphi═4.
Q: Как сделать так, чтобы программу можно было запустить только в одном экземпляре?
A: Воспользуйтесь функцией ActivatePrevInstance из библиотеки rxLib. Для завершения второго экземпляра используйте Application.Terminate.
(AS): Другой вариант: X:\DELPHI2\DEMOS\IPCDEMOS\ipcthrd.pas, функция IsMonitorRunning().
Q: Как мне вывести какое-нибудь окошко с картинкой, пока программа грузится?
A: Смотрите пример в X:\DELPHI\DEMOS\DB\MASTAPP\mastapp.dpr.
Удобно использовать функцию ShowSplashWindow из rxLib.
Q: А как поместить свою иконку на taskbar, там где часы и переключатель клавиатуры? (Этот вопрос получил первый приз).
A: В библиотеке rxLib есть компонент TrxTrayIcon. Заметьте, что для корректного завершения работы операционной системе вам потребуется обрабатывать сообщение WM_QUERYENDSESSION.
Q: Как сделать плавно изменяющийся цвет заголовка окна, как в MSOffice'95?
В rxLib есть TGradientCaption.
Q: Как мне перекодировать строки из Win-кодировки в Dos-кодировку и наоборот?
A: CharToOEM, OEMToChar, CharToOEMBuff, OEMToCharBuff. Заметьте однако, что эти функции не умеют делать таких, например, вещей, как koi8-r в DOS и т.═п.
Q: Как отловить события создания или удаления файлов другими программами?
В rxLib есть TrxFolderMonitor.
(Win16) FileCDR, но она плохо документирована.
Q: Как вывести диалог выбора директории?
A: (DS): SelectDirectory, rxLib: TDirectoryEdit.
Q: Моя программа довольно долго делает какую-то полезную работу, типа чтения дерева каталогов или обильных вычислений, и в этот момент почти не работают остальные программы. Как разрешить им это делать?
A: Application.ProcessMessages.
(AA): Если вы хотите отдавать timeslices в нитях, пользуйтесь Sleep(0); это отдаст остаток слайса системе.
(Win16) Если вы хотите разрешить отработку сообщений другим программам, но не вашей, то лучше пользоваться Yield().
Q: Как мне запустить какую-нибудь программу? А как подождать, пока эта программа не отработает? Как выяснить, работает ли программа или уже завершилась? Как принудительно закрыть выполняющуюся программу?
A: WinExec() или ShellExecute. У второй больше возможностей.
(SO): CreateProcess() в параметре process info возвращает handle запущенного процесса. Вот и делаешь WaitForSingleObject(pi.hProcess, INFINITE);
(AA): (Win16) Delay можно взять из rxLib.
handle═:=═WinExec(...); if═handle═>=═32═then═ ══while═GetModuleUsage(handle)═>═0═do═ ════Delay(═nn═); else ═raise═....
(AM): Чтобы выяснить, работает ли программа, используйте GetProcessTimes(), параметр lpExitTime.
(Win32) Для принудительного завершения процесса═-- TerminateProcess.
(Win16) (RR): Надо послать программе сообщение WM_QUIT:
Handle═:=═Winexec(App,═0);═ PostMessage(Handle,═WM_QUIT,═0,═0);
Q: Как сделать так, чтобы при щелчке по кнопке или по TLabel запускался, например, браузер с сайтом программы или почтовая программа с определенным адресом получателя?
uses═ShellApi;
{═...═}
ShellExecute("http://www.company.com",═...═);
ShellExecute("mailto:author@somewhere.net",═...);
Q: Как правильно закрыть и удалить форму? Почему моя MDI Child форма при закрывании просто минимизируется?
A: Обрабатывайте событие OnClose для формы и выставляйте в нем параметр Action в caFree. Дело в том, что его значение по умолчанию для MDI Child форм═ caMinimize. Кстати, если сделать Action := caNone, то форму нельзя будет закрыть.
Q: Мне надо добавить много строк в TListbox или в TCombobox или в TMemo или в TRichEdit, при этом сам объект постоянно мигает, перерисовываясь. Как избавиться от этого?
A: BeginUpdate/EndUpdate.
Q: Как мне запрограммировать непрямоугольную форму, например, как у Norton CrashGuard, в форме щита?
A: SetWindowRgn() (Win32).
Q: Как использовать свои курсоры в программе?
A:
{$R═CURSORS.RES}
const
══crZoomIn═=═1;
══crZoomOut═=═2;
Screen.Cursors[crZoomIn]═:=═LoadCursor(hInstance,═'CURSOR_ZOOMIN');
Screen.Cursors[crZoomOut]═:=═LoadCursor(hInstance,═'CURSOR_ZOOMOUT');
С вашей программой должен быть слинкован файл ресурсов, содержащий соответствующие курсоры.
Q: Как ограничить перемещение курсора мыши какой-либо областью экрана?
A: ClipCursor(). Учтите, что использование этой функции═-- плохой тон.
Q: Как из программы переключить раскладку клавиатуры?
A: ActivateKeyboardLayout(). Учтите, что использование этой функции═-- плохой тон.
Q: Как сделать так, чтобы по Alt-F4 форма не просто закрывалась, а выдавала запрос на сохранение?
A: Обрабатывать OnCloseQuery.
Q: Как получить короткий путь файла если имеется длинный? ("c:\Program Files" ==> "c:\progra~1").
A: GetShortPath()
Q: Как написать сервис для Windows NT?
A: В поставке Delphi═4 есть пример. http://www.sawatski.de.
Q: Как работать с registry?
A: TRegistry
Q: Как выдвинуть дверцу CD-ROM'а?
A: mciSendString('Set cdaudio Door Closed Wait', nil, 0, handle);
Также mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
Q: Как перехватывать клавиши, нажатые в окне другой программы? И вообще, любые события, поступающие другим программам?
A: SetWindowsHookEx().
Q: Как вызывать из 32-битной программы 16-битные DLL?
A: Надо применять так называемые "thunks". Смотри статью на http://www.itecuk.com/delmag/thunk95.htm.
Q: Почему у меня record a : word; b : longint end; имеет размер восемь байт вместо шести?
A: RTFM packed, $A.
Q: Где взять подробную документацию по работе с RTF, TRichEdit?
A: В MSDN.
В rxLib 2.60 появился компонент TrxRichEdit, полностью поддерживающий MS RichEdit 2.0 и его DB-aware версия. Рекомендуется.
Q: Как можно перетаскивать форму не только за заголовок?
A: WM_NCHITTEST.
Q: Как отследить "уход" курсора мыши с компонета?
A: Обрабатывать CM_MOUSEENTER/CM_MOUSELEAVE.
Q: Как добавить пункты в системное меню окна?
A: Получить хэндл системного меню окна можно с помощью функции GetSystemMenu().
A: Можно ли сделать так, чтобы в исполняемом файле программы находился какой-нибудь звук в формате .wav, и можно было бы проиграть этот звук?
В файл MyWave.rc пишешь:
MyWave═RCDATA═LOADONCALL═MyWave.wav
brcc32.exe MyWave.rc, получаешь MyWave.res.
В своей программе пишешь:
{$R═MyWave.res}
Все!
Предупреждая следующий твой вопрос "а как прочитать wave-файл из исполняемого файла?"
procedure═RetrieveMyWave;
var
══hResource:═THandle;
══pData:═Pointer;
begin
══hResource:=LoadResource(═hInstance,═FindResource(hInstance,═'MyWave',═RT_RCDATA));
══try
════pData═:=═LockResource(hResource);
════if═pData═=═nil═then
══════raise═Exception.Create('Cannot═read═MyWave');
════//═Здесь═pData═указывает═на═MyWave
════//═Теперь═можно,═например,═проиграть═его═(Win32):
════PlaySound('MyWave',═0,═SND_MEMORY);
══finally
════FreeResource(hResource);
══end;
end;
Отдельный F.A.Q. по библиотекам и инструментам третьих фирм ведется Михаилом Чернышевым и регулярно публикуется им в RU.DELPHI.
Q: Как работать с графическими форматами, хотя бы самыми известными?
A: На http://www.imagelib.com лежит библиотека ImageLib.
Hа компакте с Delphi═3 в каталоге EXTRAS есть библиотека JPEG. Если сказать в модуле uses jpeg; то можно работать с .jpg как с TPicture.
Еще есть freeware-библиотека Nishita ViewLib. JPG, JFIF, GIF, BMP, DIB, RLE, TGA, PCX. http://einstein.ae.eng.ua.edu/nishita/index.htm.
Q: Как работать с файлами архивов, хотя бы самыми распространенными?
A: Воспользуйтесь библиотекой ExceedZip 3.0 (http://www.exceedsoft.com).
Q: Как использовать DirectX в своей программе?
A: Модули для работы с DirectX находятся на Delphi Super Page, в пакете DelphiX. Также на http://www.geocities.com/SiliconValley/1142/ лежит модули для работы с DirectSound. Информацию по программированию DirectX можно взять на MSDN и в книге Чарльза Калверта "Delphi═2: Энциклопедия пользователя".
Учтите существование эхи RU.DIRECTX.
A: Как использовать OpenGL в своей программе?
Q: Модули для работы с OpenGL можно взять на http://www.signsoft.com/opengl. Информацию═-- на http://www.opengl.org. Также есть книга Ю.═Тихомирова "OpenGL: программирование трехмерной графики". Еще загляните на http://reality.sgi.com/mjk за примерами и http://www.scitechsoft.com за библиотекой MesaGL.
Учтите существование эхи RU.OPENGL.
Q: Как встроить просмотр HTML в свою программу?
A: MS Internet Explorer умеет быть элементом управления ActiveX, что позволяет поместить его на форму. В Delphi═4 имеется пример Web-браузера на Delphi.
(AL): Еще на http://www.pbear.com лежат THTMLViewer и TFrameViewer.
Q: Где достать процедуру типа "сумма прописью"?
A: (Vladimir Gaitanoff, 2:5020/880.5), http://www.tsinet.ru/~vg. Здесь лежит библиотека vgLib, содержащая еще массу полезных вещей.
Q: Какие инструменты можно применить для коллективной разработки проекта?
A: CVS. http://www.cyclic.com. С его помощью разрабатывается весьма львиная доля программного обеспечения в Internet. Интеграция с Delphi═-- нулевая ;) Крайне рекомендуется. Я лично пользуюсь ею ощутимое время и не представляю себе более разработки без этого средства. "Введение в CVS" можно прочитать на http://alexm.here.ru.
Microsoft Visual Source Safe. Проигрывает в функциональности, может выигрывать в "привычности".
Q: Как можно обнаружить утечки памяти и ресурсов в программе?
A: MSDebug Макса Русова. Находится на http://www.dic.ru/users/rusov/. Поддерживает Delphi═3 и выше, ловит только утечки памяти, но делает это хорошо.
На http://www.numega.com можно купить BoundsChecker for Delphi. Он проверяет также и утечки ресурсов.
Q: Мне нужно заниматься разбором математических выражений, например, строить график функции, заданной пользователем во время работы программы.
A: В rxLib есть компонент TrxMathParser, достаточно мощный для большого количества применений.
Q: Как правильно создавать компоненты в run-time? Что задавать в качестве параметра Owner при создании компоненты? Как обрабатывать события от созданных компонент, типа нажатий на кнопки?
A: Начнем с создания.
Сущность свойства Owner в том, что владелец перед смертью уничтожает (через Free) принадлежащие ему объекты. Таким образом, все зависит от того, кому вы хотите доверить уничтожение созданных форм/компонентов. В частности, если вы сами будете этим заниматься, то AOwner может быть, например, nil.
Для того, чтобы созданный компонент появился на экране, надо указать его родителя, заполнив свойство Parent, например, NewButton.Parent := Form1;
Пример кода, обрабатывающего события от свежесозданных компонентов:
type
══TForm1═=═class(TForm)
══{═...═}
══private
════{═эта═процедура═будет═вызываться═при═нажатии═на═кнопку═}
════procedure═ButtonClicked(Sender═:═TObject);
══public
════{═в═этой═процедуре═происходит═создание═кнопки═}
════procedure═CreateButton;
══end;
{═...═}
procedure═TForm1.CreateButton;
var
══btn═:═TButton;
begin
btn═:=═TButton.Create(Self);══{═Уничтожать═кнопку═будет═форма═}
btn.Parent═:=═Self;═══════════{═Родителем═кнопки═будет═форма═}
btn.OnClick═:=═ButtonClicked;═{═Процедура,═которая═будет═исполняться═при═}
btn.Visible═:=═true;══════════{═нажатии═на═кнопку═}
end;
Q: Как мне работать с файлами MS═Word или таблицами MS═Excel?
A: Воспользоваться функцией CreateOLEObject и работать с VBA (Visual Basic for Applications) или WordBasic.
NB: Обратите внимание на то, как устанавливаются именованные параметры у процедур WordBasic'а, например, FileOpen(Name := 'myname.doc');
===═Cut═Пример═by═Sergey═Arkhipov═2:5054/88.10═===
Пример═проверен═только═на═русском═Word═7.0!═Может,═поможет...
unit═InWord;
interface
uses
══...═ComCtrls;═//═Delphi3
══...═OLEAuto;══//═Delphi2
[skip]
procedure═TPrintForm.MPrintClick(Sender:═TObject);
var═W:═Variant;
════S:═String;
begin
══S:=VarToStr(Table1['Num']);═//В═D3═без═промежуточной═записи
══════════════════════════════//═в═var═у═меня═не═пошло═:(
══try═//═А═вдруг═где═ошибка═:)
════W:=CreateOleObject('Word.Basic');
════//═Создаем═документ═по═шаблону═MyWordDot
════//═с═указанием═пути═если═он═не═в═папке═шаблонов═Word
════W.FileNew(Template:='C:\MyPath\DB\MyWordDot',NewTemplate:=0);
════//═Отключение═фоновой═печати═(на═LJ5L═без═этого═был═пустой═лист)
════W.ToolsOptionsPrint(Background:=0);
════//═Переходим═к═закладке═Word'a═'Num'
════W.EditGoto('Num');═W.Insert(S);
════//Сохранение
════W.FileSaveAs('C:\MayPath\Reports\MyReport')
════W.FilePrint(NumCopies:='2');═//═Печать═2-х═копий
══finally
════W.ToolsOptionsPrint(Background:=1);
════W:=UnAssigned;
══end;
end;
{.....}
===═Cut═Конец═примера═===
Q: Как сделать так, чтобы запущенная программа не была видна на панели задач?
Во-первых, можно по примеру Back Orifice воспользоваться функцией RegisterServiceProcess.
Во-вторых, предположим, вы пользуетесь компонентой TrxTrayIcon из rxLib, иначе непонятно, как вы будете возвращать программу обратно из минимизированного состояния.
A: (EM, DS):
type
══TForm1═=═class(TForm)
════Label1:═TLabel;
════RxTrayIcon1:═TRxTrayIcon;
════procedure═FormCreate(Sender═:═TObject);
════procedure═RxTrayIcon1DblClick(Sender:═TObject);
══private
════{═Private═declarations═}
════procedure═ApplicationMinimize(Sender═:═TObject);
════procedure═ApplicationRestore(Sender═:═TObject);
══public
════{═Public═declarations═}
══end;
var
══Form1:═TForm1;
implementation
{$R═*.DFM}
procedure═TForm1.FormCreate(Sender:═TObject);
begin
Application.OnMinimize═:=═ApplicationMinimize;
Application.OnRestore═:=═ApplicationRestore;
ShowWindow(Application.Handle,═SW_HIDE);
end;
procedure═TForm1.ApplicationMinimize(Sender═:═TObject);
begin
ShowWindow(Application.Handle,═SW_HIDE);
end;
procedure═TForm1.ApplicationRestore(Sender═:═TObject);
begin
ShowWindow(Application.Handle,═SW_HIDE);
end;
procedure═TForm1.RxTrayIcon1DblClick(Sender:═TObject);
begin
Application.Restore;
Application.BringToFront;
end;
(AK): Только сpазу предупреждаю про грабли, на которые я наступал═-- будь готов к тому, что если пpи попытке закрытия приложения в OnCloseQuery или OnClose выводится вопрос о подтверждении, то могут быть проблемы с автоматическим завершением пpогpаммы пpи shutdown═-- под Win95 просто зависает, под WinNT не завершается. Очевидно, что сообщение выводится, но его не видно (причем SW_RESTORE не сpабатывает). Решение═-- ловить WM_QUERYENDSESSION и после всяких завеpшающих действий и вызова CallTerminateProcs выдавать Halt.
Q: После работы программы не сохраняются изменения в базе Paradox. Что делать?
A: Где-нибудь при закрытии главной формы выполните нижеследующие куски кода:
Для Delphi═3: Table.FlushBuffers при открытой таблице.
Для прочих: Table.Open; Check(dbiSaveChanges(Table.Handle)); Table.Close;
Q: Как мне упаковать Paradox или DBF таблицу?
A: Воспользоваться функцией PackTable из rxLib.
Для перегенерации индексов:
Table1.Exclusive═:=═True; Table1.Open; Check(dbiRegenIndexes(Table1.Handle);
Q: Почему при добавлении/изменении записей в некоторых запросах возникает ошибка Cannot modify a read-only dataset?
A: Во-первых, должно быть RequestLive := True; во-вторых, чтобы запрос был редактируемым, он должен удовлетворять требованиям, изложенным в помощи при поиске по "live result sets".
Q: Почему не работает сортировка и функция UPPER() в Interbase'овской базе данных?
A: Смотри в F.A.Q. по Borland Interbase от демо-центра.
Q: Hе получается вставить в таблицу записи со строками на русском языке═-- некоторые буквы меняются на другие═-- что делать?
A: В Database Desktop поставьте правильный Language Driver у таблицы, например, Pdox ANSI Cyrr.
Q: Я переписал готовую программу на машину заказчика, а она там не запускается═-- говорит "Error initializing database engine". Что делать?
A: Прочитать X:\DELPHI\DOC\deploy.txt.
Q: Как правильно соединяться с базой данных под Personal Oracle?
A: user/password@2: Это так для Oracle SQL Plus, и более других его утилит. А в BDE надо оставить все как для соединения с сетевым сервером, (протокол TNS, имя пользователя, кодировку, интерфейсную DLL) только вместо имени сервера написать "2:". Это годится и для случая, когда на одной машине и сетевой сервер и приложение.
Q: У меня в программе происходит очень большой запрос═-- в районе нескольких тысяч или десятков тысяч записей. Соответственно, большой сетевой трафик, программа тормозит и так далее. Можно ли как-нибудь оптимизировать это все?
A: Постарайтесь изменить логику приложения так, чтобы таких запросов не возникало. Обычно подобные вещи свидетельствуют о несколько неверной архитектуре приложения.
Последние изменения: Чтв Фев 25 23:38:45 Local time zone must be set--see zic manual page 1999
Сгенерировано TEItools