Рекламный баннер

[doktor255]

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  stream : TMemoryStream;
  png: TPngImage;
begin
  s:= IdHttp1.Get('http://my-hack.vv.si/1.php');
  Delete(s,1,pos('src="', s) + 4);
  s := Copy(s, 1, pos('"', s) - 1);
  stream := TMemoryStream.Create;
  IdHttp1.Get(s, stream);
  Stream.Position := 0;
  png:= TPngImage.Create;
  png.LoadFromStream(stream);
  Image1.AutoSize := true; // авторазмер
  Image1.Picture.Assign(png);
  png.free;
  stream.free;
end;

Изучай.

[Fahman]

Сообщение от doktor255

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  stream : TMemoryStream;
  png: TPngImage;
begin
  s:= IdHttp1.Get('http://my-hack.vv.si/1.php');
  Delete(s,1,pos('src="', s) + 4);
  s := Copy(s, 1, pos('"', s) - 1);
  stream := TMemoryStream.Create;
  IdHttp1.Get(s, stream);
  Stream.Position := 0;
  png:= TPngImage.Create;
  png.LoadFromStream(stream);
  Image1.AutoSize := true; // авторазмер
  Image1.Picture.Assign(png);
  png.free;
  stream.free;
end;

Изучай.

А где взять компонент TPngImage для Xe3

[Fahman]

а все нашел, огромное спасибо!

[Fahman]

а еще вопрос, вот я спарсил ссылку, а как мне по ней перейти по клику на Image?

[doktor255]

Сообщение от Fahman

а еще вопрос, вот я спарсил ссылку, а как мне по ней перейти по клику на Image?

Сообщение от Fahman

ShellExecute(handle, 'open', '#Спарсенная ссылка#', nil, nil, SW_SHOW);

Сам же и отвечаешь на свой вопрос.

[Fahman]

Сообщение от doktor255

Сам же и отвечаешь на свой вопрос.

нее, например я спарсил её, она у есть переменная "linkbanner" как по ней перейти

[Fahman]

И в чем тут ошибка (Пытаюсь спарсить ссылку)

procedure TForm1.sButton7Click(Sender: TObject);
begin
  http.HTTPMethod('GET', 'http://my-hack.vv.si/1.php');
          html.LoadFromStream(http.Document);
          linkbanner:=Pars('src="', html.Text, '">');
          http.Headers.Clear;
          http.Document.Clear;
          showmessage (linkbanner);
end;

[doktor255]

В генах? (с)
В делфи нет стандартной функции/процедуры Pars, а что такое HTTP я вообще только гадать могу. УЧИСЬ ЗАДАВАТЬ ВОПРОСЫ!!!

[Fahman]

Сообщение от doktor255

В генах? (с)
В делфи нет стандартной функции/процедуры Pars.

Это я знаю что нет, прога компилируется нормально. Но при нажатие на кнопку выскакивает ошибка.

[Fahman]