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

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

← →
ANikolay   (2007-03-15 13:57) [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

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

---

← →
Плохиш ©   (2007-03-15 14:02) [1]

Предлагаешь нам потелепатировать?

---

← →
ANikolay   (2007-03-15 14:06) [2]

> Предлагаешь нам потелепатировать?


в обычном приложении соединяется нормально!... может OLE какое-то ограничение накладывает?... или в компоненте может быть дело?... хочу услышать, что может мешать работе?!.. мож кто сталкивался уже....

---

← →
Плохиш ©   (2007-03-15 14:10) [3]

Прикольно, вместо того, чтобы послушать, что говорит отладчик по этому поводу, хотят послушать совета у кого-то. Хотя я знаю ответ, но он тебе не понравиться...

---

← →
ANikolay   (2007-03-15 14:12) [4]

> Прикольно, вместо того, чтобы послушать, что говорит отладчик
> по этому поводу, хотят послушать совета у кого-то. Хотя
> я знаю ответ, но он тебе не понравиться...


О! Пишет Could not load SSL library
а что может мешать загрузить эту библиотеку?

---

← →
Reindeer Moss Eater ©   (2007-03-15 14:16) [5]

а что может мешать загрузить эту библиотеку?

Отсутствие библиотеки там, где её ищет windows.

---

← →
ANikolay   (2007-03-15 14:33) [6]

может библиотека ищется там, откуда OLE-объект регистрирую?
пробовал зарегить объект из system32:

regsvr32.exe C:\WINDOWS\system32\TelOLE.dll

та же ошибка :(

---

← →
Сергей М. ©   (2007-03-15 14:45) [7]

> пробовал зарегить объект из system32:


А на луне ты ее еще не пробовал зарегистрировать ?

Речь-то идет совсем о другой библиотеке !

Ее и ищи, если она вообще есть у тебя на хосте

---

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

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



Память: 0.46 MB
Время: 0.041 c