Авторизация ВКонтакте

[Terikon]

Сообщение от KWN, lnc

eFail, вкладка Indy Misc поставь компонент IdCookieManager
Blourid

"info":"1234567"
"cod":"privet"

это на сайте. мне нужно вывести у себя в edit.text := 1234567/privet

Держи!)

procedure TForm1.btn2Click(Sender: TObject);
var
s,info,cod:string;
begin
s:=mmo1.Text;
info:=copy(s,pos('"info":"',s)+8,length(s)-pos('"info":"',s)+8);
info:=copy(info,1,pos('"',info));
info:=copy(info,1,length(info)-1);

cod:=copy(s,pos('"cod":"',s)+7,length(s)-pos('"cod":"',s)+7);
cod:=copy(cod,1,pos('"',cod));
cod:=copy(cod,1,length(cod)-1);
edt1.Text:=info+'/'+cod;
end;