Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
12th
Сен
Узнать о редиректе при отправке данных формы
Posted by Chas under Delphi
При отправке данных происходит редирект. Он может быть редиректом на ошибку или на главную. Мне нужно поймать этот редирект и, если редирект на главную, вывести сообщение об успехе. Как осуществить?
Кольша
var
s:string;
begin
http.HandleRedirects := False;
try
s:=HTTP.get('http://site.ru');
except
if (http.ResponseCode=302) then begin
s:=http.Response.Location;
if s='http://site.ru' then
showmessage('message about win')
else
showmessage('message about error');
end;
end;
