[Мяфк]

В общем мне надо, что бы программа выдирала код видео и постила его в мемо. Например в исходном коде странице, как оттуда скопировать? Или можно другим способам. Вот пример кода:

Код:

<iframe style="overflow: hidden; border: 0pt none; width: 720px; height: 394px;" src="http://stagevu.com/embed?width=720&amp;height=338&amp;background=000&amp;uid=izrywoluhsxd" scrolling="no"></iframe> <br> 
<br><br></div>

[NumLock]

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var
  s: String;
  i: Integer;
begin
  s:='<iframe style="overflow: hidden; border: 0pt none; width: 720px; height: 394px;" src="http://stagevu.com/embed?width=720&amp;height=338&amp;background=000&amp;uid=izrywoluhsxd" scrolling="no"></iframe> <br><br><br></div>';
  i:=Pos('src="', s);
  if i>0 then
  begin
    s:=Copy(s, i+5, Length(s));
    i:=Pos('"', s);
    if i>0 then s:=Copy(s, 1, i-1);
    s:=StringReplace(s, '&amp;', '&', [rfReplaceAll, rfIgnoreCase]);
    Memo1.Lines.Add(s);
  end else Memo1.Lines.Add('no src');
end; 


[Мяфк]

Спасибо, попробую.