[ALexandr555]

http://www.anekdot.ru/scripts/rand_a...=&rank=4&lim=1 с этого сайтf хочу анекдот вырезать, но почемуто не читает со страницы код ни Get ни Post запрос

[deltas]

Как говорится - код в студию! (в смысле код запроса)

[deltas]

Код:

procedure TForm1.Button4Click(Sender: TObject);
begin
memo2.Lines.Text:=idhttp1.Get('http://www.anekdot.ru/scripts/rand_anekdot.php?t=&rank=4&lim=1');
end;

хм, вроде все работает... Но если Вы хотите выдрать только текст анекдота, тогда иначе... Дать код?

[deltas]

Вот пробовал - работает...

Код:

procedure TForm1.Button4Click(Sender: TObject);
var html:widestring;
n1,n2:integer;
begin
html:=idhttp1.Get('http://www.anekdot.ru/scripts/rand_anekdot.php?t=&rank=4&lim=1');
 n1:=pos('<div class="text">', html);
     n2:=pos('<table class="votingbox"', html);
     html:=copy(html,n1+18,n2-n1-25);
     Memo2.Lines.Add(html);
end;

Только в самом анекдоте мусора полно (в смысле хтмл-кода)

[ALexandr555]

спасибо я думал чтото с адресом не так, скорее всего сам чтото рассеяно не так сделал.