@libera

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

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

Вот есть такая строка, как сделать, так что бы он брал данные с value, в нем при входе на сайт, каждый раз новый токен.
  • Вопрос задан
  • 131 просмотр
Пригласить эксперта
Ответы на вопрос 2
@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;

Попробовал так но не сработало, ну или я что то не то делаю.
Ответ написан
Комментировать
ORTOL
@ORTOL
Delphi
Функция ... (для типа данной строки ...)
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;
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы