Четене на headers в WebBrowser

Използвам WebBrowser за сваляне на страници. Преди свалянето искам да разбера типа на сваляната страница, по-точно Content-type. Той се "крие" някъде в Headers, който се връща от метода OnBeforeNavigate2.
Интересува ме пример с който да извлека content-type. Мерси предварително.

чети и дишай по-леко

Az takowata porazgledah MSDN-a ma IWebBrawser2 nema machin za wrashtane na izteglenite hedari - pone doklokoto ne mojah da otkriq ta za twa si mislq che neshto malko neshtoto deto se oppitawash da naprawish sha e baq zorno.....

btw oti ne si otworush socket i da rechesh: HEAD <url> HTTP/1.0#13#10#13#10
i da gledsh ko stawa?
btw ako imash proksi trebe da naprah monekciq kam proksito na ukazaniq port i ulr da e pylno (protkol://host/URI)

------------------------------
I got a COMPILER, and I'm not afraid to use it!

на какво го правиш - мога да помогна за Delphi 5/6

--------------------------------------
Започва Път от моят праг...

Delphi 6. Ще се радвам да се отблагодаря при нужда.

чети и дишай по-леко

с WebBrowser-а не се получи, затова използвам ТNMHTTP - незнам дали ще е удачно/удобно...

procedure TForm1.Button2Click(Sender: TObject);

begin

//искаш хедъра

NMHTTP1.Head('[линк]');

end;



Function GetProperty(Header : String; PropertyName : String) : String;

//cut-ваш си стринга който ти трябва, 

//функцията подлежи на каквото ти хареса подобряване :-)

var i,l : LongInt;

    s : String;

begin

s := '';

i := pos(PropertyName,Header);

if i > 0 then begin

   delete(Header,1, i + Length(PropertyName));

   Header := Trim(Header);

   l := length(Header);

   s := '';

//болката е края на property-то - някакъв EOL /или край на стринга, ест/, 

//и понеже няма яснота кога какъв ще е... та това работи, ама...

   for i := 1 to l do begin

       if ord(Header{i}) > 31 then begin

          s := s + Header{i};

       end else begin

          break;

       end;

   end;

   result := s;

end else begin

   result := '';

end;

end;



procedure TForm1.NMHTTP1Success(Cmd: CmdType);

begin

//проверяваш каква команда е успешна

case Cmd Of

     //ако е от искането на хедъра - обработваш го

     CmdHEAD : memo1.lines.add(GetProperty(NMHTTP1.Header, 'Content-Type'));

     CmdGET : memo1.lines.add(NMHTTP1.Body);

end;

end;

мда, оправи { и } на [ и ] - дирска му работа...

--------------------------------------
Започва Път от моят праг...

Абе ще върши май работа, ама съм зад прокси и като се пробвам да гепа хедъра с Head ми се успива. Уж му сложих IP на проксито и порт, ама нещо се сгегавява...
А извличането на content-type не е проблемно - само да го смъкна.

чети и дишай по-леко

мхм, странно - използвал съм го и зад прохси... обаче не с Head - Get също ще ти свърши работа за Header - по същата схема и мисля че работи добре и зад прокси... евнтуално Timeot на HTTP компонента плюс обработка на OnError /OnFail...

--------------------------------------
Започва Път от моят праг...

S Get servera pochwa da pompa dannite koeto ako mu e golqm prozoreca moje i pozadrasti konekciqtqa za izwesno wreme koeto maj tochno choweka se opitwa da izbegne :))

btw. ot ne si go naprash s direktni soks-owe i da zabrash za problema?

------------------------------
I got a COMPILER, and I'm not afraid to use it!