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

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

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

ANikolay ©   (2007-03-15 13:57: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

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

---

Сергей М.   (2007-03-15 14:45:00) [1]

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


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

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

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

---

ANikolay   (2007-03-15 14:33:00) [2]

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

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

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

---

Reindeer Moss Eater   (2007-03-15 14:16:00) [3]

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

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

---

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

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


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

---

Плохиш   (2007-03-15 14:10:00) [5]

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

---

ANikolay   (2007-03-15 14:06:00) [6]

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


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

---

Плохиш   (2007-03-15 14:02:00) [7]

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

---

Наверх