Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

begin

DBGrid1.DataSource := MyMainForm.DataSource1;

end;

Nomadicотвечает:

Можно так –

var

S: TBlobStream;

B: pointer;

c: integer;

…

Table1.Edit;

S := TBlobStream.Create(Table1BlobField asTBlobField, bmWrite); {кажется, так}

C := S.Write(B, C);

Table1.Post;

S.Destroy;

или так –

var

S: TMemoryStream;

B: pointer;

C: integer;

…

S := TMemoryStream.Create;

…

Table1.Edit;

S.Clear;

S.SetSize(C);

C := S.Write(B,C);

(Table1BlobField asTBlobField).LoadFromStream(S);

S.Clear;

Table1.Post;

…

S.Destroy;

…когда вы получаете эту, или аналогичную ошибку, вы можете прервать процесс следующим образом (в предположении, что вы пытаетесь запостить запись):

try

Table1.Post;

except

MessageDlg ('Ошибка постинга записи' , прочее…

Table1.Cancel;

end;

В противном случае вы не получите ошибку в случае, если текущую запись «рассматривает» другой пользователь (если вы пользуетесь базой данных Paradox, поставляемой с Delphi), если, конечно, вы правильно это установили. Paradox сам создает в сетевом каталоге файл с именем pdxusers.lck, видимый всеми пользователями, так что каждый BDE на каждой локальной машине может запирать запись, таким образом запрещая другим пользователям постить запись до снятия блокировки. Я не знаю, каким образом вы получаете эту ошибку, поэтому существует вероятность того, что я ошибаюсь в своих предположениях.

Вы можете использовать вызов IDAPI dbiGetDatabaseDesc. Вот быстрая справка (не забудьте добавить DB в список используемых модулей):

var

pDatabase: DBDrsc:

begin

{ pAlias – PChar, содержащий имя псевдонима}

dbiGetDatabaseDesc(pAlias, @pDatabase);

Для получения дополнительной информации обратитесь к описанию свойства pDatabase.szDbType.

Nomadicотвечает:

Копируешь FieldDefs.

Проходишь циклом по FieldDefs.Items[i].CreateField(Owner);

Вся хитрость заключается в использовании StrPcopy (помещения вашей строки в PChar) и записи буфера в поток. Вы не сможете передать это в PChar непосредственно, поскольку ему нужен буфер, поэтому для получения необходимого размера буфера используйте [0] и StrLen().

Вот пример использования TMemoryStream и записи его в Blob-поле:

var

cString: String;

oMemory: TMemoryStream;

Buffer: PChar;

begin

cString := 'Ну, допустим, хочу эту строку!';

{ СОздаем новый поток памяти }

oMemory := TMemoryStream.Create;

{!! Копируем строку в PChar }

StrPCopy(Buffer, cString);

{ Пишем =буфер= и его размер в поток }

oMemory.Write(Buffer[0], StrLen(Buffer));

{Записываем это в поле}

.LoadFromStream(oMemory);

{ Необходимо освободить ресурсы}

oMemory.Free;

end;

Nomadicотвечает:

Наиболее приемлемым является использование TQueryи Provider.SetParams.

Но также Вы можете сделать это иначе:

Сперва на клиенте Вам нужно считать с сервера только метаданные для набора данных. Это можно сделать, установив PacketRecords в 0, и затем вызвав Open. Затем Вы должны вызвать метод сервера (Вы должны определить этот метод на сервере), который спозиционирует курсор на первую нужную запись. И, наконец, установите PacketRecords в нужное значение, большее нуля, и вызовите GetNextPacket.

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

Nomadicотвечает:

Используйте свойство NewValue класса TField при чтении второй записи (той, которая содержит изменения). Если возвращаемое значение (variant) пусто или не назначено, тогда поле не было модифицировано. Здесь немного иллюстрирующего кода:

varNewVal: Variant;

begin

NewVal := DataSet.FieldByName('MyStrField').NewValue;

ifVarIsEmpty(NewVal) thenShowMessage('Field was not edited')