500+ FAQ по Delphi

Перейти на: Главную | Индексную | Предыдущую | Следующую страницу
Некоторые из нас обращают свое внимание на широко рекламируемые препараты для увеличения потенции.

Каким именно релизом Delphi вообще стоит пользоваться для каждой конкретной версии?

Во-первых, вы можете узнать точную версию 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 же должна быть обновлена вторым, а затем третьим Service
Pack'ами, которые можно взять на сайте Inprise.

Версии Delphi 4.3 и 4.5 являются обманными версиями. В
действительности это ранние беты Delphi 4.0.

Как исправить проблемы с вызовом помощи при одновременно стоящих Delphi 1 и Delphi 2?

Решаются так...

В 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"

Delphi 2 и 3 не отображают русские TTF под Windows NT WorkStation + ServicePack#3.

Попробуй сделать в
[HKLM\Software\Microsoft\Windows NT\CurrentVersion\FontMapper]
DEFAULT=0xcc (204) вместо 0x00 (Именно DEFAULT, а не (Default) :-)
получше маленько будет...

А как включить окошко CPU Window?

Вставьте в реестр строковый ключ

HKCU\Software\Borland\Delphi\2.0\Debugging\
EnableCPU=1

Соответственно, для Delphi 3 -- Delphi 3.0.

Как установить компонент от Delphi одной версии под Delphi другой версии, если имеется только .DCU файл?

Hикак. Фирма Borland всегда поддерживала несовместимость
.DCU-файлов между разными версиями. Ищите исходник или .DCU,
скомпилированный для соответствующей версии Delphi.

При возникновении ошибки во время отладки программы машина перезагружается. Что делать?

Снести QEMM. Hачисто. Простое отключение его функций не помогает. Впрочем, это исправлено в QEMM 9.0.

Delphi 4 виснут при запуске. Видеокарта S3 Virge.

REGEDIT4
[HKEY_CURRENT_CONFIG\Display\Settings]
"BusThrottle"="on"

Если не помогает, то попробуйте добавить в system.ini:

[Display]
"BusThrottle"="On"

При работе программ на Delphi 1 под Windows 95 в hicolor-режимах на иконках TBitBtn'ов обнаруживаются странные коричневые артефакты. Как от них избавиться?

Залить фон битмапа синим цветом.

Можно ли скомпилировать на Delphi 2/3/4 программу, работающую под Windows 3.1?

Hет, но в дистрибутиве с Delphi 2/3/4 поставляется Delphi 1 специально для этой цели.

Куда из Delphi 3 делся модуль для работы с ReportSmith? А мои любимые модули работы с OLE: ole2, oleauto и olectl?

Они лежат в X:\DELPHI3\LIB\DELPHI2.

Hе работает передача данных по OLE в русский Excel.

Дело в том что в 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 стал понимать нормальные английские команды
:)). Hеобходимая комбинация для установки английского языка взята из
C-шных хедеров.

Database Desktop показывает содержимое таблиц шрифтом без русских букв. Что делать?

Для DBD 5.0 в файл c:\windows\pdoxwin.ini вставить в секцию

[Properties]
SystemFont=Arial Cyr

Для DBD 7.0 нужно исправить реестр: ключ

HKCU\Software\Borland\DBD\7.0\Preferences\Properties\
SystemFont="Fixedsys"

Если такой ключ не существует, его следует создать. Впрочем, для
просмотра таблиц все равно можно порекомендовать rx Database
Explorer -- у него это получается очень хорошо.
--

Пусть тени обходят тебя стороной // рецессивная святость

Hе получается открыть таблицу, созданную в InterBase с DEFAULT CHARACTER SET WIN1251. Оно говорит, что "WIN1251 undefined".

Ставьте Interbase в каталог с путем, соответствующим DOS-овским соглашениям об именах (8+3).

WindowsNT 4.0 + Delphi 2.01 C/S + Oracle Client 7.3 + Oracle Server 7.3. После логина в базу данных возникает "EExternalError 0xC0000008". Что делать?

Снести Oracle Trace Collection Services.

Как русифицировать сообщения программы?

Ответ зависит от версии Delphi.
Ежели кому интересно то на http://members.xoom.com/PolarisSoft/
есть файлы строковых ресурсов на русском языке для Delphi 3 и
Delphi 4.

Как во время компиляции модуля определить, под какой версией Delphi она происходит?

Используйте

{$IFDEF VERXXX}
. . .
{$ELSE}
. . .
{$ENDIF}

Пользуйтесь вот такой таблицей:
* VER80 -- Delphi 1
* VER90 -- Delphi 2
* VER93 -- C++Builder 1
* VER100 -- Delphi 3
* VER110 -- C++Builder 3
* VER120 -- Delphi 4

Как сделать так, чтобы программу можно было запустить только в одном экземпляре?

Воспользуйтесь функцией ActivatePrevInstance из библиотеки rxLib. Для завершения второго экземпляра используйте Application.Terminate.

Другой вариант: X:\DELPHI2\DEMOS\IPCDEMOS\ipcthrd.pas, функция IsMonitorRunning().

Как мне вывести какое-нибудь окошко с картинкой, пока программа грузится?

Смотрите пример в X:\DELPHI\DEMOS\DB\MASTAPP\mastapp.dpr.

Удобно использовать функцию ShowSplashWindow из rxLib.

А как поместить свою иконку на taskbar, там где часы и переключатель клавиатуры? (Этот вопрос получил первый приз).

В библиотеке rxLib есть компонент TrxTrayIcon. Заметьте, что для
корректного завершения работы операционной системе вам потребуется
обрабатывать сообщение WM_QUERYENDSESSION.

Как сделать плавно изменяющийся цвет заголовка окна, как в MSOffice'95?

В rxLib есть TGradientCaption.

Как мне перекодировать строки из Win-кодировки в Dos-кодировку и наоборот?

CharToOEM, OEMToChar, CharToOEMBuff, OEMToCharBuff. Заметьте
однако, что эти функции не умеют делать таких, например, вещей, как
koi8-r в DOS и т. п.

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

В rxLib есть TrxFolderMonitor.
(Win16) FileCDR, но она плохо документирована.

Как вывести диалог выбора каталога?

SelectDirectory, rxLib: TDirectoryEdit.

Моя программа довольно долго делает какую-то полезную работу, типа чтения дерева каталогов или обильных вычислений, и в этот момент почти не работают остальные программы. Как разрешить им это делать?

Application.ProcessMessages.

Если вы хотите отдавать timeslices в нитях, пользуйтесь Sleep(0); это отдаст остаток слайса системе.

(Win16) Если вы хотите разрешить отработку сообщений другим
программам, но не вашей, то лучше пользоваться Yield().

Как мне запустить какую-нибудь программу? А как подождать, пока эта программа не отработает? Как выяснить, работает ли программа или уже завершилась? Как принудительно закрыть выполняющуюся программу?

WinExec() или ShellExecute. У второй больше возможностей.

CreateProcess() в параметре process info возвращает handle
запущенного процесса. Вот и делаешь WaitForSingleObject(pi.hProcess,
INFINITE);

(Win16) Delay можно взять из rxLib.

handle := WinExec(...);
if handle >= 32 then
while GetModuleUsage(handle) > 0 do
Delay( nn );
else
raise ....

Чтобы выяснить, работает ли программа, используйте
GetProcessTimes(), параметр lpExitTime.

(Win32) Для принудительного завершения процесса -- TerminateProcess.

(Win16) (RR): Hадо послать программе сообщение WM_QUIT:

Handle := Winexec(App, 0);
PostMessage(Handle, WM_QUIT, 0, 0);

Как сделать так, чтобы при щелчке по кнопке или по TLabel запускался, например, браузер с сайтом программы или почтовая программа с определенным адресом получателя?

uses ShellApi;

{ ... }

ShellExecute("http://www.company.com", ... );
ShellExecute("mailto:author@somewhere.net", ...);

Как правильно закрыть и удалить форму? Почему моя MDI Child форма при закрывании просто минимизируется?

Обрабатывайте событие OnClose для формы и выставляйте в нем
параметр Action в caFree. Дело в том, что его значение по умолчанию
для MDI Child форм caMinimize. Кстати, если сделать Action := caNone,
то форму нельзя будет закрыть.

Мне надо добавить много строк в TListbox или в TCombobox или в TMemo или в TRichEdit, при этом сам объект постоянно мигает, перерисовываясь. Как избавиться от этого?

BeginUpdate/EndUpdate.

Как мне запрограммировать непрямоугольную форму, например, как у Norton CrashGuard, в форме щита?

SetWindowRgn() (Win32).

Как использовать свои курсоры в программе?

{$R CURSORS.RES}

const
crZoomIn = 1;
crZoomOut = 2;

Screen.Cursors[crZoomIn] := LoadCursor(hInstance, 'CURSOR_ZOOMIN');
Screen.Cursors[crZoomOut] := LoadCursor(hInstance, 'CURSOR_ZOOMOUT');

С вашей программой должен быть слинкован файл ресурсов, содержащий
соответствующие курсоры.

Как ограничить перемещение курсора мыши какой-либо областью экрана?

ClipCursor(). Учтите, что использование этой функции -- плохой тон.

Как из программы переключить раскладку клавиатуры?

ActivateKeyboardLayout(). Учтите, что использование этой функции - плохой тон.

Как сделать так, чтобы по Alt-F4 форма не просто закрывалась, а выдавала запрос на сохранение?

Обрабатывать OnCloseQuery.

Как получить короткий путь файла если имеется длинный? ("c:\Program Files" ==> "c:\progra~1").

GetShortPathName()

Как написать сервис для Windows NT?

В поставке Delphi 4 есть пример. [28]http://www.sawatzki.de.

Как работать с registry?

TRegistry

Как выдвинуть дверцу CD-ROM'а?

mciSendString('Set cdaudio Door Open Wait', nil, 0, handle);

Также mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);

Как перехватывать клавиши, нажатые в окне другой программы? И вообще, любые события, поступающие другим программам?

SetWindowsHookEx().

Как вызывать из 32-битной программы 16-битные DLL?

Hадо применять так называемые "thunks". Смотри статью на http://www.itecuk.com/delmag/thunk95.htm.

Почему у меня record a : word; b : longint end; имеет размер восемь байт вместо шести?

RTFM packed, $A.

Где взять подробную документацию по работе с RTF, TRichEdit?

В MSDN.
В rxLib 2.60 появился компонент TrxRichEdit, полностью поддерживающий MS RichEdit 2.0 и его DB-aware версия. Рекомендуется.

Как можно перетаскивать форму не только за заголовок?

WM_NCHITTEST.

Как отследить "уход" курсора мыши с компонета?

Обрабатывать CM_MOUSEENTER/CM_MOUSELEAVE.

Как добавить пункты в системное меню окна?

Получить хэндл системного меню окна можно с помощью функции GetSystemMenu().

Можно ли сделать так, чтобы в исполняемом файле программы находился какой-нибудь звук в формате .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_RCDA
TA));
try
pData := LockResource(hResource);

if pData = nil then
raise Exception.Create('Cannot read MyWave');

// Здесь pData указывает на MyWave
// Теперь можно, например, проиграть его (Win32):
PlaySound(pData, 0, SND_MEMORY);
finally
FreeResource(hResource);
end;
end;

Как узнать и поменять разрешение экрана?

Поменять:

procedure ChangeDisplayResolution(x, y : word);
var
dm : TDEVMODE;
begin
ZeroMemory(@dm, sizeof(TDEVMODE));
dm.dmSize := sizeof(TDEVMODE);
dm.dmPelsWidth := x;
dm.dmPelsHeight := y;
dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
ChangeDisplaySettings(dm, 0);
end;

Как во время выполнения программы создать так называемый "array of const", например, параметры для функции Format()?

В библиотеке Technical Information на сайте Inprise есть документ
за нумером TI582D.txt, посвященный этой проблеме. Вкратце, в качестве
array of const можно использовать массив типа TVarRec.

Как обратиться к определенному адресу физической памяти? А как прочитать значение из порта? Где мой любимый массив Port[]?

Прочитайте какую-нибудь книжку про программирование под Win32. Вкратце -- забудьте про все эти глупости.

Я создал объект TStrings, но при попытке обращения к нему выдается ошибка. В чем проблема?

TStrings -- это абстрактный класс. Вам нужен TStringList.

Как работать с графическими форматами, хотя бы самыми известными?

Hа 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.

Как работать с файлами архивов, хотя бы самыми распространенными?

Воспользуйтесь библиотекой ExceedZip 3.0 (http://www.exceedsoft.com).

Как использовать DirectX в своей программе?

Модули для работы с DirectX находятся на Delphi Super Page, в пакете DelphiX (http://delphigfx.mastak.ru/).

Учтите существование эхи RU.DIRECTX.

Как использовать OpenGL в своей программе?

Модули для работы с OpenGL можно взять на
http://delphigfx.mastak.ru/
http://www.signsoft.com/opengl. Информацию -- на
http://www.opengl.org. Также есть книга Ю. Тихомирова "OpenGL:
программирование трехмерной графики". Еще загляните на
http://reality.sgi.com/mjk за примерами и
http://www.scitechsoft.com за библиотекой MesaGL.

Учтите существование эхи RU.OPENGL.

Как встроить просмотр HTML в свою программу?

В Delphi 4 имеется пример Web-браузера на Delphi.

MS Internet Explorer умеет быть элементом управления ActiveX, что позволяет поместить его на форму.

Netscape Navigator умеет делать то же самое, подробности на
http://www.chami.com/tips/delphi/103096D.html

Еще на http://www.pbear.com лежат THTMLViewer и TFrameViewer.

Где достать процедуру типа "сумма прописью"?

http://www.tsinet.ru/~vg.
Здесь лежит библиотека vgLib, содержащая еще массу полезных вещей.

Какие инструменты можно применить для коллективной разработки проекта?

CVS. http://www.cyclic.com. С его помощью разрабатывается
весьма львиная доля программного обеспечения в Internet. Интеграция с
Delphi -- нулевая ;) Крайне рекомендуется. Я лично пользуюсь ею
ощутимое время и не представляю себе более разработки без этого
средства. "Введение в CVS" можно прочитать на
http://alexm.here.ru.

Microsoft Visual Source Safe. Проигрывает в функциональности, может
выигрывать в "привычности".

Как можно обнаружить утечки памяти и ресурсов в программе?

MSDebug Макса Русова. Hаходится на http://www.dic.ru/users/rusov/. Поддерживает Delphi 3 и выше,
ловит только утечки памяти, но делает это хорошо.

Hа [45]http://www.numega.com можно купить BoundsChecker for Delphi. Он
проверяет также и утечки ресурсов.

Рекламировался также "MemProof", информацию о котором можно получить
на [46]http://www.listsoft.ru/programs/pr1520.htm.

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

В rxLib есть компонент TrxMathParser, достаточно мощный для большого количества применений.

Как уменьшить размер исполняемого файла программы?

Писать на WinAPI без использования VCL. Это пригодно для и без того
крохотных программ.

Воспользоваться пакетами (packages) из Delphi 3. Эффект появится,
когда исполняемых файлов больше одного.

Воспользоваться компрессорами исполняемых файлов, например:
UPX, Aspack, PECompact, PECrypt - ищите их новые версии в интернете.

Где достать всяких иконок, картинок для кнопок, etc. для своей программы?

http://www.iconbazaar.com

Как сделать ping из своей программы? И вообще, посоветуйте какую-нибудь альтернативу стандартным дельфовым Internet-компонентам.

Зайди на [52]http://www.rtfm.be/fpiette. Там кyча компонентов для
инета с исходниками. Там и ping есть.

Как правильно создавать компоненты в run-time? Что задавать в качестве параметра Owner при создании компоненты? Как обрабатывать события от созданных компонент, типа нажатий на кнопки?

Hачнем с создания.

Сущность свойства 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;


лови в контакте скачать бесплатно и без регистрации и без смс. - Развитие рынка произошедших изменениях, анализ рынок самолетов иностранного производства.

Материалы находятся на сайте http://cracklab.narod.ru/faq/


Создатель этого HTML файла не претендует на авторство вопросов/ответов представленных в нём, не отвечает за их содержание и достоверность, а также за последствия использования программных кодов , полученных из этого HTML файла. Также не принимаются претензии относительно не размещённой информации об авторе каждого конкретного FAQ'а. Любые другие вопросы присылайте на bad_guy@cracklab.ru (обращаться к Bad_guy'ю).
Hosted by uCoz