книги хакеры / журнал хакер / специальные выпуски / Специальный выпуск 4_compressed

па блокнота вот с таким текстом:

void __fastcall TForm1::N2Click(TObject *Sender)

- вызов

класса

{

- начало функции

- тело функции

Теперь между вот этими фигурными скобочками - в тело

должен прописать событие. Свою первую строчку на

впиши туда вот это, и общий вид будет таков:

void __fastcall TForm1::N2Click(TObject *Sender)

{

if(OpenPictureDialog1->Execute())

{

Image1->Picture->LoadFromFile(OpenPic-tureDialog1->File

}

}

Âîò

òàê

все и должно выглядеть. Причем не забывай, что

чувствительный к регистру. Поэтому если вместо большой

поставишь маленькую, то работать у тебя ничего не будет,

предельно внимателен - как когда играешь в квак.

Опишем оставшиеся подменю. Смонтируем подменю

-

но так же кликаешь на нем и прописываешь меж фигурных

эту строчку:

Image1->Picture=NULL;

И самое последнее подменю - “Выйти” - описываем так

-

ных скобок):

Form1->Close();

Кончина

Теперь осталось кинуть на форму последнюю пару

-

шу супер-прогу можно уже продавать - если, конечно, ты раскрутишь

ее, то она наверняка сможет конкурировать с прогами

:-

). Ну вот: находишь в закладке Additional компонент под названием

“ScrollBox” и кидаешь его к себе на панельку. Ищешь в

-

ств “Align”, кликаешь по нему и выбираешь там “alClient”.

же закладке ищешь компонент Image, кидаешь его на

-

ти, ты уже заметил, что твой компонент ScrollBox занял

Так и должно быть - верным путем идете, товарищи!).

-

понент “Image” - находим свойство “AutoSize” и

â

значение true... Все! Прога готова. Осталось только из

сделать исполняемый модуль - откомпилировать программу

-

го ищешь в верхнем меню Project подменю Build AllProject

-

то всевозможный Build) и нажимаешь BuildAll. Компилятор несколько

минут помучается (в зависимости от производительности

может мучаться и часами) и... Вот ты и получил ЕХЕшник.

юзать свою прогу по полной программе. А вообще-то, это

легкий примерчик - возможностям C++ Builder нет предела.

поймешь это, если, конечно, не будешь лениться :). Удачи!

80

0050

КОНСТРУКТОР

>СПЕЦВЫПУСК #4

Теперь смотри над

формой - там палитра

êîì-

понентов. На закладке

Standard кликай

мышом

по букве А. Эта буква

À - íè ÷òî èíîå, êàê

Метка

(Label). Нам она нужна, чтобы писать на

форме.

Кликай мышом по ней, а потом по форме, куда

кликнешь на форме - там она и будет. Она сей-

час выделена (в черных квадратиках вся), посе-

му Object Inspector отображает ее свойства. Ме-

няй Caption (в нем напиши “Введи адрес файла

Постановка

задачи

сюда: “) и Font (он находится ниже, кликни на

она там перед тобой раскрывается? Тогда по-

нем, а потом на трех точках; я ставлю 10-ый MS

зырь на монитор - вон она, большой серый пря-

Sans Serif полужирный). Добавь еще одну метку

А задача наша

проста как угол дома - сесть за

моугольник в центре. И вообще, я не буду тебе

(поставь ее ниже), в ней Caption поставь “Сохра-

комп и максимум

за полчаса сообразить себе

щас про дельфийский интерфейс шибко под-

нить файл сюда: “, ну и шрифт поставь анало-

собственный

GetRight. Конечно, он не будет

робно рассказывать. Лучше сразу за дело! Сей-

гичный. В третьей метке поменяй шрифт и сот-

производить докачку после дисконнекта, качать

час мы немного покликаем мышом и потаскаем.

ри все в Caption, здесь мы будем выдавать

в заданное тобой время, не сможет качать нес-

Итак, начнем: сначала нужно изменить название

сообщения по ходу загрузки. Теперь добавь два

колько файлов сразу... но зато он сможет качать

формы. Она сейчас называется Form1, а на кой

Edit’а (справа от метки в палитре компонентов).

файло по ftp и http, для начала совсем неплохо.

тебе такое название? Это ж название окна твоей

Первый поставь напротив первой метки справа

Соображать прогу будем на Delphi. Ну что, зада-

проги. Изменить! Кликай по форме, она стано-

(это будет для ввода адреса), второй - напротив

ча ясна? От винта!

вится активной, теперь смотри налево - там

второй метки справа (это для сохранения). У

Делаем фейс

Object Inspector, фича для конфигурирования

обоих сотри текст (там написано Edit1, Edit2, на

разных свойств. Свойство, ответственное за

фиг оно надо), для этого выдели (клик по нему

название, называется Caption, ищи его в Object

мышом) и стирай текст в свойстве Text. Затем

Запускай Delphi, желательно в версии 4 или 5.

Inspector’е и нажимай на него. В белом окошке

кинь на форму две кнопки (через одну справа от

Перед тобой раскроется целехонькая и нетрону-

вводи что-то типа “Крутая программа-качалка”.

Edit’а в палитре компонентов), первую назови

тая (хе-хе, пока) форма. На ней мы и будем му-

Ну как, все понятно? Позырь вон на скриншот,

“Закачать”, вторую - “Закрыть” (это все свой-

тить. Что, ты не знаешь, что такое форма и где

òàì Object Inspector åñòü.

ства Caption кнопок). Потом открой закладку

КОНСТРУКТОР

>СПЕЦВЫПУСК #4

0051

81

Internet (äëÿ Delphi 4) èëè FastNet (äëÿ Delphi 5)

по фтп, если она установлена

умолчанию 0), это нам понадобится потом, для

палитры компонентов. Помести на форму ком-

NMHTTP1.Disconnect ; // разрываем связь

проверки заполнения всех полей.

поненты NMFTP и NMHTTP, это для закачки. Они

по хттп, если она установлена

не будут видны в готовой программе, посему

Close ; // Закрываем прогу

procedure TForm1.Edit1Change(Sender: TObject)

тыкай их куда хочешь. Уфф, можешь сохранять-

end ;

;

ся. Дави File -> Save All. Форму обзови main,

Если не разорвать связь, прога просто откажет-

begin

например, а проект - downloader. Посмотри, что

у меня получилось.

ся выходить. Поэтому и разрываем.

Edit1.Tag := 1 ; // присвоить тагу первого

эдита значение 1

end ;

Аналогичную операцию необходимо проделать и

со вторым эдитом, только там нужно писать:

Edit2.Tag := 1 ;

Не забывай об именах! Вот и все с подготовкой,

а теперь начинается...

Реальный кодинг

Да, именно он. Читай внимательнее и вникай.

Перейдем к нашей главной кнопке - “Закачать”.

Кликай по ней два раза и создавай обработчик,

далее вписывай код, чтобы получилось вот что:

procedure TForm1.Button1Click(Sender: TObject)

;

begin

Label3.Caption := ‘’ ; // очищаем метку для

Готовимся кодить

сообщений

Кстати, после // в Delphi до конца строки

èäåò

комментарий, его она не учитывает при

компи-

if ( Edit1.Tag = 1 ) and ( Edit2.Tag = 1 ) and

Увы, программирование состоит не только из

ляции. Комментарии для тебя, чтобы понятнее

( Edit1.Text <> ‘’ )

кликанья мышой и редактирования свойств.

было, не нужно их переписывать. Обрати внима-

and ( Edit2.Text <> ‘’ ) then // проверка

Приходится и кодить, и сейчас мы вплотную

ние, там написано Button2Click, а не “Закрыть”

данных

приблизились к этому. Но начнем с простого.

Click. Button2 - это рабочее имя кнопки для

begin

Кликни два раза по кнопке “Закрыть”. Опа! На

взаимодействия с программой (как в вышеопи-

// данные введены, выполнять действия

экране появилось следующее:

санном примере), а Caption - это всего лишь

end

надпись на кнопке. Все имена компонентов на-

else Label3.Caption := ‘Введи все данные,

procedure TForm1.Button2Click(Sender: TObject) ;

ходятся в их свойстве Name, можешь посмот-

чувак!’ // не все данные

begin

реть в Object Inspector’е. Теперь кликни два ра-

за по первому Edit’у, появляется нечто похожее

end ;

end ;

на обработчик для кнопки:

procedure TForm1.Edit1Change(Sender: TObject)

Что есть что: сначала очищаем метку, просто

и твой курсор мигает между begin и end. Это -

присваиваем ее Caption’у пустое место (сначала

обработчик события OnClick для кнопки “Зак-

;

она, правда, и так пустая, но потом будет пол-

рыть”, и все, что ты напишешь между begin и

begin

ная, поэтому очищаем), затем идет стандартный

end, будет выполняться при клике по этой кноп-

оператор if then else, используем этот оператор

ке. А нам нужно, чтобы прога закрывалась, посе-

end ;

для проверки, все ли поля заполнены - пом-

му пишем

нишь, мы тагам единицы присваивали? Так вот,

Тут вместо OnClick мы видим OnChange - все,

теперь и проверяем - если чувак поля не запол-

procedure TForm1.Button2Click(Sender: TObject) ;

что находится между begin и end, будет выпол-

нил, то таги - “0”, и проверка не пройдет. Но юз-

begin

няться, когда в Edit’е что-то напишут. Мы изме-

верь мог ввести дату, а потом все стереть - вот

NMFTP1.Disconnect ; // разрываем связь

ним Tag (свойство Edit’а, некоторое число, по

для этого и нужна проверка значений эдитов на

82

0052

КОНСТРУКТОР

>СПЕЦВЫПУСК #4

‘’ - если там пустое место (‘’), то проверка не

колько - они нам потом пригодятся. Вот так:

(Pos( ‘/’ , addr ) -1). Все путем! Функция Pos на-

пройдет. Дальше просто: если проверка прошла

ходит положение символа / в строке addr

è

âû-

- гоним далее, нет - пишем в метке “Введи все

var

дает число, которое показывает, какой

ýòîò

данные, чувак!”. Ну как, врубаешься? Если нет,

serv , addr , host , dir : String ;

символ по счету. Но нам его копировать

íå

íà -

просто пиши код, но все-таки старайся понять.

до, поэтому и отнимаем единицу. Теперь,

åñëè

String - это строка, соответственно, все эти пе-

адрес файла ftp://my.host.com/file.exe, то адрес

Продолжаем разговор. Нам нужно узнать, по

ременные - строки. Уфф! Теперь последние

сервера будет my.host.com. Дальше стираем из

фтп загружать или по хттп. Для этого нужно

штрихи на этой стадии - для скачки по фтп нуж-

адреса хост, и остается адрес файла

- åãî è

знать, что впереди: ftp:// или http://. Чтобы вы-

но сначала соединиться с хостом (сервером), а

присваиваем переменной dir. Все, подготовка

тянуть это из оригинального адреса, проведем

потом уже скачивать файло. Нужно разбить ад-

закончена, все данные обработаны, сохраняй-

ряд извращений со строками. Дописывай код:

рес на хост и собственно адрес файла, а это

ñÿ.

опять извращения со строками. Дописывай:

procedure TForm1.Button1Click(Sender: TObject)

procedure TForm1.Button1Click(Sender: TObject)

Кодим скачку по

ôòï

;

begin

;

Обработаем теперь

докачку по фтп. Ниже иду -

Label3.Caption := ‘’ ; // очищаем метку для

begin

ùèé êîä ïèøè òàì,

где надпись:

сообщений

Label3.Caption := ‘’ ; // очищаем метку для

if ( Edit1.Tag = 1 ) and ( Edit2.Tag = 1 ) and

сообщений

// качаем по фтп.

( Edit1.Text <> ‘’ )

if ( Edit1.Tag = 1 ) and ( Edit2.Tag = 1 ) and

and ( Edit2.Text <> ‘’ ) then // проверка

( Edit1.Text <> ‘’ )

Сначала поработаем

с кнопками, дописывай

данных

and ( Edit2.Text <> ‘’ ) then // проверка

êîä:

begin // данные введены, выполнять дей-

данных

ствия

begin // данные введены, выполнять дей-

Edit1.Enabled := false

;

addr :=

Edit1.Text ; // сохраняем адрес в

ствия

Edit2.Enabled := false

; // вырубаем эдиты

переменную

addr := Edit1.Text ; // сохраняем адрес в

Button1.Enabled :=

false ; // выключаем кнопку

serv := Copy( addr , 1 , 6 ) ; // копируем 6

переменную

“Закачать”

символов из адреса в

serv := Copy( addr , 1 , 6 ) ; // копируем 6

// переменную serv

символов из адреса в

Тут, я думаю, все понятно, прописываем закач-

if serv = ‘ftp://’ then // впереди ftp://

// переменную serv

êó:

begin

if serv = ‘ftp://’ then // впереди ftp://

// качаем по фтп

begin

NMFTP1.Host := host ;

end

Delete( addr , 1 , 6 ) ; // удаляем первые 6

NMFTP1.UserID := ‘anonymous’ ;

else

символов из

NMFTP1.Password := ‘’ ;

if serv = ‘http:/’ then // впереди http:/

//адреса

Label3.Caption := ‘Подключаемся ... ‘ ;

begin

host := Copy ( addr , 1 , ( Pos( ‘/’ , addr ) -

NMFTP1.Connect ;

// качаем по хттп

1 ) ) ;

NMFTP1.Mode( MODE_IMAGE ) ;

end

// находим хост

Label3.Caption := ‘Начинаем качать ...’ ;

else Label3.Caption := ‘Что за корявый ад-

Delete( addr , 1 , ( Pos( ‘/’ , addr ) - 1 ) ) ;

NMFTP1.Download( dir , Edit2.Text ) ;

ðåñ?’ ;

dir := addr ;

Label3.Caption := ‘Óðà !!!’ ;

end

// находим путь к файлу

Label3.Caption := ‘Отключаемся ...’ ;

else Label3.Caption := ‘Введи все данные,

// качаем по фтп

NMFTP1.Disconnect ;

чувак!’ // не все данные

end

end ;

else

Тут тоже все понятно - соединяемся, скачи-

if serv = ‘http:/’ then // впереди http:/

ваем, отсоединяемся. Download берет себе

Сначала мы сохранили адрес из первого эдита

begin

сначала адрес файла в Инете, а потом адрес,

в переменную addr, затем в переменную serv

// качаем по хттп

куда его сохранить на диске. Вот и все. Обраба-

мы из переменной addr копируем 6 символов.

end

тываем кнопки:

Используем функцию Copy. В скобках идут па-

else Label3.Caption := ‘Что за корявый ад-

раметры - сначала пишем переменную, из кото-

ðåñ?’ ;

Button1.Enabled := true ; // включаем кнопку

рой копировать, потом номер символа, с кото-

end

“Закачать”

рого начинать, ну и потом сколько символов ко-

else Label3.Caption := ‘Введи все данные,

Edit1.Enabled := true ;

пировать. Всю скопированную бурду сохраняем

чувак!’ // не все данные

Edit2.Enabled := true ; // врубаем эдиты

в переменной serv, теперь проверяем: если

end ;

Edit1.Clear ;

серв равен ftp://, то качать будем по фтп, а ес-

Итак, сначала функцией Delete стираем первые

Edit2.Clear ; // очищаем эдиты

ли http:/ - по хттп. Ну а если серв другой, то ад-

рес корявый - это и напишем в метке. Кстати,

6 символов из адреса. Функция берет строку,

Поработай немного мышом - добавим несколь-

переменные serv и addr еще не определены, и

из которой стирать, символ, с которого начи-

ко комментариев. Выдели компонент NMFTF1 у

программа будет ругаться (а работать не бу-

нать стирать, количество стираемых символов -

себя на форме, затем кликни в Object

дет). Надо их определить, иди в самый верх ко-

все очень похоже на Copy. Затем в переменную

Inspector’е на вкладку Events (кликай на

äà è

òàì èùè

слово var. Вот после этого слова

host копируем адрес сервака, но вместо коли-

OnConnect, затем на белое место справа - два

и допиши переменные, заодно добавь еще нес-

чества символов там стоит конструкция типа

ðàçà).

КОНСТРУКТОР

>СПЕЦВЫПУСК #4

0053

83

Delete(addr,

1, 7) ;

Теперь, когда прога будет что-то качать, синяя

строчка будет ползти, а в метке будет написано,

В переменной addr у нас адрес, помнишь?

Òàê

сколько байт уже получено. Все эти действия

вот, удаляем из него кусок http:// - это

ОЧЕНЬ

необходимо повторить и для NMHTTP1, только

важно. Почему? Потом объясню. Теперь,

ñîá-

NMFTP1 в коде замени на NMHTTP1. После за-

ственно, скачка:

вершения загрузки очистим ProgressBar - для

этого в конце фтп и хттп фрагментов - там, где

NMHTTP1.InputFileMode := true ;

мы открывали эдиты и очищали их - допиши

NMHTTP1.Body := Edit2.Text ;

следующую строку:

NMHTTP1.Get( addr ) ; // качаем

Опять обрабатываем кнопки:

ProgressBar1.Position := 0 ; // очищаем прог-

ðåññ-áàð

Button1.Enabled := true ; // включаем

кнопку

Теперь сохраняй все и компилируй (дави на F9)

“Закачать”

- получишь вполне работоспособную прогу-ка-

Edit1.Enabled

:= true ;

чалку, пользуйся.

Edit2.Enabled

:= true ; // врубаем эдиты

Ïèøè:

Edit1.Clear

;