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

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

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

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

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

←   Февраль 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
10.02.2002
19:26:05
20:13:27
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Автор
Сергей

Статистика

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

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


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

DELPHI.mastak.ru

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

Новые компоненты   |x|
  • WinAmp Control v.1.1 (392kb) (08.02.02 13:59)
    Компонента для управления проигрывателем Winamp. Включает модули, содержащие функции для контроля запуска приложения WinAmp. Позволяет посылать команды: возпроизведение, пауза, перейти на следующий трек, играть трек с заданным номером. Имеет событие, возникающее при смене трека. Также содержит функции для получения тегов из MP3-файла.
    Включено демо-приложение.

    Новая версия компоненты
    С исходными текстами
    Компонента из раздела: Effects and Multimedia: Other
    Источник: www.torry.net   Автор: Harry de Bug
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • ResourceTimer v.1.2 (6kb) (08.02.02 13:54)
    Компонент имеет функциональноять Timer'а, но предоставляет информацию о памяти, пользователе, ресурсах системы и GDI.

    С исходными текстами
    Компонента из раздела: Date and Time: Timers
    Источник: www.torry.net   Автор: Manfred Hausen http://www.hama-soft.de
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • FormatDateTime v.1.0 (195kb) (08.02.02 13:52)
    Дельфийский SysUtils имеет замечательную функцию FormatDateTime для конвертирования DateTime в строку.
    Здесь предлагается обратная функция:
    Function FormatStrToDateTime(Format, strDate : string) : TDateTime;

    С исходными текстами
    Компонента из раздела: Date and Time: Date and Time
    Источник: www.torry.net   Автор: Artem G. Khomenko http://www.winpeak.ru
    -= · Apps · Samples · =- [Перевел: Сергей Касаткин]
  • DimPas v.12.28.2001 (39kb) (08.02.02 13:44)
    Набор полезных алгоритмов и классов: функции ввода с клавиатуры, строковые функции, математические функции, функции работы с датой и временем, системные функции, работа с динамическими моссивами, и т.д. Интерфейсная часть библиотеки доступна на на домашней странице.

    Новая версия компоненты
    С исходными текстами
    Компонента из раздела: Component Packs: Multi-purpose Lite
    Источник: www.torry.net   Автор: Dimka Maslov http://dims.gpsm.ru
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • LedSegment (166Kb) (08.02.02 13:39)
    Этот компонент показывает цифры. Например, часы для mp3-плейера. Исходники включены в состав, но файла помощи нет - извините. Если захотите - можете редактировать как угодно, но не забудьте меня о том проинформировать.
    Источник: www.delphipages.com   Автор: Eduard Matthijs
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • Pinguin Player v.5.0 (404Kb) (08.02.02 13:36)
    Готовый медиаплейер, поддерживающий все зарегистрированные типы аудио-файлов. Разработан для проигрывания и управления (как, например, сортировка) плей-листов формата m3u. Пользователь может выбирать предпочтительное аудио-устройство, указывать, какие элементы управления будут отображаться. Скомпилированное без подключения библиотек приложение имеет размер 211кБ, со включенными библиотеками - около 600кБ. Доступен для загрузки файл помощи (HLP).
    С исходными текстами
    Screenshot: http://www.delphipages.com/uploads/screenshots/Pinguin5.jpg
    Источник: www.delphipages.com   Автор: Ronald Tilcen
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • HTML Parser 1.4 (195Kb) (08.02.02 13:28)
    Невизуальный компонент, помогающий разобрать HTML-файл на теги и текст. Можно легко перехватить событие, когда будет найден текст или тэг. Дает также списоки всех HTML-документов, на которые есть ссылки, картинок, e-mail'ов и т.п., которые будут найдены. В последней версии доступны записи из мета-тэгов и ключевые слова, указанные в заголовке документа.
    С исходными текстами
    Источник: www.delphipages.com   Автор: James Azarja http://home.jazarsoft.com/vclpack/
    -= · Apps · Samples · =- [Перевел: Сергей Касаткин]
  • AVLockLite v1.3 (134Kb) (08.02.02 13:22)
    Превращает в оценочную версию одной строкой кода. Настраивается на любой язык интерфейса, генерирует временный регистрационный ключ (можно давать свое приложение "напрокат"). Включен генератор ключа и демо. Бесплатно для некоммерческого использования. Коммерческая версия - 20$, исходный код - 49$. Скриншот http://www.delphipages.com/uploads/screenshots/free5.gif
    Источник: www.delphipages.com   Автор: Alcides Valega http://wind.prohosting.com/alvalega
    -= · VCL · =- [Перевел: Mark S. Zheleznyak]
  • Shortcut Example v. 1.0.0 (177Kb) (08.02.02 13:18)
    Библиотечка, позполяющая создавать ярлыки и получать онформацию об имеющихся ярлыках. В поставку включен демонстрационный проект и готовый exe-файл. Не работает в Delphi2.
    С исходными текстами
    Источник: www.delphipages.com   Автор: Troels Jakobsen http://www3.ewebcity.com/troels/
    -= · Apps · Samples · =- [Перевел: Сергей Касаткин]
  • Shareware Lock (308Kb) (08.02.02 13:18)
    Превращает любое Delphi-приложение в ограниченную по времени оценочную версию. Введя регистрационный код, пользователь сам снимает ограничение.

    Источник: www.delphipages.com   Автор: Gerald Enright http://www.sharewarelock.com
    -= · VCL · =- [Перевел: Mark S. Zheleznyak]
  • TgnEdit ver. 1 (329Kb) (08.02.02 13:16)
    Демо бесфликерного и бесплатного editbox. Собственные цвета, шрифты, картинки, полупрозрачность при выделении. Компонент с исходными кодами - на домашней странице автора. Просит написать ему письмо и приглашает к совместной работе по совершенствованию.

    Источник: www.delphipages.com   Автор: Nicolai Eduard Gancerenco http://www.ginsonic.ro
    -= · VCL · =- [Перевел: Mark S. Zheleznyak]
  • TSysImageList v1.2 (10Kb) (08.02.02 13:11)
    TSysImageList находит (в режиме a read-only) иконки, ассоциированные в Windows с файлами, каталогами и URL.
    С исходными текстами
    Источник: www.delphipages.com   Автор: Kambiz R. Khojasteh http://www.delphiarea.com
    -= · VCL · Samples · =- [Перевел: Mark S. Zheleznyak]
  • Innerfuse Pascal Script (135Kb) (08.02.02 13:10)
    Innerfuse Pascal Script (сокращенно IFPS) - скриптовый движок, написанный на Delphi.
    IFPS позволяет использовать большинство возможностей языка Object Pascal в приложениях в runtime. Это набор юнитов, которые компилируются в программу и не требуют внешних файлов. Предоставляет следующие возможности:
    - переменные, константы
    - стандартные операторы: Begin/End, If/Then/Else, For/To/Downto/Do, Case x Of, Repeat/Until, While, With, uses, Try/Except/Finally, Exit, Continue, Break
    - функции (определенные внутри или снаружи скрипта)
    - стандартные типы: Byte, Shortint, Char, Word, SmallInt, Cardinal, Longint, Integer, String, Real, Double, Single, Extended,Comp, Boolean, Array, Record, Variant, Enumerations
    - классы
    С исходными текстами
    Источник: www.delphipages.com   Автор: Carlo Kok http://www.carlo-kok.com/
    -= · Apps · Samples · =- [Перевел: Сергей Касаткин]
  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Кое-что из нашей кладовки   |x|
  • Wallpaper (v0.3) Mover mover@mail.ru   (07.02.02 13:51)
    Программка для автоматической замены картинок на рабочем столе. Поддерживает форматы JPG, GIF и BMP. База имен картинок сохраняется в текстовый файл. Удобная установка и эксплуатация. Интерфейс пока только на украинском языке, но с иходниками...
    Copyright by (M)ver, 2002
    »»» Скачать: исходные тексты (9кб) демонстрационный EXE файл (392кб) посмотреть скриншот
Лучшее из нашего FAQ   |x|
Создание уникального поля 

Procedure TableNewRecord(FieldName: String; Var DataSet: TDataSet);
Var
    NumRec: Integer;
    bm: TBookmark;
Begin
    with DataSet do
    begin
        NumRec := Succ(RecordCount);
        if State = dsInsert then Post;
        bm := GetBookMark;
        DisableControls;
        while Locate(FieldName, NumRec, []) and (NumRec > 0) do
            Dec(NumRec);
        if NumRec = 0 then
        begin
            NumRec := RecordCount;
      
     while Locate(FieldName, NumRec, []) do
                Inc(NumRec);
        end;
        GotoBookmark(bm);
        FreeBookmark(bm);
        Edit;
        FieldByName(FieldName).AsInteger := NumRec;
        Post;
        EnableControls;
    end;
End;


Комментарий от Max


 Для генерации првичного ключа в локальных баз я делал следующее:

 tbSystem - TTable с установленным exclusive = true
 следующе структуры
 Table Char(15),
 Field Char(32),
 Value Char(32)
 туда записывааем по одной записи на каждуй первичный ключ
 'TBL1','ID_TBL1','0'
 'TBL2','ID_TBL2','1000'
 В результате получается что то типа генераторов в SQL


function TDMSystem.Get_ID(TableName, FieldName!
 :string; LengthField : integer) : string;
Var
 OpenFlag : boolean;
 i,tmpi   : integer;
 A        : Variant;
 tmp      : string;
begin
   Result := '-1';
   OpenFlag:=false;
   i:=0;
   while ( (ido
   begin
     try
       tbSystem.Open;
       OpenFlag := true;
     except
       OpenFlag := false;
       delay(500);
     end;
     inc(i);
     if (i>=MAX_LOCK) then
      if Application.MessageBox(
      'Не могу открыть системную таблицу'+chr(10)+'Повторить ?',
      'Ошибка
открытия', MB_YESNO) = idYes then i:=0;
   end;
   if (OpenFlag) then
   begin
      A := VarArrayCreate([0, 1], varVariant);
      a[0]:=TableName;
      a[1]:=FieldName;
      if tbSystem.Locate('TABLE;FIELD',A,[]) then
      begin
        tmp := tbSystem.FieldValues['VALUE'];
        tmpi := StrToInt(tmp);
        inc(tmpi);
        tmp := AddChar('0',delspace(IntToStr(tmpi)),LengthField);
        tbSystem.Edit;
        tbSystem.FieldValues['VALUE']:=tmp;
        tbSystem.Post;
        Result := tmp;
  
   end;
   end;
   tbSystem.Close;
end;


Комментарий от "Serg" (mail@pi8plus.ru)
Вот мой вариант получения очередного уникального ( возрастающего) I! D
По полю FieldName строится уникальный индекс

Заодно скажу, что использование AutoInc не есть мудрое решение.
А если надо пересобрать таблицы ?

{ Get max key value}
function quGetMaxID_(tbName,FieldName: String): LongInt;
begin
  with TQuery.Create(nil) do
  try
    DatabaseName := DBname;
    SQL.Add('SELECT MAX('+FieldName+') FROM ' + QuotedStr(tbName));
    Open;
    result := Fields[0].AsInteger + 1;
  finally
    Close;
    Free;
  end;
end;
 
{ insert new record and return new ID value}
function quInsertBlankSQL_(tbName,fName: string; var id: Longint): boolean;
var
 i: integer;
begin
 Result := False;
 for i:=1 to RepeateAccess do begin

  id := quGetMaxID_(tbName,fName);
   Result := quInsertKeySQL_(tbName,fName,id);
   if Result then Break;
 end;
end;
 
{ Insert record for  ID}
function quInsertKeySQL_(tbName, KeyField: string; KeyValue: Longint): boolean;
var
 i: integer;
 str: string;
begin
 Result := False;
 str := 'INSERT INTO '+tbName+' ('+ KeyField + ')'+ ' VALUES ('+IntToStr(KeyValue)+')';
 for i:=1 to gRptAccess do begin
   Result := quExecuteSQL_(str);
   if Result then Break;
 end;
end;
 
function quExecuteSQL_(SQLstring: string): boolean;
begin
  with quCreateTmp_(SQLstring) do
  begin
    try
      ExecSQL;
      Result :=
True;
    except
     on E: Exception do begin
        Result := False;
       end;
    end;
    Free;
 !
 end;
end;
function quCreateTmp_(SQLstring: string): TQuery;
begin
  Result:= TQuery.Create(nil);
  with Result do
  begin
    DatabaseName := DBname;
   SQL.Text := SQLString;
  end;
end;

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

Обсуждается в конференциях   |x|
  • Как достать заголовки всех открытых окон Intenet Explorer?
    Уважаемые Мастера! Как достать заголовки всех открытых окон Intenet Explorer? Спасибо!
  • Состав папки
    Как можно узнать находится ли в данной папке другая папка? Подскажите хотя бы алгоритм.
  • Windows+PopupMenu
    Уважаемые Мастера! Тут задача! Есть на форме FileListBox. Как прправом клике на его файл вызвать Windows-PopupMenu, т.е....
  • Создание файла ресурсов.
    Как можно создать файл ресурсов в котором будет находится нужныймне фаил а не BitMap, Cursor или Icon. Пожалуйста ...
  • QuickRep
    Помогите !!! На QuickRep Ставлю 2 TQRBand. Свойство BandType одного ставлю в Title другого - PageHeader. В литературе и ...
  • Защита программы
    Кто подскажет, как более-менее защитить программу от копирования и нелегального распространения? СПАСИБО.
  • Прочитать данные из Cache?
    Уважаемые Мастера! Вот вы пользуетеся Избранным? Если нет - то зря! Очень классная штука! А вот если пользуетесь - то ...
У нас большой выбор статей   |x|
Получение и установка видеорежимов в Windows
При разработке приложений, которые затем будут использоваться на большом числе различных ПК очень полезно иметь возможность не только получения информации о текущем видеорежиме, но и возможность получить все доступные видеорежимы для данного ПК. Еще одна область, где используется переключение видеорежимов при написании игр без использования DirectX.
Новинки книжного рынка   |x|
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
Другие сайты о DELPHI   |x|
DeCompiler's Programs
Несколько программ домашнего производства =).
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Согласны ли вы его покупать ежемесячно?
»»» Да
»»» Нет
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!

Для души

Хокку дня
Льет весенний дождь!
По пути беседуют
Зонтик и мино.

Афоризмы
Высшая добродетель мужчины - это умение хранить тайну... (Габриель Гарсиа Маркес)

Фраза дня
Лучше плохо, чем никогда.

И на закуску коротенький анекдот
- Чем юзер отличается от программиста?
- Если попросить их перезагрузить комп пользуясь только мышкой, юзер жмет на "завершение работы" в Виндовсе.
- А что сделает программист?
- Он поднимет мышку со стола и нажмет ею на Reset.

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

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

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