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

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

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

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

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

←   Июль 2003   →
 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

DELPHIMASTER.ru

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

Кое-что из нашей кладовки   |x|
  • SoundWavs_Experm Pltnick pltnick@nc.ru   (16.07.03 01:09)
    пример использования модуля wavefileoptions.pas (можно отыскать в разделе "Компоненты"; здесь он тоде есть). выполняет преобразования звука. генерация звука по параметрам; создания эффекта стерео при наличии только одного канала; добавление эха; интерферирование волн - наложение сигнала низкой частоты = увеличивает басы.
    »»» Скачать: исходные тексты (8кб) демонстрационный EXE файл (200кб)
  • SoundWavs_Experm Pltnick pltnick@nc.ru   (16.07.03 01:08)
    пример использования модуля wavefileoptions.pas (можно отыскать в разделе "Компоненты"; здесь он тоде есть). выполняет преобразования звука. генерация звука по параметрам; создания эффекта стерео при наличии только одного канала; добавление эха; интерферирование волн - наложение сигнала низкой частоты = увеличивает басы.
    »»» Скачать: исходные тексты (8кб) демонстрационный EXE файл (200кб)
  • SoundWavs_Experm Pltnick pltnick@nc.ru   (16.07.03 01:08)
    пример использования модуля wavefileoptions.pas (можно отыскать в разделе "Компоненты"; здесь он тоде есть). выполняет преобразования звука. генерация звука по параметрам; создания эффекта стерео при наличии только одного канала; добавление эха; интерферирование волн - наложение сигнала низкой частоты = увеличивает басы.
    »»» Скачать: исходные тексты (20кб) демонстрационный EXE файл (200кб)
  • Text Decorater Pltnick pltnick@nc.ru   (16.07.03 01:02)
    прога для красивог отображения текста любого шрифта. показывае првращение эллипса в надпись и наоборот
    »»» Скачать: исходные тексты (20кб) демонстрационный EXE файл (261кб) посмотреть скриншот
  • Генератор имен Pltnick pltnick@nc.ru   (16.07.03 00:34)
    прога генерирует имена (фразы) по параметрам окончаний и составный частекй слова (предложения)
    »»» Скачать: исходные тексты (5кб) демонстрационный EXE файл (192кб)
  • Computer Statistic Pltnick pltnick@nc.ru   (16.07.03 00:11)
    программа нужна для подвода статистики включений/выключений копьютера. строятся гистограммы использования копьютера по дням и по часам. есть доп.функции, работающие по интервалам времени = фото рабочего стола и бой часов.
    exe не лезет в post :)
    »»» Скачать: исходные тексты (32кб) посмотреть скриншот
Лучшее из нашего FAQ   |x|
Перекодировка в DELPHI
»»» vladar (07.07.00 17:42)
Как, если это возможно, запихнуть в TMemo текстовый крилический DOS файл? То биш встает вопрос перекодировки DOS->Win1251.

»»» Merlin (07.07.00 18:02)
Самое просто с TMemo, это сменить ему шрифт, который настроен на DOS кодировку terminal например (тогда все будет показываться как надо, НО если скопировать из него текст в буфер обиена, то :(((
Если перекодировать, то смотри FAQ, там это точно есть, функция вроде бы называется AnsiToOEM...

»»» vladar - vladar@chat.ru (07.07.00 18:43)
Ежели сменить ему шрифт, то возникает опять проблема - а редактировать то его как? Дело в том, что у шрифта Terminal раскладка клавы вообще дурная. А в FAQ-е вроде ничего такого нету :(((

»»» vladar - vladar@chat.ru (07.07.00 18:47)
Звиняйте. Нашел. Усе получилось. Thnx :)

-= Из конференции сайта MASTERS OF DELPHI (h! ttp://delphi.mastak.com) =-
Комментарий от: Владимир Челабчи  (S&PE Telematika)
Один из вариантов кодировщика слегка громозкий но работает быстро, изменяя таблицу можно отключить  пропуск непечатаемых символов
 
const
  ConvertSet : array[0..255] of byte =
{таблица перекодировки ASCII с альтернативной кодовой страницой 866 в
WIN 1251. Украинские символы - по кодовой таблице PRINTFXU. Непечатные
символы заменяются пробелами}
{основная таблица}
{      00  01  02  03  04  05  06  07  08  09  0A  0B  0C  0D  0E  0F
{00} ( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
{10}   32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
{20}   32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
{30}   48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
{40}   64,
65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79,
{50}   80, 81, 82, 83, 84!
, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
{60}   96, 97, 98, 99,100,101,102,103,104,105,106,107,108,109,110,111,
{70}  112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,
{дополнительная таблица}
{80}  192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,
{90}  208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,
{A0}  224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,
{B0}   32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
{C0}   32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
{B0}   32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
{E0}  240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255,
{F0}  168,184,178,179, 32, 32,175,191,170,186, 32,177,185, 32, 32, 32);
var
  TextString : string[250];
  TextTmpArr : array[0..250] of byte
absolute TextString;
  WinString  : string[250];
  WinTmpArr  : array[0..250] o!
f byte absolute WinString;
 
  DosFile    : Text;
  TextFName  : string;
  TextFDir   : string;
  WinFName   : string;
procedure TMainFm.ConvertFile;
var
  I : Integer;
begin
  AssignFile(DosFile,TextFName);
  ReSet(DosFile);
  While Not(EOF(DosFile)) do
    begin
      ReadLn(DosFile,TextString);
 
      WinTmpArr[0] := TextTmpArr[0];
      for I := 1 to TextTmpArr[0] do
        begin
          WinTmpArr[I] := ConvertSet[TextTmpArr[I]];
        end;
      Memo.Lines.Add(WinString);
    end;
end;


Данный код писался на еще Borland Pascal 5.0 и учитывал то, что тип string представляет собой массив char с нулевым элементом имеющим значение динамической длины строки, в Delphi разработчики могут изменить способ хранения строки в памяти так что надо быть внимательным! с данным алгоритмом возможны глюки

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

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Куда движется Delphi
Обзор нововведений в Delphi 6 и Kylix (перервод Михаила Голованова)
Новинки книжного рынка   |x|
Экстремальное программирование: планирование. Библиотека программиста
Эта книга харизматических лидеров экстремального программирования — о том, как планировать проекты разработки программного обеспечения по технологии XP. В основном она предназначена руководителям — тем, кто должен составлять план работ, а потом следить, чтобы он соответствовал действительности. Она будет полезна и программистам с заказчиками, поскольку это две основные роли в процессе планирования и разработки ПО.
Автор: Kent Beck, Martin Fowler
Другие сайты о DELPHI   |x|
LENIN INC
LENIN INC Home Page. The best Soft, Rusifications and other.
» Оценка сайта: 2
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Готовы ли вы подписаться на него?
»»» Да, на сколько возможно
»»» Да, на 6 месяцев
»»» Да, на 3 месяца
»»» Да, на 1 месяц
»»» Нет, не готов
»»» Не знаю
Для души

Хокку дня
Шепот
В веер прячу, -
Все же слышно…

Афоризмы
Если люди начали лучше одеваться, значит, дела их совсем плохи.

Фраза дня
С точки зрения программиста пользователь - это периферийное устройство, вводящее набор символов в ответ на команду READLN

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

И на закуску коротенький анекдот
Отец за сыном в детсад приходит. У него спрашивают:
- Который ваш?
- А какая разница? Все равно завтра обратно вести.

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

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

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