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

[Fahman]

Как можно вывести рекламный баннер в программе, кроме веббровсера. Например как можно спарсить картинку банннера и ссылку куда должно перекидывать по клику по баннеру

[doktor255]

В парсинге не существует универсальных решений. Под каждую задачу своё решение, а так как задача не была озвучена, то и решения не будет.
P.S. А будешь коверкать Английский язык, тебе и решение накатают на соответственном Русском. Чтоб в следующий раз головой думал.

[Fahman]

Ну например парсим картинку в Image, и ссылку. На Image ставить OnClick и туда пишем: ShellExecute(handle,'open','#Спарсе нная ссылка#',nil,nil,SW_SHOW);

Можно ведь реализовать?

[doktor255]

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

Можно ведь реализовать?

Ты сам ответил на свой вопрос.

[Fahman]

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

Ты сам ответил на свой вопрос.

Я спроси как это сделать. Если не знаешь зачем писать и флудить в теме, показывая какой ты умный.

[doktor255]

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

Я спроси как это сделать.

А страницу для парсинга дядя выкладывать должен??? Или тебе по фиг что парсить, УМНИК??? Хорошо, раз тебе по фиг, на.

procedure TForm1.Button1Click(Sender: TObject);
var
  s, s1, s2: string;
begin
  s := '<a href="index.php"><img src="images/1070/misc/logo2014.gif" border="0" alt="Форум программистов" />;';
  Delete(s, 1, pos('<a href="', s) + 9);
  s1 := Copy(s,1,pos('"', s) -1 );
  ShowMessage('Это ссылка для перехода "' + s1 + '"');
  Delete(s,1,pos('<img src="',s) + 9);
  s2 := Copy(s, 1, pos('"', s) -1);
  ShowMessage('А это адрес картинки "' + s2 + '"');
end;

Просил парсинг? Получай самый что ни на есть парсинг.

[Fahman]

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

А страницу для парсинга дядя выкладывать должен??? Или тебе по фиг что парсить, УМНИК??? Хорошо, раз тебе по фиг, на.

procedure TForm1.Button1Click(Sender: TObject);
var
  s, s1, s2: string;
begin
  s := '<a href="index.php"><img src="images/1070/misc/logo2014.gif" border="0" alt="Форум программистов" />;';
  Delete(s, 1, pos('<a href="', s) + 9);
  s1 := Copy(s,1,pos('"', s) -1 );
  ShowMessage('Это ссылка для перехода "' + s1 + '"');
  Delete(s,1,pos('<img src="',s) + 9);
  s2 := Copy(s, 1, pos('"', s) -1);
  ShowMessage('А это адрес картинки "' + s2 + '"');
end;

Просил парсинг? Получай самый что ни на есть парсинг.

А как это вывести в Image?

[northener]

А как это вывести в Image?

А что это?

[Fahman]

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

А что это?

Саму картинку

[doktor255]

procedure TForm1.Button1Click(Sender: TObject);
var
  stream: TMemoryStream;
begin
  stream:= TmemoryStream.Create;
  IdHttp1.Get('http://..', stream);
  Stream.Position := 0;
  Image1.Picture.Graphic.LoadFromStream(Stream);
end;

P. S. Учись задавать вопросы, и не груби людям, которые указывают на твои косяки.