Здравствуйте уважаемые подписчики рассылки "Интернет для Delphi программиста". Данная рассылка предназначена для всех кого интересует Delphi, здесь будут выкладываться ссылки на различные ресурсы интернета так или иначе связанные с Delphi: книги, исходники, программы... Изучайте Delphi один из лучших языков программирования!!!

ЗАДАТЬ ВОПРОС :

Правила рассылки: 
1. Не присылайте ответов на вопросы типа "да, нет".  
2. Если отвечаешь на вопрос - то отвечай подробно с примерами (желательно с исходником примера).
3. Тема вопросов - программирование на Delphi.
Внимание авторам: - Я не указываю ваши адреса из-за спама, но кто хочет, чтобы его email был - пишите, иначе только имя(ник).
Отправить вопрос

Новые вопросы.

Ответы.

Если ваша программа содержит подключаемые модули (BPL или DLL) или есть необходимость обновлять саму программу, то наверняка стояла проблема обновления копий программы. С развитием Internet появилась прекрасная возможность сделать это быстро и красиво. В данной статье мы расскажем, как добавить опцию автообновления программ из Internet.

Delphi дает нам полный доступ к API WinInet (wininet.pas), что позволяет подключиться и скачать любой файл с указанного вебсайта, используя протоколы FTP или HTTP. Например, мы можем использовать функции API WinInet для создания FTP-браузера или программы для поиска на публичных FTP-серверах заданных файлов.

Основная функция нашей программы - GetInetFile:

uses Wininet; function GetInetFile(const fileURL, FileName: String): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: File; sAppName: string; begin Result:=False; sAppName := ExtractFileName(Application.ExeName); hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); try hURL := InternetOpenURL(hSession, PChar(fileURL),nil,0,0,0); try AssignFile(f, FileName); Rewrite(f,1); repeat InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); BlockWrite(f, Buffer, BufferLen) until BufferLen = 0; CloseFile(f); Result:=True; finally InternetCloseHandle(hURL) end finally InternetCloseHandle(hSession) end end;

Замечание: конечно, этот пример нужно расширить, вставив, например, код для отображения прогресса скачивания в цикл.

Использовать функцию GetInetFile очень просто:

var FileOnNet, LocalFileName: string begin FileOnNet:='http://www.codenet.ru/progr/delphi/'; LocalFileName:='MyFile.zip'; if GetInetFile(FileOnNet,LocalFileName)=True then ShowMessage('Download successful') else ShowMessage('Error in file download') end;

Этот кусок кода скачивает файл с именем mp3player.zip, находящийся по адресу 'http://www.codenet.ru/progr/delphi/' и записывает его в текущий каталог под именем 'MyFile.zip'. Все очень просто. 

madCollection

Набор VCL компонентов для Borland Delphi 4-7 и Borland C++ Builder 5-6. Пакет компонентов содержит несколько групп компонентов: madBasic, madExcept, madRemote, madKernel, madCodeHook, madDisAsm, madSecurity, madShell.
Подробное описание групп компонентов, входящих в madCollection:
+ madBasic(процедуры работы со строками и списками, функции архивирования/разархивирования на базе zlib, функции шифровки/дешифровки с использованием алгоритма blowfish, работа с ресурсами exe/dll файлов);
+ madDisAsm(дизассемблер для анализа бинарного кода в заданной точки входа, имеет полную поддержку всех инструкций процессоров Athlon и Pentium 4 включая технологии: 3DNow, SSE и SSE2);
+ madExcept(замена стандартных обработок исключений);
+ madRemote(копирование функций и создание потоков других процессов);
+ madKernel(различные функции по работе с процессами, окнами, иконками панели задач, модулями, потоками, заголовками и прочим);
+ madCodeHook(перехват API функций);
+ madSecurity(эмуляция ACLs и ACEs в Win9x);
+ madShell(функции работы с большинством COM объектов, встроенных в оболочку).
Все группы пакета компонентов являются бесплатными при использовании их в некоммерческих проектах.

Скачать можно здесь: http://madshi.net/madCollection.exe
help - это сайт http://help.madshi.net/ на английском.

Lame

Один из известных кодеков, который позволяет кодировать файлы формата WAV в MP3, а так же CDA в MP3. Содержит широкий диапазон настроек.

MP3Play

Уникальный компонент, который полностью позволяет управлять программой WinAmp. Поддерживаются практически все функции WinAmp.

Advanced Alert Window

Всплывающие окна с напоминаниями (оповещениями) в стиле Outlook 2003.

ButtonComps

5 симпатичных кнопочек с возможностью полного изменения внешнего вида. Очень красивые! Поддерживается 2,3,4,5 версии Delphi.

cxCPU

Библиотека, позволяющая узнать информацию о процессоре.

CollapsePanel

Отличный компонент. Каждый знаком с панельками, которые сворачиваются и разворачиваются. В отличие от подобных "групп" в Windows XP, CollapsePanel имеют сравнительно простой внешний вид, но здорово украсят любую программу.

Domino

Компонент, имитирующий фишки домино.

DCPCrypt

Один из известный пакетов для шифровки и расшифровки данных. Содержит более 100 алгоритмов шифрования.

Easy Graph

Мощная система для построения графиков функций и вывода разнообразных математических схем.

Gradient

Градиент, предоставляющий большие возможности: несколько десятков вариантов перетекания, эффекты, превращения и всё всё всё, чтобы сделать красивую программу.

JwbBalloon

"Пузыри" - всплывающие подсказки округлой формы, получившие своё распространение большей частью в Windows XP. Придают программе изящный вид.

WinApiCalc by Dem@nXP

Пример WinApi программирования от Dem@nXP. Рассмотрены основы "минимального приложения": создание формы, кнопок, поля ввода, метки, меню, таймера. Всё сопроваждено прекрасными комментариями.

FTP-Server

Очень навороченный Ftp-сервер. Красочно сделан, и, на мой взгляд, пример хорошего программирования.

Чат реального времени

В архиве представлены две программы: клиент и сервер. Исходник будет полезен тем, кто только начинает осваивать программирование для сети Internet, а так же всем интересующимся.

Fun Source

Данный сборник - попытка собрать наиболее маленькие и прикольные программы приколы, собранных на просторах Интернета. В сборнике присутствует 13 исходников.

IP-Scanner

Сканирует заданный диапазон IP-адресов на наличие открытых портов. Берет порты из списка. Можно сканировать серверы на наличие различных сервисов.

Crazy Mouse

Меняет положение курсора мыши каждую минуту. Очень бесит жертву.

Screen Flipper

Переворачивает экран, пока по нему не кликнут.

Крестики-нолики

Известная игра в крестики-нолики. Игра отличается отличным оформлением.

---

Купите себе более мощный компьютер, чтобы быстрее перезагружаться.

---

Сообщение перед выключением компьютера: "Вашу жену зовут Наташа, детей - Юля и Павлик. Вы всё ещё хотите выйти из Windоws?!".

---

Если мужик рассматривает в бинокль голых женщин на пляже, это значит, что у него дома нет компьютера с выходом в Интернет...

---

Шерлок Холмс и доктор Ватсон летят на воздушном шаре. Погода портится, шар несется по ветру с огромной скоростью, ориентация полностью потеряна... Наконец небо расчищается, Холмс и Ватсон видят под собой залитую солнцем природу. На берегу ручейка мужик пасет коров. 
Когда шар пролетает над мужиком, Холмс обращается к нему: 
- Любезнейший, не подскажете ли, э-э..., где мы находимся? 
Мужик обалдело смотрит на Холмса и Ватсона, и, когда шар уже улетел довольно далеко, кричит ему вдогонку: 
- Вы находитесь на воздушном шаре!! 
Холмс: 
- Все ясно, Ватсон. Мы в России. 
- Но Холмс! Почему Вы решили... 
- Элементарно, Ватсон. Этот человек - системный программист. Только системный программист мог дать столь правильный и при этом столь бесполезный ответ. 
- Да, но почему Вы решили, что мы именно в России? 
- Элементарно, Ватсон. Только в России системные программисты пасут коров. 

---

- Что такое "рlug аnd рlау" в Windоws?
- "Нашла не знаю что. Вставьте дискету не знаю с чем".

---

О работе программиста:
Как нарисовать то, чего никто никогда не видел, но все догадываются, как это не должно выглядеть.

---

Единственный приличный формат, разработанный Microsoft'ом, - format c:

---

- Что делать, если компьютер перестал работать?
- Если вы юзер - делать ноги. Если ремонтник - делать деньги. А если программист - делать вид, что так и было задумано.

---

Дружественные рассылки:

Все кто хочет изучить Delphi и реально научиться писать свои программы, ЦПИ "Эверест" поможет Вам.
Всё, что Вам нужно это компьютер и доступ к интернету - для получения уроков.

10 причин в пользу платного обучения в ЦПИ "Эверест"…

1. Когда Вы платите деньги- появляется дополнительный стимул против лени: надо учиться, ведь деньги уже уплачены….
2. Учась платно, получаете удобный для Вас график работы.
3. Весь необходимый справочный материал Вы получите в свое время и на русском языке.
4. Используя интернет в качестве бесплатной библиотеки, Вы получаете все ее минусы:

• трата времени на поиск необходимого материала (а это потерянные деньги и время). А у Вас есть лишние время и деньги?;
• отсутствие гарантии, что Вы "осилите" данный материал, ведь пишут его, в основном, не педагоги- профессионалы, а программисты- профессионалы, а они пишут для таких же, как они. А Вы программист- профессионал?
• отсутствие системности в скачиваемом материале (ведь человек, писавший для Вас материал, не знает, чем Вы владеете). А Вы обладаете системой знаний по Delphi?;

5. Стоимость обучения одного месяца в ЦПИ "Эверест" сравнима с ценой хорошей книги. Но часто ли Вам попадались книги, рассчитанные именно на Вас. Мы же работаем индивидуально.
6. Автор книги или магазин не несет никакой ответственности за то, поняли ли Вы материал или нет, мы же закрепляем за каждым курсантом преподавателя, курирующего Вас.
7. Освоив программирование в Delphi - Вы освоите:

• основы настоящего программирования- структурного и процедурного программирования ;
• систему работы с базами данных и SQL- запросами, а это одно из самых перспективных направлений в программировании;
• язык программирования ObjectPascal, что позволит Вам легко перейти, при желании, на С или Паскаль;
• работу с компьютерной графикой;
• при желании - основы низкоуровневого программирования ( Ассемблер).

8. А это значит, что …Мы предлагаем получить "высшее образование" - профессию программиста всего за 1 год и 144 доллара, любой ВУЗ попросит в 3 раза больше за один только семестр.
9. Вы получаете самый практический курс в сети, поскольку теория дается только тогда, когда она действительно необходима…
10. Учиться у нас легко и просто. Весь материал доступен и простым людям, не имеющим никогда дел с программированием….

По всем вопросам обращайтесь ко мне.

Если вы встретили в интернете интересный сайт или статью, да и вообще, что угодно связанное с Delphi, поделитесь ссылкой.
Если можете написать статью связанную с Delphi - присылайте с радостью выложу.
Давайте поможем друг другу!  Архив рассылки.

Предложения, критику и пожелания пишите на e-mail.