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

Озеров Валентин

end;

Если Вы взглянете на исходники формы RecError (в репозитории), то Вы увидите, как она использует эту информацию для вывода строки ' ' при показе ошибок синхронизации данных. На сервере Вы добавляете ограничения уровня записи, используя свойство Constraints Вашего TQuery/TTable или ограничения уровня поля, используя постоянные обьекты TField (с помощью FieldsEditor либо на CustomConstraint, либо ImportedConstraint). Если Вы используете ограничения уровня поля, они вступают в силу, когда данныеотправляются в поле (например, когда Вы уходите из органа управления,

связанного с этим полем (типа TDBEdit)). 

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

Nomadic отвечает:

Вот так: 

RemoteServer.AppServer.MyMethod

AppServer – свойство только для чтения, возвращающее интерфейс удаленного сервера, возвращаемый провайдером сервера приложений. Клиентские приложения могут общаться напрямую с сервером приложений через этот интерфейс. 

Я включил dbclient.dll в секцию `additional files` опций распространения по web, но этот файл никогда не загружается на клиента. Как это исправить?

Nomadic отвечает:

Ваш INF-файл должен включать в себя строки наподобие:

[Add.Code]

dbclient.dll=dbclient.dll

[dbclient.dll]

file=http://yoursite.com/dbclient.cab

clsid={9E8D2F81-591C-11D0-BF52-0020AF32BD64}

RegisterServer=yes

FileVersion=4,0,0,36

Замените «yoursite» Вашим HTTP-адресом, где находится cab-файл. FileVersion – это версия файла в Вашем cab-файле (проверьте информацию о версии DBCLIENT, чтобы быть уверенным в соответствии). Убедитесь, что FileVersion относится к версии Вашего DBCLIENT.DLL. Вы можете положить dbclient.dll в cab-файл, используя утилиту CABARC, которую Вы найдете в папке delphi\bin. Примерная команда вызова CABARC может выглядеть примерно так:

CABARC N DBCLIENT.CAB DBCLIENT.DLL

 

Как можно использовать TClientDataSet в локальном приложении с таблицами Paradox, без использования компонент TProvider и TRemoteServer?

Nomadic отвечает:

Вы не сможете отделаться от Провайдера (хотя бросать его на форму/модуль данных не придется), но Вы сможете использовать TClientDataSet в одно-точечном (single-tier) приложении. Для того, чтобы открыть client dataset, Вы должны назначить Провайдера Данных вручную.

{ CDS = TClientDataSet }

{ Table1 = TTable }

CDS.Provider := Table1.Provider;

CDS.Open;

Также Вы должны включить модуль BDEProv в предложение uses. 

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

Nomadic отвечает:

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

Создание 

Функции

редактора полей во время выполнения программы

Возможен ли вызов функций редактора полей (Fields Editor) во время выполнения программы?

Да. Если вы определили поля во время разработки приложения, то во время выполнения можно менять их свойства (например, Size).

Например, следующий код изменяет каждый размер поля TField.Size так, чтобы соответствовать фактическому размеру поля открываемого набора данных:

procedure SetupFieldsAndOpenDataset(DataSet: TDataSet);

var FieldNum, DefNum: Integer;

begin

 with DataSet do

 begin

if Active then Close;

FieldDefs.Update;

{набор данных должен быть закрыт}

{ищем каждое предопределенное TField в DataSet.FieldDefs:}

for FieldNum := FieldCount - 1 downto 0 do with Fields[FieldNum] do

begin

DefNum := FieldDefs.IndexOf(FieldName);

if DefNum < 0 then raise Exception.CreateFmt('Поле "%s" не найдено в наборе данных "%s"',[FieldName, Dataset.Name]);

{устанавливаем свойство size:}

Size := FieldDefs[DefNum].Size;

end;

Open;

 end;

end;

– Lindsay Reichmann

Производная TIntegerField

Я думал о производной, новом варианте компонента TIntegerfield, но я не могу понять как мне его получить во время разработки, ведь он не устанавливается в палитру компонентов.

Это то, что вы хотите. Создайте следующий молуль:

MICRON.PAS:

unit micron;

interface

uses DB, DBTables, Classes;

type

 TMicronField = class(TIntegerField)

 public

function IsValidChar(Ch: Char): Boolean; override;

 end;

procedure Register;