| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Использование TidHTTP в OLE-объекте [Delphi, Windows]

ANikolay ©   (2007-03-15 13:38:00) 

Создал OLE-объект, в котором в одной форме есть TIdHTTP, так он не хочет соединяться!!!!.... :(

procedure TForm1.Button1Click(Sender: TObject);
var
 TelOLE: OLEVariant;
begin
 TelOLE := CreateOleObject('TelOLE.TelOLEclass');
 try
   TelOLE.TestConnect;
 finally
   TelOLE := Unassigned;
 end;
end;

//проверка связи
function TDMPaymCartel.TestConnect: boolean;
begin
   result := false;
   ShowMessage('1'); // !
   idHTTP1.Host := CartelURL;
   ShowMessage('2'); // !
   try
     if not idHTTP1.Connected then
       idHTTP1.Connect(10000);
     ShowMessage('3');
     idHTTP1.Disconnect;
     ShowMessage('4');
     result := true;
   except
     ShowMessage('5'); // !
     Raise Exception.Create('Не удалось установить соединение');
   end;
   ShowMessage('6');
end;

Выводятся сообщения 1, 2... потом сразу 5.......
проверил, что idHTTP1 <> nil

в чем может быть дело?!

---

clickmaker   (2007-03-16 17:43:00) [1]

> except
>      ShowMessage('5'); // !

а почему бы не
except
 on E:Exception do ShowMessage(E.Message);

ы?

---

umbra   (2007-03-15 16:54:00) [2]

для начала надо убрать try ... except, что бы видеть, какое исключение происходит

---

Наверх