Вот полное описание проблемы:
Здравствуйте.
Уже не первый день немогу понять в чем ошибка.
Если беру готовый запрос(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 пустота.
Перенос скомпилинного и переименованного файла в другую папку не помог.
И еще когда Я хотел посмотреть код ошибки, чтоб разобраться в чем ошибка, то вместо кода ошибки показывало содержимое главной страницы сайта
