Отправляет 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
Автор
Сергей

Статистика

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

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


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

DELPHI.mastak.ru

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

Кое-что из нашей кладовки   |x|
  • TKObject v 1.0 aga aga_@rambler.ru   (27.02.03 20:34)
    Программа которая может добавлять ярлыки в Мой компьютер
    »»» Скачать: исходные тексты (568кб)
  • Для корпоративных клиентов KievStar themaster themaster@ua.fm   (21.02.03 14:06)
    Программа для управляющих корпорациями мобильной связи сети KievStar.
    Данная программа позволяет делать следуущее:
    - хранить детальлую информацию о каждом номере: PIN1, PIN2, PUK1, PUK2, ICC,
          текущего пользователя, текущий пакет, текущего плательщика за номер;
          кроме этого она ведет хронологию кто и когда использовал этот номер,
          кто и когда платил за номер, хронологию пакетов по номеру, даты перехода
          на другие пакети, даты и номера написания заявлений. Владея этой информацией
          можна делать отчеты в бухгалтерию как на определенный номер так и на все сразу
          как за текущее время так и за любое прощедшее время. Это все можна розпечатать
          в удобной табличной формме.
    - позволяет делать просчет любого номера за определенный месяц на эклнлмичность:
          программа анализир! ует все звонки, которые были совершены по номеру, за указаный
          месяц, и просчитивает сколько это будет стоять по каждому пакету как KievStar так UMC.
          Это дает возможность определить с какой пакет для указаного номера наивыгодней. При этом
          вы существенно экономите деньги, правильно подбираете пакет для номера.
          Перерасчет ведется для: ACE, BASE, L, XL, XXL, бизнес 20, бизнес 30, бизнес 50, бизнес 80,
          бизнес 150, бизнес 250. UMC: Sim-Sim Master, Sim-Sim клуб, Sim-Sim команда, для корпоративных
          груп УМС и корпоративных сетей, UMC 20, UMC 40, UMC 60, UMC 90, UMC 150, UMC 250.
          Все перерасчеты отображаются у виде диаграмм, где видно сколько нада будет платить за
          указаный номер в каждом пакете.
    - позволяет фильтровать все совершенные звонки по таким критериям:
        &nbs! p;      номерам, во времени (дни и даже время), в зависимости от звонков(входящие: сетевые
               междугородние, вызов к роумеру, SMS; исходящие: корпоративные, сетевые, междугородние,
               международные, телефония, SMS) все эти отчеты можна распечатать в удобной табличной форме.
    Дуека программы.
    »»» Скачать: исходные тексты
Лучшее из нашего FAQ   |x|
Перекодировка текста DOS <-> Widowns <-> Koi8 

procedure WinToDos;
var Src, Str:PChar;
begin
 Src := Memo1.Lines.GetText; //Берем текст из TMemo как тип PChar
 CharToOem(Src, Str);                //API функция для перевода текста
 Memo2.Lines.Text := StrPas(Str);//Записываем назад
end;

procedure DosToWin;
var Src, Str:PChar;
begin
 Src := Memo1.Lines.GetText; //Берем текст из TMemo как тип PChar
 OemToChar(Src, Str);                //API функция для перевода текста
 Memo2.Lines.Text := StrPas(Str);//Записываем назад
end; 

var koi8toalt : array [0..127] of char = (
 CHR($c4), Chr($b3), Chr($da), Chr($bf),
 Chr($c0), Chr($d9), Chr($c3), Chr($b4),
 Chr($c2), Chr($c1), Chr($c5), Chr($df),
 Chr($dc), Chr($db), Chr($dd), Chr($de),
 Chr($b0), Chr($b1), Chr($b2), Chr($f4),

Chr($fe), Chr($f9), Chr($fb), Chr($f7),
 Chr($f3), Chr($f2), Chr($ff), Chr!
($f5),
 Chr($f8), Chr($fd), Chr($fa), Chr($f6),
 Chr($cd), Chr($ba), Chr($d5), Chr($f1),
 Chr($d6), Chr($c9), Chr($b8), Chr($b7),
 Chr($bb), Chr($d4), Chr($d3), Chr($c8),
 Chr($be), Chr($bd), Chr($bc), Chr($c6),
 Chr($c7), Chr($cc), Chr($b5), Chr($f0),
 Chr($b6), Chr($b9), Chr($d1), Chr($d2),
 Chr($cb), Chr($cf), Chr($d0), Chr($ca),
 Chr($d8), Chr($d7), Chr($ce), Chr($fc),
 Chr($ee), Chr($a0), Chr($a1), Chr($e6),
 Chr($a4), Chr($a5), Chr($e4), Chr($a3),
 Chr($e5), Chr($a8), Chr($a9), Chr($aa),
 Chr($ab), Chr($ac), Chr($ad), Chr($ae),
 Chr($af), Chr($ef), Chr($e0), Chr($e1),
 Chr($e2), Chr($e3), Chr($a6), Chr($a2),
 Chr($ec), Chr($eb), Chr($a7), Chr($e8),
 Chr($ed), Chr($e9), Chr($e7), Chr($ea),
 Chr($9e), Chr($80), Chr($81), Chr($96),
 Chr($84), Chr($85), Chr($94), Chr($83),
 Chr($95), Chr($88), Chr($89), Chr($8a),
 Chr($8b),
Chr($8c), Chr($8d), Chr($8e),
 Chr($8f), Chr($9f), Chr($90), Chr($91),
 Chr($92), !
Chr($93), Chr($86), Chr($82),
 Chr($9c), Chr($9b), Chr($87), Chr($98),
 Chr($9d), Chr($99), Chr($97), Chr($9a));

function Koi8toWin(const Data:PChar; DataLen :Integer):PChar;
var PCh: PChar;
    i: Integer;
begin
 PCh:=Data;
 for i:=1 to DataLen do
  begin
   if Ord(Pch^)>127 then Pch^:=koi8toalt[Ord(Pch^)-128];
   Inc(PCh);
  end;
 PCh:=Data;
 OemToCharBuff(PCh,PCh,DWORD(DataLen));
 Result:=Data;
end;


Спасибо Олегу и Виталию

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

Обсуждается в конференциях   |x|
  • Как двигать Мэмо
    Как двигать Мэмо вверх и вниз нажымая две кнопки?
  • TMemoryStream
    Считали мы файл в память: ZZ:=TMemoryStream.Create; ZZ.LoadFromFile('C:\1.txt'); А как из памяти считывать по одной ...
  • Помогите пожалуйста!!
    Пишу программу, которая должна делать фон иконок рабочего стола прозрачным. Нашёл функцию которая это делает НО при ...
  • Второй вопрос по SQL
    Привет Мастера!!! С этой задачей справились Интересует такой вопрос, есть таблица по передаче факсов, поля следующие 1 ...
  • DOA
    Здрасьте. Может кто пользует DOA (прямой доступ к ораклу)... Вобщем обьявляю переменную, как в мануале пишет, прога ...
  • Помогите разобраться с CachedUpdates
    Есть таблица, для которой CachedUpdates=True. Добавляю в нее запись, RecordCount=1. Делаю ApplyChanges, теперь ...
  • Диск в СД роме
    Как определить что за диск в сидироме(Аудио, Дата) и есть ли он там вообще?
У нас большой выбор статей   |x|
Delphi 6: первое знакомство
Ну вот наконец-то, в руках коробочка с диском и бумажкой, на которой кто-то старательно вывел фломастером Delphi 6. Из коробочки вынимается диск, вставляется в cd-rom и...
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
Программирование на Дельфи и Паскаль
Конференция, Уроки, Компоненты и Программы с исходниками, Советы, Скоро будет ЧАТ !!!sЗаходите в гости !!!
» Оценка сайта: 2
Опрос населения :)
К какой возрастной категории Вы принадлежите ?
»»» меньше 16
»»» от 17 до 20
»»» от 21 до 23
»»» от 24 до 26
»»» от 27 до 30
»»» от 30 до 35
»»» от 35 до 40
»»» от 40 до 44
»»» больше 45
Журнал "RSDN Magazine"  |x|

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

Для души

Хокку дня
Вечерним вьюнком
Я в плен захвачен… Недвижно
Стою в забытьи.

Афоризмы
В сердцах кому-нибудь грубя, ужасно вероятно однажды выйти из себя и не войти обратно....

Фраза дня
- Родила? - Да! - Мальчика? - Нет! - А кого?

Дурацкие законы (информация предоставлена сайтом kurilka.com)
Во Франции строжайще запрещено звать свинью "Наполеоном".
В Пенсильвании (США) не разрешается, чтобы в доме вместе проживали более 16-ти женщин (по мнению законодателей, 17 женщин - это уже бордель). Закон, однако, позволят совместно жить 120-ти мужчинам.

И на закуску коротенький анекдот
Судья задает свидетельнице средних лет вопросы в зале суда:
- Вы были замужем?
- Да, дважды.
- Сколько вам лет?
- Двадцать пять.
- Тоже дважды?

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

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

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