Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Не могу отправить запрос из Delphi

Автор: rafffkaaa 25.7.2012, 17:37

Здравствуйте.
Уже не первый день немогу понять в чем ошибка.
Если беру готовый запрос(get) и вставляю его в браузер, то все проходит нормально.
А если отправляю запрос с delphi (пробывал indy, synapse), то запрос не отправляеться (в сниффере пусто).
Если использовать webbrowser, то в новом проекте все ок, а в котором пишу, то вылетает ошибка (страница не найдена в интернете: "ссылка". Перебивал ссылку в браузер => все ok).
Post запрос(из indy, через synapse неумею) сначало тоже не отправлялся, но после ansitoutf8 начал отправляться. Но скрипт ничего в ответ не выдал.
Скрипт на php писал Я.
В другом проекте он прекрасно работал => проблема в скрипте отпадает, т.к Я его не исправлял.
Единственное различие в том, что раньше скрипт находился в папке publik_html (<-как-то так)
Насчет хостинга неуверен, пробывал на другом хостинге, тоже самое.
Ставил timeout 10 секунд, непомогло.
Вот собственно код:

Код


procedure TForm5.Getz;
var
  salt: string; // переменная для соли
  hash: string; //  для хэша
  zapros: string; // для запроса
  link: string; // ссылку которую получаем
begin
  link := edit1.Text+'@'+ms;
  salt := '13qus'; // это соль
  salt := salt+link+link+salt+salt;
  hash := md5(trim(salt));   // делаем хэш
  zapros := 'http://server.odbot.ru/server.php?ip='+ip+'&link='+link+'&hash='+hash;
  try
    begin
      IdHTTP3.Get(zapros); // вот тут собственно проблемы
      Edit1.Enabled := false; 
      ComboBox1.Enabled := false;
      klm := 1;
    end;
  except
    begin
      ShowMessage('Ошибко');
      Exit;
    end;
  end;
end;

p.s ip параметр не критичный, можете указать вообще любой,
klm глобальная переменная

Автор: rafffkaaa 29.7.2012, 20:25

Проблема решена.
В переменной ip были лишние символы