Post request, where does it generate new data?

Question

Delphi

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

Here is such a line, how to do it, so that it would take data with value, in it when entering the site, each time a new token.

Answer 1

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;

I tried that but it didn't work, or I'm doing something wrong.

Answer 2

Function ... (for a given string type ...)

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;

Usage ...

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