▓▓▓请问怎么用delphi获取网页中嵌入的Meaiaplayer的URL值？▓▓▓

Question

我想用delphi获取网页中嵌入的Meaiaplayer的filename（在Mediaplayer9.0里是URL）值
该怎么取呢？提供一个供测试的网页，该网页中嵌入的Meaiaplayer插件ID为filename，要取出该控件的filename值。http://www.lyzs.net/mediaplayer.htm

Answer 1

代碼比較亂, 但大概就是這樣!
在你的Form上放: Memo1 ,  Button1,  IdHTTP1var ms: TMemoryStream;
    i, j: integer;s, s1: string;
begin
  ms := TMemoryStream.Create;
  IdHTTP1.Get('http://www.lyzs.net/mediaplayer.htm', ms);
  ms.Position := 0;
  memo1.Lines.LoadFromStream(ms);
  ms.Free;  s := Memo1.Text;
  i := Pos('://', s);
  while i > 0 do
  begin
    j := i;
    while true do
    begin
      dec(j);
      if s[j] = '"' then
       break;
    end;
    if j<>i then
    begin
      delete(s, 1, j);
    end;
    i := i - j;
    j := i;
    while true do
    begin
       inc(j);
       if s[j]='"' then
       begin
         s1 := Copy(s, 1, j);
         showMessage(s1);
         break;
       end;
    end;
    delete(s, 1, j+1);
    i := Pos('://', s);
  end;
  showMessage('here');
end;

Answer 2

if s[j]='"' then
       begin
         s1 := Copy(s, 1, j-1); //可能要修改成這樣!注意 live9&authid 中的 & 可能在showmessage時會轉義
但字符串沒問題