[hugolom]

Код:

var
inv: TStrings;
gt:string;
begin
inv := TStringList.Create;
inv.add('name="dN6VJ"');
inv.add('name='+edit1.text);
gt:=form1.IdHTTP1.Post('http://kanicq.ru/invisible/',inv);
memo1.lines.add(Copy(s, pos('<strong>', s) + 7, pos('</strong>', s) - pos('<strong>', s) -7));

парсит стр первую .а не с готовым результатом..

пробовал ловить черeз http anolayzer, ничего .

Можете помочь?

[lmikle]

Ничего не понял...
Хотя, есть подозрение, что надо просто внимательно посмотреть на полученную страничку и найти УНИКАЛЬНЫЙ ключ, от которого плясять. Функция Pos возвращает позицию ПЕРВОГО вхождения искомой подстроки.

[hugolom]

Коротко:

вводишь асю, при нажатие кнопки показывает статус в мемо
через сайт http://kanicq.ru/invisible/

[lmikle]

В какую сторону смотреть я тебе сказал. тег strong обычно используется очень часто, так что на него лучше не ориентрироваться. Анализируй страницу ответа на предмет нахождения более уникального признака, а уже от него будешь искать свой strong.

[hugolom]

Вот именно у меня не получаеться получить страницу ответа

[lmikle]

А что получаешь?
Выложи что ты получаешь в ответ от сервера.

[friz]

лови:
На форму кидаешь memo, edit, idhttp,button

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetBefore(substr, str:string):string;
begin
if pos(substr,str)>0 then
  result:=copy(str,1,pos(substr,str)-1)
else
  result:='';
end;



function GetAfter(substr, str:string):string;
begin
if pos(substr,str)>0 then
  result:=copy(str,pos(substr,str)+length(substr),length(str))
else
  result:='';
end;



procedure TForm1.Button1Click(Sender: TObject);
var link:string;
param:tstringlist;
begin
 param:=TStringList.Create;
 param.Add('dN6VJ=1');
 param.Add('uin='+edit1.Text);

link:='http://kanicq.ru/invisible/';

memo1.Text:=Idhttp1.Post(link,param) ;
label1.Caption:=GetBefore('</b></strong></p>',GetAfter('" style="vertical-align:middle;"> ', memo1.text));

param.Free;
end;

end.