Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не могу отправить запрос из Delphi 
:(
    Опции темы
rafffkaaa
Дата 25.7.2012, 17:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Здравствуйте.
Уже не первый день немогу понять в чем ошибка.
Если беру готовый запрос(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 глобальная переменная 
PM MAIL   Вверх
rafffkaaa
Дата 29.7.2012, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Проблема решена.
В переменной ip были лишние символы
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

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


 




[ Время генерации скрипта: 0.0438 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.