Это простейший DLL, экспортирующий единственную функцию. Вызывающий ее
оператор передает функции значение ключа и строку со значением. Функция
открывает демонстрационную базу данных BIOLIFE, находит по ключу запись и
добавляет строку после всех записей в поле Notes:
library Mydll;
uses
DBTables;
function Modify(Key: Double; const Info: string): Boolean; export;
var
Table: TTable;
Stream: TBlobStream;
begin
Table := TTable.Create(nil);
Table.DatabaseName := "D:\";
Table.TableName := "BIOLIFE";
Table.TableType := ttParadox;
Table.Open;
if Table.FindKey([Key]) thenbegin
Result := True;
Table.Edit;
Stream := TBlobStream.Create(TMemoField(Table.FieldByName("Notes")),
bmReadWrite);
Stream.Seek(0, 2);
Stream.Write(Info[1], Length(Info));
Stream.Free;
Table.Post;
endelse
Result := False;
Table.Free;
end;
exports
Modify;
beginend.
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Простой пример работы с базой данных из DLL", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!