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

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

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

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

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

←   Май 2002   →
 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
31
Автор
Сергей

Статистика

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

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


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

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

Кое-что из нашей кладовки   |x|
  • UGH! Gandalf Gendalf_the_gr@mail.ru   (04.05.02 13:20)
    UGH! (Ultra Good-looking sHell) - эта самая удобная и маленькая, оболочка для UPX. Поверте я много их пересмотрел прежде чем сделать свою. Исходники прилогаются. Для использования НУЖЕН UPX. (В той-же директории)
    »»» Скачать: исходные тексты (32кб) демонстрационный EXE файл (39кб)
Лучшее из нашего FAQ   |x|
Как можно получить звук с микрофона?

»»» Hieroglyph (27.11.00 11:49)
Сначала надо создать пустой аудио файл, допустим Windows Audio Recorder, причем какие у него будут параметры, такие будут и у результирующего файла, затем с помощью var Media:TMediaPlayer :) -- 

procedure TForm1.btRecordClick(Sender: TObject);
begin
  with Media do begin
    { Set FileName to the test.wav file to }
    { get the recording parameters. }
    FileName := 'd:\test.wav';
    { Open the device. }
    Open;
    { Start recording. }
    Wait := False;
    StartRecording;
  end;
end;

procedure TForm1.btStopClick(Sender: TObject);
begin
  with Media do begin
    { Stop recording. }
    Stop;
    { Change the filename to the new file we want to write. }
    FileName := 'd:\new.wav';

   { Save and close the file. }
    Save;
    Close;
  end;
end;

Ну вот и все, правда у меня качество такой записи было просто ужасным, удачи! :)

»»» Jammy - jammy@okclub.org (27.11.00 16:52)
Читай Multimedia API в MSDNe. Инициализируешь устройство ввода на нужный формат (то есть на нужное качество), запускаешь в отдельном потоке и читаешь из Stream'а.
Можно и через TMediaPlayer, однако тогда надо выставить желаемый формат в настройках multimedia.

-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-

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

Советы по программированию в Дельфи

7) Сортировка ListView в режиме vsReport при нажатии на заголовок колонки

function CustomDateSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
result:=0;
if strtodatetime(item1.SubItems[0])>strtodatetime(item2.SubItems[0]) then
 Result :=1 else
if strtodatetime(item1.SubItems[0])<strtodatetime(item2.SubItems[0]) then
 Result :=-1;
end;

function CustomNameSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
Result := CompareText(Item1.Caption,Item2.Caption);
end;

procedure TForm1.GetFilesClick(Sender: TObject);
var sr:tsearchrec;
Item: TListItem;
begin
if FindFirst('e:\*.*',faAnyFile, sr) = 0 then repeat
     if (sr.Attr and faDirectory) <> sr.Attr then
     begin
       item:=lv1.items.add;
       item.Caption:=sr.name;
       Item.SubItems.Add(datetimetostr(filedatetodatetime(sr.time)));
     end;
until FindNext(sr) <> 0;
FindClose(sr);
end;

procedure TForm1.lv1ColumnClick(Sender: TObject; Column: TListColumn);
begin
if column =lv1.columns[0] then
 LV1.CustomSort(@CustomNameSortProc, 0)
 else  LV1.CustomSort(@CustomDateSortProc, 0)
end;

Автор: Б. Новгородов (MBo)

Обсуждается в конференциях   |x|
  • Delete
    Подскажите пожалуйста кто знает как отключить на клаве некоторые кнопки (например все кнопки Delete)... Заранее спасибо....
  • Косяк при создании форм
    Такой вот косяк в Дельфях. В модуле проекта в зависимости от передаваемых программе параметров выбираю как она дальше ...
  • Печать базы
    Объясните пожалуйста как распечатать таблицу Парадокс 7 Ну я понимаю, что нужно обратиться к ячейке, потом отправить ее ...
  • BLOB поля
    Пожалуйста подскажите как в BLOB поле сохранить wave и\или mp3 файл. Заранее благодарен.
  • Stream
    Здраствуйте! код: procedure TForm1.Button2Click(Sender: TObject); var //fs:tfilestream; fs:tmemorystream; i:string; ii:...
  • Взаимодействие двух форм
    Здравствуйте. Подскажите, как лучше сделать в одном проекте - как только Form2 становиться активным, тогда на Form1 ...
  • ADO
    Могу я при помощи ADO выполнить многоуровневый SQL типа: DROP PROCEDURE otgruzki GO CREATE PROCEDURE otgruzki ..... GO ...
У нас большой выбор статей   |x|
«DELPHI в примерах для начинающих» - Пособие по написанию компонентов на Дельфи
когда я очень хотел написать свой первый компонент, я прочитал две книги, и у меня ничего интересного собственно не вышло. Потом я прочитал еще одну книгу (в ней хотя бы пример рабочий был), вроде разобрался. Но там был разобран такой простой компонент, что все более сложное мне приходилось делать самому, иногда методом тыка, иногда сидел разбирался и так далее. Результат - разобрался, чего и вам желаю и надеюсь помочь этим пособием...
Новинки книжного рынка   |x|
Delphi 5 для профессионалов
Эта книга поможет вам овладеть программированием в Delphi, включая язык Object Pascal, компоненты Delphi (как работу с существующими компонентами, так и разработку ваших собственных), поддержку баз данных и приложений клиент/сервер, базовые элементы программирования в среде Windows и разработку COM-приложений, а также Web-программирование. Для чтения этой книги нет необходимости в глубоких знаниях какой-либо из этих тем, но что вам действительно понадобится — это основы программирования на Паскале.
Автор: М. Кэнту
Другие сайты о DELPHI   |x|
Домашняя страничка Резника Алексея
Страничка программиста. Программы написанные на Delphi 5 (Платежка 2001 ...).
» Оценка сайта: 4
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Согласны ли вы его покупать ежемесячно?
»»» Да
»»» Нет
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Только художник
Видит, как наклоняет
Травинку роса.

Афоризмы
Интуиция, как правило, человека подводит. Доказательством этому может служить рентабельность казино....

Фраза дня
Сидим, как в деревне! Ни радио, ни телевизора - один Интернет остался!

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Денвере (США) запрещается ездить по воскресеньям на машинах черного цвета.
В городе Стерлинг в Колорадо (США) запрещается выпускать кошек гулять, если они “не имеют сзади световых отражателей”.

И на закуску коротенький анекдот
Два мужика разговаривают:
- Почему твой сын так быстро растет, за уши тянешь, что ли?
- Не, я просто монитор каждый месяц на 5 см поднимаю!

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

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

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