Советы по Delphi. Версия 1.4.3 от 1.1.2001

Кто-нибудь может мне сказать, почему я получаю эту ошибку, да еще с рекомендацией завершить работу Delphi? При попытке запустить мое приложение в среде ID, я получаю сообщение «PASDBK16.DLL caused a GPF at 0002:21e6 Shutdown of delphi is recommended» (PASDBK16.DLL вызвало GPF по адресу 0002:21e6. Рекомендуется завершить работу Delphi). Если я завершаю работу Delphi, снова его запускаю и пытаюсь после этого выполнить приложение, то получаю ошибку «Application is already running terminate before compiling» (Работа приложения уже прервана перед компиляцией).

У меня возникла сегодня такая же проблема, и мой коллега нашел ее решение. Если каталог разработки вы делаете каталогом общего доступа, то при наличии разных проектов может случиться так, что настройки компилятора одного из проектов будут использованы при сборке другого, использующего тот же путь. Проблема в модулях общего доступа, которые компилируются по разным путям. Решение заключается в определении выходного (output) каталога для вашего приложения и полной пересборки проекта (не забудьте при этом создать соответствующий каталог). После этого проблема должна исчезнуть.

– Sjef van der Velde 

Ошибка переполнения диска

Delphi 1 

Попробуйте удалить из вашего проекта все, кроме dpr, pas и dfm-файлов, и перекомпилить его. Похоже, один из файлов вашего проекта был испорчен. У меня была аналогичная проблема, и я смог ее решить только таким способом. 

Delphi 2

Ошибка чтения потока

Каждый раз при запуске Delphi 2.01 я получаю ошибку «Stream Read Error» (ошибка чтения потока). Как мне отделаться от этого?

Удалите DSK– и DSM– файлы из вашего проектного каталога.

– Ralph Friedman 

Delphi 5

Ошибка в ProgressBar

В ProgressBar представлено свойство BorderWidth. На мой взгляд, ребята из Inprise допустили очередную ошибку. В этом свойстве отсутствует «защита от дурака». Если BorderWidth  < Int(Heigth*0.3) – все нормально, вы управляете высотой "бегущего" индикатора. Если (BorderWidth > Int(Heigth*0.3)) and (BorderWidth < Int(Heigth*0.5)) – индикатор исчезает. Тогда зачем он нужен? При BorderWidth = Int(Heigth*0.5) – получите сообщение – "Error. Division by zero". При больших значениях BorderWidth – вместо индикатора "дыра".

К сожалению, исправить эту ошибку можно только в исходнике.

C уважением, VS.

DLL

Разное

Синхронизация DLL с открытым набором данных

Delphi 2 

Тема: Синхронизация DLL с открытым набором данных

В данном совете показано как с помощью Object Pascal динамически, на лету, связать DLL с активной базой данных, таким образом дающей программисту возможность воспользоваться Modularize-характеристикой. (Независимо от текущего режима, будь то разработка приложения, или его выполнение)

Технология динамической линковки DLL к EXE полезна во многих случаях. Например, работа с пакетами для создания 'plug-in' модулей (A/R, A/P, General Ledger и др.) или Point of Sale package с Current Stock, FIFO/LIFO Ordering, Vendor Tracking, и пр. модули.

Данная статья дает работающий пример того, как это сделать с единственной dll, 'Editdll.dll', и предоставит разработчику материал, расказывающий о том, как организовать в вашем приложении подключаемые модули.

Предварительные условия:

Хорошее знание работы компонента TTable, умение использовать DLL, BDE API и знание BDE hCursor. *WIN API для динамической загрузки любых DLL.

Пример приложения

Приведенная ниже форма, EditForm, работает с таблицей COUNTRY, расположенной в каталоге DBDEMO. При нажатии пользователем кнопки 'Edit' или при двойном щелчке на записи (строке), возникает диалоговое окно, расположенное в 'EditDll.dll' и демонстрирующее специфическую информацию, относящуюся к данной записи. В этой "точке" DLL синхронизирует себя не только с набором данных (и сессией), но и с текущей записью. Это означает, что полозователь изменяет те же самые данные, что он видит в EditForm! Ну а теперь углубимся в код демонстрационного приложения. (Для удобства просто скопируйте отсюда эти файлы и вставьте в ваше приложение)

Проект главной формы

{ MAINDB.DPR }

program maindb;

uses Forms, mainform in 'mainform.pas' {dbmainform};

{$R *.RES}

begin

 Application.Initialize;

 Application.CreateForm(TDBMainForm, DBMainForm);

 Application.Run;

end.

{ MAINFORM.PAS }

unit mainform;

interface

uses SysUtils, Windows, Messages, Classes, Graphics, Controls, StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls, BDE;

type TDBMainForm = class(TForm)

 Table1Name: TStringField;