Странная ошибки в IdHTTP!!! - Работа с сетью в Delphi

$T@LKER · 10.09.2010, 11:45

Все Доброго времени суток! Подскажите пожалуйста что за ошибкая такая:

Выскакивает судя по всему из-за строчки:

Код:

Memo3.Lines.add(Get('www.dom.ria.ua/xml_import_post'));

Пепел Феникса · 11.09.2010, 19:37

вы уверены что там HTTP запрос?
похоже HTTP-заголовков ответа нет, потому такая ошибка(судя по тексту я прав)

решение: получать простым сокетом(может idhttp позволяет это), а не через HTTP(правда сам запрос скорее всего верный HTTP-ишный)

W0LF · 12.09.2010, 15:48

Ссылки нужно указывать обязательно с протоколом...

Код:

Memo3.Lines.add(Get('http://www.dom.ria.ua/xml_import_post'));

$T@LKER · 12.09.2010, 16:24

Цитата:

вы уверены что там HTTP запрос?
похоже HTTP-заголовков ответа нет, потому такая ошибка(судя по тексту я прав)

решение: получать простым сокетом(может idhttp позволяет это), а не через HTTP(правда сам запрос скорее всего верный HTTP-ишный)

Вот мой код:

Код:

procedure TAdd.Button1Click(Sender: TObject);
begin

with idhttp1 do
  begin
    Host := 'www.dom.ria.ua';
    AllowCookies := True;
    HandleRedirects:=true;
with Request do
  begin
    Host := 'dom.ria.ua';
    Connection := 'keep-alive';
    CacheControl := 'max-age=0';
    Accept := 'application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5';
    UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/533.9 (KHTML, like Gecko) Chrome/6.0.400.0 Safari/533.9';
    AcceptEncoding := 'gzip,deflate,sdch';
    AcceptLanguage := 'ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
    AcceptCharSet := 'windows-1251,utf-8;q=0.7,*;q=0.3';
  end;
end;

 memo3.Lines.Clear;
 Memo3.Lines.add(idhttp1.Get('www.dom.ria.ua/xml_import_post'));

end;

В результате ошибка та что на картинке в первом посте! Так что же мне делать подскажите пожалуйста?

Цитата:

Ссылки нужно указывать обязательно с протоколом...

Я и так тоже пробовал! И в ответ получал почти туже ошибку что и в первом посте тока в скобках в место - <html> - HTTP/1.1 404 Not Found

Интересно то что страница то есть!!! Но код страницы всего пару строчек а его получить почему то не могу!!!

Код:

<html>
<head>
</head>
<body>
No input file specified.
</body>
</html>

Voody · 12.09.2010, 17:07

Всё работает правильно. Сервер выдает код ответа 404. И текст. Программа, естественно, считает, что страница не найдена и текст ответа не получает.
Заключите запрос в try-except и в случае возврата 404 будете знать, что сервер выдал "No input file specified"

$T@LKER · 12.09.2010, 19:37

Спасибо буду пробовать!

$T@LKER · 12.09.2010, 21:03

Вернулся за помощью)! Кое что переработал так как говорил Voody:

Код:

procedure TAdd.BitBtn4Click(Sender: TObject);
var
  xml_file : TStringList;
  s : string;
begin

DR_Login.showmodal;

if dr_ln = true then
  begin

CreateXML(edit15.text, edit11.Text, edit7.Text, datamodule2.Arenda.Fields.Fields[0].AsString,
          edit10.text, edit4.text, edit9.text, edit14.text, edit17.text, edit8.text, edit13.text,
          edit12.text, edit21.text, memo1.Text, areview.label4.caption);

xml_file := TStringList.Create;
xml_file.Clear;
xml_file.Add('key=код');
xml_file.Add('login=' + login);
xml_file.Add('password=' + password);
memo2.Clear;
memo2.Lines.LoadFromFile('C:\Lider\dr\' + areview.label4.caption + '.xml');

//showmessage('');
xml_file.Add('xml_file=' + AReview.Memo2.Lines.Text);

with idhttp1 do
  begin
    //port := 80;
    //Connect(500);
    AllowCookies := True;
    HandleRedirects:=true;
  try
    memo3.Lines.Clear;
    Memo3.Lines.add(Get('http://dom.ria.ua/xml_import_post'));
  except
    showmessage('No Inputt File Specifield!!!');
  end;
with Request do
  begin
  try
    Host := 'dom.ria.ua';
    Connection := 'keep-alive';
    CacheControl := 'max-age=0';
    Accept := 'application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5';
    UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/533.9 (KHTML, like Gecko) Chrome/6.0.400.0 Safari/533.9';
    AcceptEncoding := 'gzip,deflate,sdch';
    AcceptLanguage := 'ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
    AcceptCharSet := 'windows-1251,utf-8;q=0.7,*;q=0.3';
  except
    showmessage('Нету подключения к Интернету!!!');
  end;
  end;
  try
   AReview.Memo2.Lines.Text := Post('http://dom.ria.ua/xml_import_post', xml_file);
  except
     on E : Exception do
      ShowMessage(E.ClassName+' поднята ошибка, с сообщением : '+E.Message);
  end;
end;
xml_file.Free;

deletefile('C:\Lider\dr\' + areview.label4.caption + '.xml');

dr := true;

end;

BitBtn1Click(sender);

end;

Но почему в блоке:

Код:

try
   AReview.Memo2.Lines.Text := Post('http://dom.ria.ua/xml_import_post', xml_file);
  except
     on E : Exception do
      ShowMessage(E.ClassName+' поднята ошибка, с сообщением : '+E.Message);
  end;
end;

выполняеться отлов ошибки HTTP/1.1 404 Not Found а не отправка данных на сервер ???

Пепел Феникса · 12.09.2010, 21:49

вообще то сначало отправка потом отлов, ибо мы сначало посылаем запрос, потом читаем ответ.

$T@LKER · 12.09.2010, 22:02

Цитата:

вообще то сначало отправка потом отлов, ибо мы сначало посылаем запрос, потом читаем ответ.

Ну я понимаю! Сначала посылается запрос, затем получаем ответ! Это понятно! Не понятно почему в итоге я получаю ошибку HTTP Not Found??? Админы того сайта сказали мне вот что:

Цитата:

ответ в xml
форматеследующего вида:

Код:

<?xml version="1.0" encoding="UTF-8"?>
<root>
<Message>Event: Checking input params</Message>
<Message>Message:User with given params exists</Message>
<Message>Message:Given user is owner of agency with id = 16875</Message>
<Message>now imported 6</Message>
<Status>sucсess</Status>
</root>

<Status> - может быть 'sucсess' или 'failed' в случае отсутствия прав
доступа юзера к такой форме импорта
<Message> - соответсвующие сопроводительніе сообщения.

Пепел Феникса - вы говорили что проблема может скрываться в формате xml??? Объясните пожалуйста???

Voody · 12.09.2010, 23:05

Если вы знакомы с админами, то спросите у них, почему сервер выдает код 404))
Пока сервер будет выдавать этот код, текст ответа вы не получите. Может какие-то другие компоненты это позволяют, но не Indy. Ибо 404 означает, что страница не найдена, т.е. то, что запрашивает клиент, на сервере нет и получать там нечего

10.09.2010, 11:45	#1
$T@LKER Форумчанин Регистрация: 28.03.2009 Сообщений: 393	Странная ошибки в IdHTTP!!! Все Доброго времени суток! Подскажите пожалуйста что за ошибкая такая: Выскакивает судя по всему из-за строчки: Код: `Memo3.Lines.add(Get('www.dom.ria.ua/xml_import_post'));` ""Сериалы и компьютерные игры это словно вторая жизнь, которою ты проживаешь, во главе главного героя или персонажа, параллельно своей!""

11.09.2010, 19:37	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	вы уверены что там HTTP запрос? похоже HTTP-заголовков ответа нет, потому такая ошибка(судя по тексту я прав) решение: получать простым сокетом(может idhttp позволяет это), а не через HTTP(правда сам запрос скорее всего верный HTTP-ишный) Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

12.09.2010, 15:48	#3
W0LF Форумчанин Регистрация: 28.03.2008 Сообщений: 940	Ссылки нужно указывать обязательно с протоколом... Код: `Memo3.Lines.add(Get('http://www.dom.ria.ua/xml_import_post'));`

12.09.2010, 19:37	#6
$T@LKER Форумчанин Регистрация: 28.03.2009 Сообщений: 393	Спасибо буду пробовать! ""Сериалы и компьютерные игры это словно вторая жизнь, которою ты проживаешь, во главе главного героя или персонажа, параллельно своей!""

12.09.2010, 21:49	#8
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	вообще то сначало отправка потом отлов, ибо мы сначало посылаем запрос, потом читаем ответ. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

12.09.2010, 17:07	#5
Voody Форумчанин Регистрация: 22.06.2009 Сообщений: 310	Всё работает правильно. Сервер выдает код ответа 404. И текст. Программа, естественно, считает, что страница не найдена и текст ответа не получает. Заключите запрос в try-except и в случае возврата 404 будете знать, что сервер выдал "No input file specified"

12.09.2010, 23:05	#10
Voody Форумчанин Регистрация: 22.06.2009 Сообщений: 310	Если вы знакомы с админами, то спросите у них, почему сервер выдает код 404)) Пока сервер будет выдавать этот код, текст ответа вы не получите. Может какие-то другие компоненты это позволяют, но не Indy. Ибо 404 означает, что страница не найдена, т.е. то, что запрашивает клиент, на сервере нет и получать там нечего

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Странная ошибка	Dux	SQL, базы данных	5	23.03.2010 12:16
Странная ошибка	k1r1ch	Общие вопросы Delphi	10	25.06.2009 13:43
Странная задача	ARF_name	Паскаль, Turbo Pascal, PascalABC.NET	1	29.04.2009 11:24
Странная реакция	drknn	Помощь студентам	2	02.09.2007 15:51