[bulldog]

Пробывал так

Код:

begin
y:=TStringStream.Create;
HTTP_BUX.Get('http://' + Сайт,y);
yy:=y.DataString;
while Pos('" src="http://', yy) > 0
do begin
   Delete(str, 1, Pos(' src="', yy) + 7);
   EPos := Pos('">', yy);
   with Form2.ListView1
   do begin
      Form2.ListView1.AddItem(System.Copy(yy, 1, EPos-1), nil);
      System.Delete(yy, 1, EPos+4);
      Items[z].SubItems.Append(System.Copy(yy, 1, EPos-1));
            end;
   Delete(yy, 1, EPos+3);
end;

Но получаю кашу.
P.S.В первом посте получаемый код подредактировал на полный

Уже даже пробывал так

Код:

y:=TStringStream.Create;
HTTP_BUX.Get('http://' + Url_Pay + '/view.php?ad=' + Form2.Listview1.Items[w].SubItems[8],y);
yy:=y.DataString;
while Pos('src="', yy) > 0
do begin
   Delete(str, 0, Pos('src=', yy) + 5);
   EPos := Pos('">', yy);
   with Form13.ListView1
   do begin
      AddItem(System.Copy(yy, 1, EPos-1), nil);
      System.Delete(yy, 1, EPos+2);
      Items[z].SubItems.Append(System.Copy(yy, 1, EPos-1));
      System.Delete(yy, 1, EPos+4);
      Items[z].SubItems.Append(System.Copy(yy, 1, EPos-1));
            end;
   Delete(yy, 1, EPos+3);
end;

Но опять же не то, не получается у меня получить из

Код:

<FRAME marginwidth="0" marginheight="0" name="frminfo" scrolling="no" noresize NAME="a" SRC="1.php">
<FRAME NAME="b" SRC="2.php" STYLE="border-bottom:dashed 2px #191970;" SCROLLING="no" NORESIZE="noresize" MARGINHEIGHT="1" MARGINWIDTH="5">
<frame name="frmsite" src="http://Сайт.ru/">

1.php, 2.php и http://Сайт.ru/