Всем привет, проблема такова:
Не могу создать WinHttpRequest компонент в потоке.
Код:
procedure potok.Execute;
var Req: OleVariant;
begin
showmessage('Старт');/// Работает
Req := CreateOleObject('WinHttp.WinHttpRequest.5.1');
showmessage('Финиш'); /// Не работает
end;
Если делать без потоков, то все норм.
Последний раз редактировалось \PaLaDin/; 25.01.2015 в 15:23.
procedure potok.Execute;
var Req: OleVariant;
begin
try
showmessage('Старт');/// Работает
Req := CreateOleObject('WinHttp.WinHttpRequest.5.1');
showmessage('Финиш'); /// Не работает
except
on E : Exception do
Showmessage(E.ClassName+' ошибка с сообщением: '+E.Message);
end;
end;
Начни с этого хотябы. Вероятно, что в процессе создания возникает ошибка.
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
Пишу софт на заказ(Delphi / C# / PHP-скрипты). Описывайте задачи и цели софта, сообщайте сумму на которую рассчитываете.
Skype: vinozavr (Молдова)
Кто плюсует популярность, подписывайтесь пожалуйста)