Форум: "Начинающим";
Текущий архив: 2007.12.02;
Скачать: [xml.tar.bz2];

Вниз

Обработка ошибки   Найти похожие ветки 

← →
lobach   (2007-11-09 11:01) [0]

Здравствуйте. Подскажите, почему не обрабатывается ошибка:

procedure TForm1.Button1Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
text: string;
begin
data := TIdMultiPartFormDataStream.Create;
try
data.AddFormField("user", "username");

text := IdHTTP1.Post("http://localhost/test.php", data);
 except

 on EIdException do
  showmessage("Ошибка");
end;
Showmessage(text);
end;

Код должен выдавать сообщение "ошибка", если не может выполнить запрос, или с результатом запроса.

---

← →
Reindeer Moss Eater ©   (2007-11-09 11:03) [1]

Ты обрабатываешь только случай с EIdException, а это не есдинственное что может случиться

---

← →
Ega23 ©   (2007-11-09 11:05) [2]

> data := TIdMultiPartFormDataStream.Create;


Где вызов деструктора?

---

← →
lobach   (2007-11-09 11:09) [3]

> Где вызов деструктора?

Будет...

А я еще слышал, что что-то в настройках компилятора надо менять, чтоб он ошибки эти показывал, вместо своих.

---

← →
lobach   (2007-11-09 11:13) [4]

Спасибо, разобрался...

---

← →
Anatoly Podgoretsky ©   (2007-11-09 12:32) [5]

except

on EIdException do
 showmessage("Ошибка");

Бр!
И ставим в тупик и пользователя и разработчика.
Как любит программист поиздеваться над пользователем.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.12.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.082 c