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

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

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

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

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

←   Апрель 2004   →
 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
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 04.04.04 09:05

Лучшее из нашего 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), C
 hr($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|
  • Вопрос не совсем в тему, но все равно если можете - подскажите
    Проблема заключается в том, что в своей программе я использую части, написанные на asm, в которых ипользуютя инструкции ...
  • Склеивание exe
    Здравствуйте уважаемые мастера! Как склеить два exe файла при помощи программы написанной на Delphi? Так чтобы при ...
  • TKOLPaintBox
    Доброе время суток! Мой вопрос заключается в следующем. Каким образом можно добиться следующего: если на форму ...
  • SW_HIDE
    Доброе время суток. Ламерский вопрос, но позабывал всеЮ что знал. На событие onActivate формы вешаю такой код: ...
  • Как работать с POA в Delphi 7.
    Сервер написан на билдере, работа с объектами идет через POA. Возникла необходимость обращаться к серверу из делфийской ...
  • изменяя положение TTrackBar...
    Такая ситуация...есть TTrackBar и TMediaPlayer необходимо изменяя position TrackBar прокручивать "фильм".Подскажите ...
  • Простой сниффер
    Написал недавно программу, для образца взял сниффер с исходников.ру, но он, почему-то не работает (зависает на recv). ...
У нас большой выбор статей   |x|
Невизуальное наследование форм в Delphi
В данной статье исследована возможность использования класса, наследника TForm, как родительского для новых форм. Этод метод удобен в случае, когда нам не важно внешнее однообразие форм, а важно, чтобы поведение различных по интерфейсу форм было одинаково.
Новинки книжного рынка   |x|
OpenGL. Графика в проектах Delphi (с дискетой)
Книга посвящена использованию стандартной графической библиотеки OpenGL в проектах Delphi. Начиная с самой минимальной программы, последовательно и подробно рассматриваются все основные принципы программирования компьютерной графики: двумерные и трехмерные построения, анимация, работа с текстурой, визуальные эффекты и др. Большое внимание уделяется вопросам оптимизации и ускорения приложений. Изложение построено на многочисленных примерах, среди которых есть и такие сложные, как многофункциональный графический редактор и CAD-система визуализации работы робототехнической установки, что облегчает усвоение материала и прививает хороший стиль программирования. Для широкого круга программистов, интересующихся графикой
Автор: Краснов М.
Другие сайты о DELPHI   |x|
Статьи и исходники на DELPHI, C и Бэйсике.
Статьи и исходники на DELPHI, C и Бэйсике.
Базы данных
Программирование для WEB
» Оценка сайта: 4
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Ваше мнение, нужен ли он вообще?
»»» Да
»»» Нет
Для души

Хокку дня
Поймаю сверчка - посажу
В бутылку с дешевым портвейном
Что ж не пиликаешь,сволочь?

Афоризмы
" народ всегда прав " - какая же это глупость....

Фраза дня
Если голова болит, значит, она есть.

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

И на закуску коротенький анекдот
- Здесь выдают зарплату? Моя фамилия - Итого!
- Нет, здесь собирают налоги... Как, вы говорите, ваша фамилия?

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

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

Добро пожаловать на сайт -= Мастера DELPHI =- 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное