|
Нужна Инфа...
|
| Автор |
Сообщение |
lazutov
while (1==1);
Зарегистрирован: 30.04.2007
Сообщения: 3840
111220 
|
|
| Вернуться к началу |
|
 |
[LP]LordPro.teus
Призрак Лорда
Зарегистрирован: 26.07.2007
Сообщения: 5092
42282
|
 Добавлено: Сб, 18 Авг, 2007 18:46 Заголовок сообщения: |
 |
|
Скорее всего, проще банальным скриптом вырезать все теги картинок, флеш и подобного... чем-то похоже на FineWeb 
_________________
 
До выхода LiteDiary 0.3.0: парам-пам-пам-пам! Она уже здесь! |
|
| Вернуться к началу |
|
|
goodluck
Хостинг — это наше всё!
Зарегистрирован: 25.03.2007
Сообщения: 245
5685
|
| Добавлено: Сб, 18 Авг, 2007 19:04 Заголовок сообщения: |
|
|
| уточните что вам необходимо, просто совет или готовая реализация? |
|
| Вернуться к началу |
|
|
lazutov
while (1==1);
Зарегистрирован: 30.04.2007
Сообщения: 3840
111220
|
|
| Вернуться к началу |
|
|
goodluck
Хостинг — это наше всё!
Зарегистрирован: 25.03.2007
Сообщения: 245
5685
|
| Добавлено: Вс, 19 Авг, 2007 07:06 Заголовок сообщения: |
|
|
В VC есть компонент WebBrowserView, в Borland C++ Builder компонент
CppWebBrowser или TCppWebBrowser точно не скажу, через функцию Navigate заходит на сайт. Я бы делал как - то так.
_________________
Статьи и заметки про Интернет |
|
| Вернуться к началу |
|
|
lazutov
while (1==1);
Зарегистрирован: 30.04.2007
Сообщения: 3840
111220
|
|
| Вернуться к началу |
|
|
onyx
11 1110 1000
Зарегистрирован: 02.04.2007
Сообщения: 1061
Откуда: Минск
530
|
| Добавлено: Ср, 29 Авг, 2007 04:33 Заголовок сообщения: |
|
|
Блин.... давно не посищал сие раздел... та кбы сразу помог!
Вот тержи код. Он вытягивает HTML код указанной линки и сохраниет... кароч сам разберешься!
От сердца отрываю! Сам писал, для себя. Полностью готовая прога. Правда консоль. Просто вводишь линк а он сохраняет в файл download_cod.txt
www.onyx.uzelok.net/html_loader.zip
_________________
DelphiLand.net - Территория Delphi :: Исходники, компоненты, программы, статьи, журнал, форум.
Последние новости. И многое, многое другое! |
|
| Вернуться к началу |
|
|
lazutov
while (1==1);
Зарегистрирован: 30.04.2007
Сообщения: 3840
111220
|
| Добавлено: Ср, 29 Авг, 2007 07:24 Заголовок сообщения: |
|
|
Прикольная прога.
Соственно прикольно, возможно перепишу на делфи
как перепишу так положу к ьтебе на сайт.
Спасиб.
_________________
сервис DNS | разные http, DNS и прочие утилиты |
|
| Вернуться к началу |
|
|
onyx
11 1110 1000
Зарегистрирован: 02.04.2007
Сообщения: 1061
Откуда: Минск
530
|
| Добавлено: Ср, 29 Авг, 2007 07:37 Заголовок сообщения: |
|
|
так а ч там переписвать-то?
Просто придай ей win интерфейс и юзабилити...)
Там ведь готовые процы. Просто мне удобней было консолью.. + не нудно было над интерфейсом голову ломать)...
_________________
DelphiLand.net - Территория Delphi :: Исходники, компоненты, программы, статьи, журнал, форум.
Последние новости. И многое, многое другое! |
|
| Вернуться к началу |
|
|
onyx
11 1110 1000
Зарегистрирован: 02.04.2007
Сообщения: 1061
Откуда: Минск
530
|
| Добавлено: Ср, 29 Авг, 2007 07:38 Заголовок сообщения: |
|
|
| Цитата: | | Соственно прикольно, возможно перепишу на делфи |
А она и написана на Delphi
_________________
DelphiLand.net - Территория Delphi :: Исходники, компоненты, программы, статьи, журнал, форум.
Последние новости. И многое, многое другое! |
|
| Вернуться к началу |
|
|
noLove
Два пингвина
Зарегистрирован: 25.04.2007
Сообщения: 352
18114
|
| Добавлено: Ср, 29 Авг, 2007 13:49 Заголовок сообщения: |
|
|
ну он свой вариант напишыт %))
_________________
Друзья, уважайте труд других
http://xternalx.com - моя хомпага
 |
|
| Вернуться к началу |
|
|
lazutov
while (1==1);
Зарегистрирован: 30.04.2007
Сообщения: 3840
111220
|
|
| Вернуться к началу |
|
|
onyx
11 1110 1000
Зарегистрирован: 02.04.2007
Сообщения: 1061
Откуда: Минск
530
|
| Добавлено: Вт, 09 Окт, 2007 18:08 Заголовок сообщения: |
|
|
lazutov
Не могу скачать. Ещё как вариант + за использование данного мною кода можно и было бы неплохо разместить здесь http://www.onyx.uzelok.net/
_________________
DelphiLand.net - Территория Delphi :: Исходники, компоненты, программы, статьи, журнал, форум.
Последние новости. И многое, многое другое! |
|
| Вернуться к началу |
|
|
lazutov
while (1==1);
Зарегистрирован: 30.04.2007
Сообщения: 3840
111220
|
| Добавлено: Вт, 09 Окт, 2007 18:34 Заголовок сообщения: |
|
|
ну там ээээ
| Код: | unit WebDetU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
web: TIdHTTP;
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Text:=Web.Get('http://'+edit1.Text);
Button1.Caption:=edit1.Text + ' Done';
end;
end. |
_________________
сервис DNS | разные http, DNS и прочие утилиты |
|
| Вернуться к началу |
|
|
onyx
11 1110 1000
Зарегистрирован: 02.04.2007
Сообщения: 1061
Откуда: Минск
530
|
| Добавлено: Ср, 10 Окт, 2007 16:03 Заголовок сообщения: |
|
|
lazutov
так ты "IDE" к той консоли не дописал? Просто поле и кнопка загрузить? 
_________________
DelphiLand.net - Территория Delphi :: Исходники, компоненты, программы, статьи, журнал, форум.
Последние новости. И многое, многое другое! |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
