Всем привет.

Сегодня я покажу как создать сайт менее чем за 10 минут на делф7 (DELPHI7)  !!!  В качестве донора выбрал сайт _http://www.stihi-rus.ru/ ничего личного , просто с него тырить контент не составить труда. Да и еще улыбнуло вот это---— """""""*** В соответствии со ст. 487 ГК РФ составитель сборника, обработавший или систематизировавший включенные в сборник произведения, являющиеся предметом чьего-либо авторского права, пользуется авторским правом на сборник..."""""" , во первый врать не хорошо , так как такого закона нету и не будет !!! , существовал такой , когда был СССР "ГК РСФСР" . К великому сожалению распал советский союз , следовательно закон утратил силу. Да и к тому теперь за этим ни кто не следить , и тем более в интернете.

________________________________________________________

1) Изучаем исходный код сайта , изучили? теперь думаем как вебмастер. Смотрим на часть исходного кода
"<a href="3.htm">Береза</a><br>" - это говорить что файл лежит в одном каталоге с файлом index.htm , да и нет ссылки , что очень облегчает нашу работу , так как не придется менять ссылки !!! К тому же ссылки тупо сформированы ('http://www.stihi-rus.ru/1/Esenin/1.htm , ... 2.htm  ну и тд , что тоже облегчает нашу работу.

2) Открываем делфи закидываем на форму компоненты button , idhttp. И создаем процедуру.
procedure TForm1.Button1Click(Sender: TObject);
var GoodFile:textfile; s:string; i:integer;
begin
for i:=1 to 172 do try // у меня try место begin'a
s:=idhttp1.get('http://www.stihi-rus.ru/1/Esenin/'+inttostr(i)+'.htm'); // получаем исходный код сайта
Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+inttostr(i)+'.htm'); // создаем файл c расширением htm
Rewrite(GoodFile); // открываем для чтения
Closefile(GoodFile); // закрываем файл
Append(GoodFile); // открываем файл
Writeln(GoodFile,s); // записываем на файл исходный код сайта
s:='';
Closefile(GoodFile);
finally
end;
end;

Да и еще мы не спарсили исходный код главной странички http://www.stihi-rus.ru/1/Esenin/ , это идет как карта сайта.

Важно сохраняем этот исходный код как index.htm .

3) После того как мы спарсили исходный кодик заливаем их на сервер (хостинг). Я залил сюда http://fyseofiles.zz.mu/Esenin/

__________ Готовый сайт менее чем за 10мин______________
____________http://fyseofiles.zz.mu/Esenin/ ____________
PS На счет дизайна не пинать , я не владею языком html , можно было дизайн хороший замутить.
PSS Можно замутит сразу чтобы он после того как создал файл *.htm сразу грузил на хостинг. Ну об этом напишу по позже.

Ну вот и все
Удачи !!!

Также можете создать форум бесплатно