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

[doktor255]

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

Это я знаю что нет, прога компилируется нормально.

Ты что, издеваешься надо мной? По твоей логике если код компилируется то он полюбому верный??? Как я могу указать ошибку функции/процедуры не видя самой функции/процедуры, и вообще не понимая какими компонентами ты оперируешь??? На кофейной гуще гадать??? А вот теперь отвечай на все мои вопросы.

[Fahman]

Использую синапс

Функция:

function Pars(T_, ForS, _T: string): string;
var a, b: integer;
begin
Result:='';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then Result:=Copy(ForS, 1, b-1);
end;

[doktor255]

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

Использую синапс

Предлагаешь мне тоже его поставить ради трёх строк кода?

[doktor255]

Кстати.

<title>Реклама</title>
<img title="" alt="" style="width: 468px; height: 60px; margin: 4px;" src="http://cs-css.net/media/468x60Rek.png">

http://cs-css.net/media/468x60Rek.png

это ссылка на изображение. Что ты ещё собрался тут спарсить???

[Fahman]

var
HTTP: TIdHTTP;
s:string;
begin
s:=HTTP.Get('http://my-hack.vv.si/1.php');
linkbanner:=Pars('src="',s,'">');
end;

та же ошибка если не использовать синапс

[Fahman]

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

Кстати.

<title>Реклама</title>
<img title="" alt="" style="width: 468px; height: 60px; margin: 4px;" src="http://cs-css.net/media/468x60Rek.png">

http://cs-css.net/media/468x60Rek.png

это ссылка на изображение. Что ты ещё собрался тут спарсить???

Я потом сделаю кликабельную картинку, и будут парсить ссылку. А сейчас так просто как пример

[doktor255]

Как пример я выше спарсил ссылку, и загрузил по нём изображение. Что тебя не устроило в моём парсинге?

[Fahman]

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;

А где тут запрос на сайт с которого парсить?

[doktor255]

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

та же ошибка если не использовать синапс

Конечно ошибка. Ты же компонент не инициализировал

HTTP := TIdHttp.Create;

[Fahman]

var
HTTP: TIdHTTP;
s:string;
begin
HTTP := TIdHttp.Create;
s:=HTTP.Get('http://my-hack.vv.si/1.php');
linkbanner:=Pars('src="',s,'">');
showmessage (linkbanner);
end;

Работает. А как еще на счет как теперь перейти по "linkbanner" по клику на image