ANTICHAT - Показать сообщение отдельно - l2top

Тема: l2top_vote своими руками [Delphi]

Показать сообщение отдельно

12.04.2010, 21:58

JnK

Участник форума

Регистрация: 30.03.2007

Сообщений: 121

С нами: 10060964

Репутация: 52

PHP код:


		
			
  function ParserBlock(

          Page:string;

    const Param1,

          Param2:string):string;

  var

    BeginPos,

    EndPos:integer;

    TempPage:string;

  begin

    BeginPos:=AnsiPos(Param1,Page)+length(Param1);

    delete(Page,1,beginPos-1);

    BeginPos:=AnsiPos(Param1,Page)+length(Param1);

    EndPos:=AnsiPos(Param2,Page);

    Result:=copy(page,1,EndPos-1);

  end;

Применять:

PHP код:


		
			
str:='<img src="cp.php?PHPSESSID=57lgimm74385h9qi9dvrthkd47">';

edit2.Text:=ParserBlock(str,Edit1.text,'">');