Скачать: CL | DM;

Использование TidHTTP в OLE-объекте   Найти похожие ветки 

← →
ANikolay   (2007-03-15 13:38) [0]

Создал 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

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

---

← →
umbra ©   (2007-03-15 16:54) [1]

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

---

← →
clickmaker ©   (2007-03-16 17:43) [2]

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

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

ы?

---

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

Скачать: CL | DM;



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