создание idhttp динамично

[Pein95]

s:=tidhttp.Create();
  s.HandleRedirects:=true;
  s.AllowCookies:=true;
  s.CookieManager:=form2.CM

ну етот код работает норм... у меня програма имеет несколько потоков во я и решыл что можно создать юнит с несколькими ф-ями и использовать етот модуль... пока что там токо одна ф-я:

unit vkdow;


interface
uses idhttp,IdCookieManager;

function createserv(serv:tidhttp;coo:tIdCookieManager):boolean;

implementation
 function createserv(serv:tidhttp;coo:tIdCookieManager):boolean ;
  begin
    serv:=tidhttp.Create();
    serv.HandleRedirects:=true;
    serv.AllowCookies:=true;
    serv.CookieManager:=coo;
  end;

end.

когда я использую ф-ю с етого модуля вместо кода который напечатал выше... тупо не работает... никаких ошыбок просто не проходит запрос... в чем может быть причина?

[Человек_Борща]

.. если я собираюсь работать с веб, то не кидаю компоненту на форму, а делаю так(в потоке):

uses ....,idHTTP:

procedure smth;
var
 http:TIdHTTP;
begin
http:=TidHTTP.Create(nil);
try
{something code here}
finally
FreeAndNil(http);
end;
end;

а ошибка ваша в ом что у компоненты долже быть Owner в моём случае Nil т.к. создаю его в потоке.

[Pein95]

сделал вот так:

unit vkdow;


interface
uses idhttp,IdCookieManager;

procedure createserv(serv:tidhttp;coo:tIdCookieManager);

implementation
 procedure createserv(serv:tidhttp;coo:tIdCookieManager) ;
  begin
   serv:=tidhttp.Create(nil);
  

    serv.HandleRedirects:=true;
    serv.AllowCookies:=true;
    serv.CookieManager:=coo;
 
  end;

end.

вот код потока:

unit autho;
interface
uses
  Classes,VK_API,  Dialogs,IdHTTP,SysUtils,vkdow;
type
  authp = class(TThread)
  private
    { Private declarations }
  protected
    procedure authorization;
    procedure Execute; override;
  end;

implementation
uses authunit,unit2;


procedure authp.Execute;

begin
authorization;
end;

procedure authp.authorization;
var
data:tstringlist;
idhttp:tidhttp;
pageprofile:string;
a:boolean;
begin
   data:= TStringList.Create();
   {idhttp:=tidhttp.Create();
   idhttp.HandleRedirects:=true;
   idhttp.AllowCookies:=true;
   idhttp.CookieManager:=form2.CM; //кукіменеджер   }

   createserv(idhttp,form2.CM);


pageprofile:=idhttp.Get('http://vkontakte.ru/login.php?email='+authform.mailedit.Text+'&pass='+authform.passedit.Text);
if Pos('logout', PageProfile)<>0 then
a:=form2.save(form2.codememo,pageprofile,'index.html');

data.Addstrings(GET_VKAPI_SESSION(authform.MailEdit.Text,authform.PassEdit.Text,'2248956'));
form2.infabakmemo.Lines.AddStrings(data);

idhttp.Free;

form2.onofline.visible:=true;
end;


end.

результа тот же...

[Pein95]

кто может чтото подсказать?)

[Pein95]

неужели никто не знает что здесь можно сделать другой день над етим сижу...