Новые книги
Контент-маркетинг. Новые методы привлечения клиентов в эпоху Интернета
Майкл Стелзнер – признанный эксперт в области социальных медиа, создатель одного из самых популярных блогов о маркетинге в социальных сетях SocialMediaExaminer.com (более 150 000 подписчиков).

В книге Стелзнер рассказывает о разных видах контента, которые вы можете публиковать на своем сайте, в блоге, на странице в социальной сети и которые помогут вам привлечь внимание потенциальных клиентов.

Автор объясняет, как спланировать работу по подготовке контента, как задействовать в его создании известных экспертов и как использовать социальные медиа для его продвижения. Он также дает ценные советы по работе с текстами, видеосюжетами, по организации мероприятий и обращает внимание на тонкости, которые повысят привлекательность вашего контента для пользователей.

Эта книга – полезное руководство для тех, кто хочет освоить инструменты контент-маркетинга и с его помощью завоевать расположение интернет-аудитории.
Анатомия сарафанного маркетинга
Это одна из самых практичных книг по сарафанному и вирусному маркетингу. В ней изложены забавные и увлекательные истории, приведены убедительные результаты исследований. Баланс между теорией и ее практическим применением дает читателям все необходимое, для того чтобы разжигать, стимулировать и измерять эффективность маркетинговых кампаний с применением принципов сарафанного радио в онлайновой и офлайновой среде.

Уже в процессе работы с книгой вы сможете начать применять предложенные методы и зарабатывать!

Содержание активной записи в БД
Версия для печати


Как узнать содержание активной записи в БД?

Следующая функция возвращает в виде указателя на строку содержание активной записи в БД. 

function TBDEDirect.GetCurRecord(Lock: DBILockType): PChar;

var
  Res: DBIResult;
  RecSize: Word;
  RecBuf: PChar;
  Bookmark: TBookmark;

begin
  Result := StrNew('');
  if CheckDatabase then
    begin
      RecSize := GetPhysicalRecSize;
      RecBuf := StrAlloc(RecSize+1);
      FillChar(RecBuf^, RecSize+1, #0);
      Bookmark := FDataLink.DataSource.DataSet.GetBookmark;
      DbiSetToBookmark(FDataLink.DataSource.DataSet.Handle,
        Bookmark);
      FDataLink.DataSource.DataSet.FreeBookmark(Bookmark);
      Res := DbiGetRecord(FDataLink.DataSource.DataSet.Handle,
        Lock, RecBuf, nil);
      if Res = 0 then
        Result := RecBuf
      else
        Check(Res);
    end;
end;


Оглавление