PHP: procedure TForm1.Button1Click(Sender: TObject); var list:tstringlist; str:tstringlist; c:tstringlist; regexp:tregexpr; begin IdHTTP1.AllowCookies:=true;//Принимаю куки list:=tstringList.create;//создаю базу для list c:=tstringList.create;//создаю базу для c list.Add('private');//формирую данные post запроса list.Add('private');//формирую данные post запроса try c.text := IdHTTP1.Post('private',list);//посылаю post запрос except c.text := idhttp1.get('private');//парсю исх.код в переменную. list.Free;//освобождаю память c.Free;//освобождаю память end; {Теперь нужно с помощью регулярного выражение достать значение value из переменной C } begin TregExpr.Create; regexp.Expression := 'input type="text" name="copyme" size="27" value="(.*?)" />'; if RegExp.Exec then begin Memo2.Lines.Append(RegExp.Match[1]);//и вывести его end; RegExp.Free; end;
я код не копировал..я изучил основы условие,циклы и т.д. если сложно помочь пожалуйста не засоряй тему
я пытаюсь разобраться в регулярных выражениях,просто если не хочешь(не можешь) помочь пожалуйста не пиши в теме,признаю помог мне уже и за это спасибо
regexp:=TRegExpr.Create; regexpr.Expression:='ляляля'; if regexpr.exec(c.text) then... когда создаешь c:=TStringList.create; делай дальше так: try ...........куча кода, где нужен твой c finally c.free; end; а у тебя c.free и List.free происходит только когда вылазит exception на http.post
Не компилируеться много ошибок,сможете пожалуйста написать код ? или еще подсказку дать,заранее спасибо.