Запрос post, где формирует новые данные?

Question

[libera]

<input type="hidden" value="c4a1f3104786b3cb874aa622a344aa0543178e12" name="YII_CSRF_TOKEN">

Вот есть такая строка, как сделать, так что бы он брал данные с value, в нем при входе на сайт, каждый раз новый токен.

Answer 1

[libera]

var
  loging: TStringList;
  befer :string ;
  name: string;
begin
           befer := idhtp1.Get('http://сайт.ru/');
           name := Pars('<input type="hidden" value="',befer,'" name="YII_CSRF_TOKEN">');
           edt3.Text:=(name);

end;

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

Answer 2

[ORTOL]

Функция ... (для типа данной строки ...)

function GetValue(Str:string):String;
var
 p1,p2:Integer;
begin
 p1:=pos('value="',Str);
 p2:=pos('" name="',Str);
 Result:=Copy(Str,p1+7,(p2-p1)-7);
end;

Использование ...

procedure TForm1.FormCreate(Sender: TObject);
var
 s: String;
begin
 s := '<input type="hidden" value="c4a1f3104786b3cb874aa622a344aa0543178e12" name="YII_CSRF_TOKEN">';
 Form1.Caption:=GetValue(s);
end;