Из исходного кода в Cookies

[x852x]

Я новичок в делфи нужно переделать из получения исходного кода страницы в получение Cookies

procedure THIWebBrowser._var_Page;
var p:PStream;
    s:string;
begin
   s := '';
   if PKOLWebBrowser(Control).Document <> nil then
    begin
     p := NewMemoryStream;
     (PKOLWebBrowser(Control).Document as IPersistStreamInit).Save(TStreamAdapter.Create(p),true);
     p.Position := 0;
     SetLength(s,p.Size);
     if p.Size > 0 then
      p.Read(s[1],p.Size);
     p.Free;
    end;
   dtString(_Data,s);
end;

вот нашел в нете как получить кук

	var
  document: IHTMLDocument2;
  s:String;
begin
  document := PKOLWebBrowser(Control).Document as IHTMLDocument2;
  if Assigned(document) then
		s:= document.cookie;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор