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

СообЧА. Программирование на Delphi

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

При закрытии подписчики были переданы в рассылку "Программирование в 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
Автор
Сергей

Статистика

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

СообЧА. Программирование на Delphi


Информационный Канал Subscribe.Ru - www.lycos.ru
Untitled Document
===СообЧа: Программирование на дельфи для чайников и не только===

Автор рассылки: Pixel .
Учередитель проекта : COOLer.
Рассылка выходит постоянно с Августа 2001г.

Наш веб-сайт pixelsoft.narod.ru
Рассылка благодарит компанию ОЗОН, за периодичеки покупаемый софт.

Все желающие оказать помощь проекту, пишите на адрес pixela ,с пометкой Support, со своими предложениями.

В этом номере :

Обзор литературы
WEB-stop
Теория - Tmemo
Реализация своего Beep

Просьба о помощи...
Те, кто знают как использовать или создавать плагины от фотошоп в своем коде - откликнитесь!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Ведущий рассылки, также предоставляет следующие услуги:
WEB-design с применением FLASH
Баннероизготовление(любые форматы и размеры)
ART-design логотипов, обоев на рабочий стол и т.п.
Верстка сайтов с потимизацией под 36к соединение без потери
графических "наворотов"
Фонд поддержки наших проектов и рассылки:
Получатель: ИНН 7707083893 Новгородское ОСБ № 8629
Счет получателя: 47422810343029900030
Банк получателя :Новгородское ОСБ № 8629 г.Великий Новгород
30101810100000000698 Бик 044959698
Храпунову Кириллу Алексеевичу

К заголовку
Обзор литературы

А теперь снова наш рекламный пунктик... ой, всмысле обзор.

На сей раз хотел бы представить вам тот список лит-ры, который необходимо прочесть для овладевания БАЗОВЫМИ навыками по дельфи:
(Для тех кто будет это читать попрошу соблюдать порядок прочтения)
1. "Turbo pascal 7.0" (второе издание, автор Грызлов В.И)
В данной книге расписаны основные приемы работы с паскалевским кодом, методы оптимизации программы и дан базовый курс по ООП. Как не странно, но все таки некоторые "программисты" забывают что дельфи вырос на Object pascal , коде.

2."Программирование в дельфи 5" (автор П.Дарахвелидзе)
Данная книжка знакомит вас с азами дельфи и разводит понятия дельфи и object pascal , объясняя основные черты дельфи кода. Также, даны основные понятия о классах и объектах дельфи, описана методика работы со стандартными API и VCL. Чем мне нравится эта книга, так это очень глубоким изучением работы с БД и СУБД под дельфи.

3."Дельфи 5, наиболее полное пособие"(автора не помню, книга с 1 к 1-му таким же названием есть для дельфи 6, циферки только разные :) )
Данная книга, относится к разделу справочников, то есть , подразумевается, что у вас есть базовые умения в среде Дельфи. В этой книге рассмотрены примеры создания своего VCL или ActiveX компонента, несколько слов уделяется сетевому программированию, а также есть справочные сведения по многим ф-циям библиотек System,Shelapi,Filectrls,Strings,Shellapi.

P.s Что мне наименее нравится, так это то, что ни в одной встреченной/прочитанной мною книге не охвачены аспекты по работе с ДЛЛками и NetAPI, напрочь опущен тот факт, что дельфи может писать CGI программы(помните счетчик в одном из номеров?) да и оновные "грабли" на которые все наступают тоже не охвачены.

Все книги можно найти тут...

К заголовку

Не люблю жаловаться, но у меня снова сдох винт... Всмысле его логическая нулевая дорожка на томе в 30Гб таинственно обнулилась. В результате я сижу вообще без софта, т.е все скачанные мною плагины для дельфи(VCL) приказали долго жить... без них. Побегав ,как бобик, по сеточке я по пути сделал обзор основных сайтов...

Основные события на сайтах, которые могут вам быть полезны...
Сайт Библиотеки Что нового?
www.glscene.org Glscene - opengl lib Ничего: Feature freeze
www.torry.net Разные коллекции Пара системных и один Shareware пакет.
www.g32.org Graphics32 Иправлено много багов, весьма оптимизирован код.
www.scene.org -=offtopic site=- Очень качественные работы демомейкеров если хорошо порыться в FTP-архиве сайта, можно нарыть паскаль-код к некоторым демкам или играм.
www.lischke-online.de
 Graphex-9 Добавлена пара "экзотичеких" форматов картинок которые ваша программа сможет понимать, появилась заточка под векторные форматы.
?

X-audio MP3 SDK

 Говорят, что появилась VIS поддержка, т.е можно писать визуализации к аудиопотоку

 


К заголовку

Поступало несколько вопросов, в частности:
Q: Как програмно прокрутить Tmemo
A:

Var

ScrollMessage:TWMVScroll;


ScrollMessage.Msg:=WM_VScroll;
for i := Memo1.Lines.Count DownTo 0 do
begin
ScrollMessage.ScrollCode:=sb_LineUp;
ScrollMessage.Pos:=0;
Memo1.Dispatch(ScrollMessage);
end;

Q:Как запихать в Мемо больше текста, чем оно может вместить по умолчанию
А:
Можно посчитать кол-во строчек нужных для кэша, скажем 500 и подгружать из большого файла куски. Или посчитать, сколько строчек Мемо влезет в один лист и сделать, как в ворде разбиение по листам. Алгоритм подгрузки из файла строк с позиции A по B, очень прост и я думаю нет труда егор расписывать. Достаточно лишь точно знать A и B , где B:=A+(кол-во строк в одном куске "кэша" мемо). Считываем построчно текст из файла, предварительно очистив Мемо, а потом добавляем строку, считанную из файла методом Тмемо.lines.add(stringfromfile). Метод прост, изящен, достаточно быстр и экономичен в плане памяти(хотя последнее можно оспорить). Наиболее яркий пример такого использования Тмемо - программа "Ybook".

 

 


К заголовку

У одного человека возникла проблемма , нужен BEEP , для дельфи , который работает, как в B.Pascal 7.0
Я применяю следующий код, однако он работает только под Win9x/me:


procedure Sound(Freq : Word);
var

B : Byte;
begin

if Freq > 18 then
begin
Freq := Word(1193181 div LongInt(Freq));
B := Byte(GetPort($61));


if (B and 3) = 0 then
begin
SetPort($61, Word(B or 3));
SetPort($43, $B6);
end;


SetPort($42, Freq);
SetPort($42, Freq shr 8);
end;
end;

procedure NoSound;
var

Value: Word;
begin

Value := GetPort($61) and $FC;
SetPort($61, Value);
end;

procedure SetPort(address, Value:Word);
var

bValue: byte;
begin

bValue := trunc(Value and 255);
asm
mov dx, address
mov al, bValue
out dx, al
end;
end;

function GetPort(address:word):word;
var

bValue: byte;
begin

asm
mov dx, address
in al, dx
mov bValue, al
end;
GetPort := bValue;
end;

Под WinNT/2000/XP вы можете использовать Beep(Tone, Duration) (задавать тон и продолжительность звучания).

 

 

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