HTML исходный код (парсинг)

[DjDram]

Сообщение от Пепел Феникса

потому что надо ждать события OnDocumentComplete(и в том еще проверять на статус браузера)

о да понял про событие уже получилось а как правильно создать и разрушить объект webbrowser1

procedure TForm1.Button2Click(Sender: TObject);
begin
TRY
 webbrowser1.create(nil);
 BEGIN
    webbrowser1.Navigate('http://www.youtube.com/watch?v=lkKhfP4fZZs&feature=relmfu');
 END;
FINALLY
  webbrowser1.FREE;
END;

так ошибка получается

[Пепел Феникса]

кто вас так учил создавать объекты?
да и зачем в вашем случае уничтожать и создавать компонент кинутый на форму?

[DjDram]

да потомучто он мне нужен только для снятия исходного кода через idHTTP код получается не такой вот и приходиться заморачиваться с WebBrowser а чтоб он в памяти висел не вижу смысла

P.S. С формы я его уже убрал.

[Пепел Феникса]

var WB:TWebBrowser;
begin
 WB:=TWebBrowser.Create(nil);
 WB.Navigate(<addr>);
 while WB.readyState<>4 do Application.ProcessMessages;//помоему 4 там
 SaveHTMLSourceToStrings(Memo1.Lines,WB);
 WB.free;
end;

PS: повторю еще раз, в первом коде(пост 1) вы неверно маскировались под ИЕ.
не такие у него заголовки.

[DjDram]

Сообщение от Пепел Феникса

var WB:TWebBrowser;
begin
 WB:=TWebBrowser.Create(nil);
 WB.Navigate(<addr>);
 while WB.readyState<>4 do Application.ProcessMessages;//помоему 4 там
 SaveHTMLSourceToStrings(Memo1.Lines,WB);
 WB.free;
end;

PS: повторю еще раз, в первом коде(пост 1) вы неверно маскировались под ИЕ.
не такие у него заголовки.

Странно вроде всё верно а не работает, да было бы супер если бы замаскироваться по ИЕ ну не где нету инфы.

procedure TForm1.Button1Click(Sender: TObject);
var
WebBrowser1:TWebBrowser;
StringStream:TStringStream;
RegExp: TRegExpr;
S:string;
begin
     WebBrowser1.Create(SELF);
     WebBrowser1.Navigate('http://www.youtube.com/watch?v=lkKhfP4fZZs&feature=relmfu'); //стопорится ошибка на этом
     while WebBrowser1.readyState<>4 do Application.ProcessMessages;
     StringStream:=TStringStream.Create;
     SaveHTMLSourceToStream(StringStream,WebBrowser1);
     RegExp := TRegExpr.Create;
     RegExp.InputString := StringStream.DataString;
     RegExp.Expression := 'url_encoded_fmt_stream_map=url%3D(.*?)%253B';
     if RegExp.Exec then
               begin
                 S:=(RegExp.Match[1]);
                 S:=ReplaceStr(S,'%253A',':');
                 S:=ReplaceStr(S,'%252F','/');
                 S:=ReplaceStr(S, '%253F', '?');
                 S := ReplaceStr(S, '%253D', '=');
                 S := ReplaceStr(S, '%253F', '?');
                 S := ReplaceStr(S, '%25252C', '%2C');
                 S := ReplaceStr(S, '%2526', '&');
                 S := ReplaceStr(S, '%26', '&');//
                 S := ReplaceStr(S, '%3D', '=');
                 S := ReplaceStr(S, '%25253A', '%3A');
 WindowsMediaPlayer1.URL:=S;
 memo1.Text:=S;
end;
RegExp.Free;
StringStream.Free;
end;
end.

[Пепел Феникса]

какая ошибка?

да было бы супер если бы замаскироваться по ИЕ ну не где нету инфы.

сниффер в руки и смотрим что отправляет ИЕ.

[DjDram]

Сообщение от Пепел Феникса

какая ошибка?

я так понимаю он не спевает создать WebBrowser1.Create(SELF);

[DjDram]

добавил задержку

procedure Delay(dwMilliseconds: Longint);
 var
 iStart, iStop: DWORD;
 begin
 iStart := GetTickCount;
 repeat
 iStop := GetTickCount;
 Application.ProcessMessages;
 until (iStop - iStart) >= dwMilliseconds;
 end;

  WebBrowser1.Create(nil);
     delay(3000);
     WebBrowser1.Navigate('http://www.youtube.com/watch?v=lkKhfP4fZZs&feature=relmfu'); 
      delay(3000);
     StringStream:=TStringStream.Create;

всё равно ошибка

[Пепел Феникса]

     WebBrowser1.Create(SELF);

не успевает тут и быть не может, код последовательный.
суть в том что вы не правильно создаете обьект.
пересмотрите мой код:

WB:=TWebBrowser.Create(nil);

[DjDram]

Сообщение от Пепел Феникса

     WebBrowser1.Create(SELF);

не успевает тут и быть не может, код последовательный.
суть в том что вы не правильно создаете обьект.
пересмотрите мой код:

WB:=TWebBrowser.Create(nil);

не дело было не в бабине всё равно ругается правда уже в другом месте