Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

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

Весь прикол в том, что если отправлять запрос из браузера, то все ок.
И если попробовать через webbrowser отправить, то тоже все проходит гладко.
А вот когда Я пробую задействаовать индюшку, то вылетает ошибка
На synapse попробовал тоже - ошибка 500.
PHP код:
procedure TForm5.Getz;
var
  
saltstring// переменная для соли
  
hashstring//  для хэша
  
zaprosstring// для запроса
  
linkstring// ссылку которую получаем
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 первого
Ответить с цитированием
 


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:24.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025