Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.07.2012, 21:55   #1
rafffkaaa
Пользователь
 
Регистрация: 04.01.2012
Сообщений: 26
По умолчанию Проблемы с indy - get

Весь прикол в том, что если отправлять запрос из браузера, то все ок.
И если попробовать через webbrowser отправить, то тоже все проходит гладко.
А вот когда Я пробую задействаовать индюшку, то вылетает ошибка
На synapse попробовал тоже - ошибка 500.
Код:
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;
application.ProcessMessages;
end;
Пробовал создать отдельный проект, т.к думал может где в другом месте накосячил. Тоже ошибки
Еще обнаружился один прикол.
Когда шло несколько запросов подряд, то она второй запихала в post первого

Последний раз редактировалось Stilet; 23.07.2012 в 22:04.
rafffkaaa вне форума Ответить с цитированием
Старый 25.07.2012, 04:26   #2
Alex2009
Proger Man
Форумчанин
 
Аватар для Alex2009
 
Регистрация: 07.03.2009
Сообщений: 584
По умолчанию

что показывает HttpAnalyzer?
Какой то странный у вас код!
Пишите в skype - svkileer помогу
ShowMessage('Добро пожаловать!');
Alex2009 вне форума Ответить с цитированием
Старый 26.07.2012, 18:12   #3
rafffkaaa
Пользователь
 
Регистрация: 04.01.2012
Сообщений: 26
По умолчанию

Полное описание проблемы:

Здравствуйте.
Уже не первый день немогу понять в чем ошибка.
Если беру готовый запрос(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 глобальная переменная

p.s.s Также:
Ошибка вылетает такая:
"Project Project1.exe raised exception class EidHTTPProtocolException with message 'ace('d_',");' . Process stopped.
Use Step or Run to contine.
В ResponseText пустота.
Перенос скомпилинного и переименованного файла в другую папку не помог.
И еще когда Я хотел посмотреть код ошибки, чтоб разобраться в чем ошибка, то вместо кода ошибки показывало содержимое главной страницы сайта

Последний раз редактировалось rafffkaaa; 26.07.2012 в 18:16.
rafffkaaa вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблемы при работе с INDY (idIRC) ZBEP Работа с сетью в Delphi 3 04.02.2013 01:30
Проблемы с кодировкой (delphi 7, Indy 10.5.7) oleg_498 Работа с сетью в Delphi 6 06.12.2010 10:31
Проблемы с новой версией Indy RIO Работа с сетью в Delphi 7 04.12.2009 17:13
Проблемы Indy 10 OrdJONY Работа с сетью в Delphi 2 09.10.2007 23:21
проблемы с Indy senalex Работа с сетью в Delphi 9 11.09.2007 12:25