VPF::Как я могу получить код веб страницы?

Daedra

Дата 25.6.2007, 02:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 22.6.2007

Репутация: нет
Всего: нет

Не могу найти исходники чтоб получить код веб страницы.....Нашёл вот этот

Код


uses IdHTTP;
var 
s: string;
http: TIdHTTP;
begin
http:=TIdHTTP.Create(nil);
s:=http.Get('http://www.yandex.ru/');
http.Free;
end;

Но он не работает,пишет Socket error #10054....Не знаю что и делать...Через NMHHTP1 пробовал,получалось раньше,но библиотеки пятого делфи Fastnet испортились...

Добавлено через 2 минуты и 50 секунд
Socket error 10054 Connection reset by peer...Использую делфи 7.

Snowy

Дата 25.6.2007, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Прокси, файрволы?
Проблема не в коде, а в твоей машине/сети
Кто-то не даёт твоей программе коннектиться.

Daedra

Дата 25.6.2007, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 22.6.2007

Репутация: нет
Всего: нет

Вот посмотрите мой код(часть кода):

Код


function Connection : boolean;
var
wsa : TWSAData;
begin
WSAStartup ($0202, wsa);
Result := gethostbyname('google.com') <> nil;
WSACleanup;
end;

procedure TDataModule3.Timer1Timer(Sender: TObject);
begin
While r=false do begin
if connection=false then while connection=false do sleep(900000);
If connection=true then sleep(8000);
If connection=true then begin
  NMHTTP1.Get('yandex.ru');
  Body:= NMHTTP1.body;
  r:=true;
end else r:=false;
end;
...

Когда я убираю функцию проверки коннекта код работает нормально...Но я не могу её убрать,тк если не будет коннекта прога будет входить в стопор...

Добавлено через 2 минуты и 22 секунды
Может нужна ещё какая-нибудь строка для очистки сокетов(хотя там есть WSACleanup;)?....

Daedra

Дата 25.6.2007, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 22.6.2007

Репутация: нет
Всего: нет

Верхний код заработал! А всё было из-за банального не указания http://.../

Snowy

Дата 25.6.2007, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Ну, в примере он указан...
А вообще Get нужно брать в конструкцию try..except, иначе нарвёшься на исключение при ошибках связи.

Daedra

Дата 26.6.2007, 00:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 22.6.2007

Репутация: нет
Всего: нет

Спасибо за помощь.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »