Не знаю, жив ли ещё раздел. На всякий случай опубликую здесь камушек, об который я здорово отбил ногу
Delphi XE3, в Datasnap.DBClient.pas встречаем вот такой код
procedure TCustomClientDataSet.SetFieldData(Field: TField; Buffer: TValueBuffer);
var
RecBuf: PByte;
begin
if not (State in dsWriteModes) then DatabaseError(SNotEditing, Self);
if (State = dsSetKey) and ((Field.FieldNo < 0) or (FIndexFieldCount > 0) and
not Field.IsIndexField) then DatabaseErrorFmt(SNotIndexField, [Field.DisplayName]);
GetActiveRecBuf(RecBuf);
if Field.FieldKind in [fkData, fkInternalCalc] then
begin
if Field.ReadOnly and not (State in [dsSetKey, dsFilter]) then
DatabaseErrorFmt(SFieldReadOnly, [Field.DisplayName]);
Field.Validate(Buffer);
if State in [dsEdit, dsInsert] then
Check(FDSCursor.VerifyField(Field.FieldNo, Buffer));
Check(FDSCursor.PutField(RecBuf, Field.FieldNo, Buffer));
if FAggFieldsUpdated <> nil then
FAggFieldsUpdated[Field.FieldNo-1] := True;
end
else
begin
if State = dsInternalCalc then Exit;
Inc(RecBuf, FRecordSize + Field.Offset);
Boolean(RecBuf[0]) := LongBool(Buffer[0]);
if Boolean(RecBuf[0]) then Move(Buffer[0], RecBuf[1], Field.DataSize);
end;
if not (State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) then
DataEvent(deFieldChange, IntPtr(Field));
end;
В указанной строке разработчик намудрил. Он таким хитрым способом хотел проверить Buffer на nil: LongBool интерпретирует 4 байта как false, если они все нулевые, а в противном случае -- true. Но вот только программист в этом месте ошибся и вместо адреса Buffer берёт 4 байта из самого Buffer. У меня там передавалось небольшое число Float, так что первые байты всегда были нулевыми, так что значение никогда не присваивалось, и вычисляемое поле (а именно к ним относится данный участок кода( всегда оставались NULL.
В Delphi 7 этой ошибки ещё нет, а в Delphi XE10 -- уже нет. Других версий у меня нет.
Простейшее исправление очевидно: вместо
Boolean(RecBuf[0]) := LongBool(Buffer[0]);
написать
Boolean(RecBuf[0]) := LongBool(Buffer);
В Delphi XE10 поправили так
Boolean(RecBuf[0]) := Buffer <> nil;
Я у себя поправил так
Boolean(RecBuf[0]) := Assigned(Buffer);
Есть ещё один камушек. БИБЛИОТЕКА.VCL.Невидимые компоненты в плагинной форме.
Создание форм-плагинов через пакеты - это удобно и практично... но только когда все плагины поступают из единого источника! Если же мы создаём действительно открытую архитектуру, это "удар ниже пояса": для создания плагинов потребуется именно Delphi. На то они и плагины, чтобы их можно было писать на чём угодно: Delphi, VC++, MinGW...
И вот, создаём форму-плагин без пакета (через дескрипторы), показываем... а на ней видны только TGraphicControl'ы наподобие TLabel. Компоненты, производные от TWinControl (TPanel, TCheckBox и т.д.) не видны.
А решается всё одним щелчком. Достаточно установить в плагинной форме Visible=true.
Спасибо.
Ответ на
»сообщение 91« (Антон Григорьев)
Большое спасибо :)
На этот раз письмо, по крайней мере, дошло. Остается наеяться, что его прочтут.
P.S. С нетерпением ждем, когда в ссылках на сайте заменят устаревший адрес root на новый...
