Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Сентябрь 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 24.09.01 09:04

Обновился дайджест по FAQ. Скачать можно здесь
Новые компоненты   |x|
  • TextEd DLL v.1.2 (373kb) (24.09.01 09:00)
    TextEd многофайловый текстовый редактор с возможностями форматирования текста, отсылки e-mail, поиска и замены текста. Выполнен в виде DLL
    Источник: www.torry.net   Автор: Emil Beli http://www.greenhousemm.com
    -= · VCL · =-
  • Полный список компонент смотрите на сайте...
Лучшее из нашего FAQ   |x|
Я хочу выполнить SQL-выражение и получить результат в свою переменную, что-то типаSELECT MAV(FieldA) FROM TableB INTO :VariableC;
Вам не нужно использовать оператор INTO для программного доступа к результату - его можно получить используя свойства Fields или FieldByName соответствующего компонента TQuery.
TQuery1.Add(' SELECT MAX(FiledA) FROM TableB ');
TQuery.Open;
...
VariableC := TQuery1.Fields[0];
Или, если результат нужно визуально отобразить, достаточно подключить к используемому TQuery компоненты TDataSource и TDBText.

Комментарий от "Alex Onezashvili" (ao@ti.net.ge)

ПРИСЫЛАЮ ФУНКЦИЮ ТОЛЬКО ОНА В BDE

Входные параметры понятны интуитивно если Database отсутсвует функция открывает локальную директорию и читает dbf-файлы из нее

function GetQueryValue(DtBase:TDataBase;SQL: string;
DataBasename:string='';IbUser:string='';IbPass:string=''):Variant;
var
  Props: CURProps;
  HCursor: hDBICur;
  BlobIndex:Word;
  iRecCount:Integer;
  hTmpDb: hDBIDB;
  pRecBuf:pBYTE;
  Dest:String;
  pFlds: pFLDDesc;
  begin
  if (DataBasename='') and (DtBase<>nil) then
  hTmpDb:=DtBase.Handle else
  hTmpDb:=fDbiOpenDatabase(DataBasename,IbUser,IbPass);
Check(DbiQExecDirect(hTmpDb, qrylangSQL, Pchar(SQL), @HCursor));
Check(DbiGetExactRecordCount(hCursor,iRecCount));
if iRecCount<1 then Exit;
  Check(DbiSetToBegin(HCursor));
  Check(DbiGetCursorProps(HCursor, Props));
  pRecBuf := AllocMem(Props.iRecBufSize * sizeof(BYTE));
  pFlds := AllocMem(Props.iFields * sizeof(FLDDesc));
  Check(DbiGetNextRecord(HCursor, dbiNOLOCK, pRecBuf, nil));
  Check(DbiGetFieldDescs(hCursor, pFlds));

  if pFlds.iFldType=fldBLOB then
  begin
  BlobIndex:=0;
  fmDbiGetBlob(hCursor,pRecBuf,BlobIndex,Dest);
  Result:=Dest;
  end
  else
  Result:=fDbiGetField(HCursor,1);
  DbiCloseCursor(HCursor);
  e!
nd;

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Мир Borland Kylix. Перехватчики событий, сигналы и слоты.
В предыдущей статье была рассмотрена обработка событий Qt в обработчике события OnEvent Kylix класса TApplication. В этой статье будет показан другой метод обработки событий Qt - использование перехватчиков событий (event hooks). Перехватчики событий подобны обработчику события OnEvent, с той разницей, что перехватчики событий позволяют подойти к обработке событий более дифференцировано...
Другие сайты о DELPHI   |x|
Собственная страничка для Программистов
Страничка посвешена полность для Delphi всех версий
Опрос населения :)
Готовится к выпуску журнал "Мастера DELPHI". Ваше мнение, нужен ли он вообще?
»»» Да
»»» Нет
Для души

Хокку дня
ты остаешься,
я ухожу - две разные
осени для нас

Афоризмы
Ребенок - самое действенное орудие женского террора (Веслав Сенкевич)

Фраза дня
Носорог плохо видит, но при его весе, это не беда.

И на закуску коротенький анекдот
Тащут муравьи в стельку пьяного мужика... Мужик лежит и еле-еле слышно поет:
- ЧУТЬ ПОМЕДЛЕНЕЕ КОНИ, ЧУТЬ ПОМЕДЛЕНЕЕ...

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=22421

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу 		Рейтингуется SpyLog
В избранное