Комментарий вконтакте

Помогите не могу написать правельный код отправки комментария к фотографии вконтакте

как его перевести в Delphi код)и отправить ком

PHP:

<?xml version="1.0" encoding="utf-8"?> <response>10847</response>

 

Код свой покажи для начала

 

Edit1 -ссылка на фотку
Memo-текст
button отправка

 

кода нет)не могу понять как написать

 

Для начала нужно авторизтроваться, чтобы получить от сайта прянички, которые будут тебя идентифицировать, а потом клацать по линку...

 

Охренеть!!!
Сначала вставь код, потом выдели его и нажми кнопочку "code" иначе он вообще не читабелен

 

Code:

Enter:=TStringList.Create; Enter.add('act=login'); Enter.Add('al_test=3'); Enter.Add('email='+email.text); Enter.Add('pass='+pass.Text); uri:=TIdUri.Create('http://vkontakte.ru'); idhttp1.RedirectMaximum:=2; reg:=TRegExpr.create; reg.Expression:='[0-9a-z]{60}'; temp:=idhttp1.post('http://login.vk.com', Enter); temp:=idhttp1.response.RawHeaders.GetText; reg.Exec(temp); if reg.Match[0]<>'' then begin application.processmessages ; idcookiemanager1.AddServerCookie('remixsid='+reg.Match[0], uri); messageDlg('Авторизация прошла успешно!', mtInformation, [mbOk], 0); end else begin messageDlg('Неверный логин или пароль!', mtInformation, [mbOk], 0); end; end

 

ты что программы в строку пишешь?

 

net тту так получается_помогите с кодом отправкии

 

Code:

begin 
Enter:=TStringList.Create; 

Enter.add('act=login'); Enter.Add('al_test=3'); 
Enter.Add('email='+email.text); 
Enter.Add('pass='+pass.Text); 
uri:=TIdUri.Create('http://vkontakte.ru'); 
idhttp1.RedirectMaximum:=2;

 
reg:=TRegExpr.create; 

reg.Expression:='[0-9a-z]{60}'; 
temp:=idhttp1.post('http://login.vk.com', Enter); 
temp:=idhttp1.response.RawHeaders.GetText;
 reg.Exec(temp); 

if reg.Match[0]<>'' then begin 

application.processmessages ;

 idcookiemanager1.AddServerCookie('remixsid='+reg.Match[0], uri); 
messageDlg('Авторизация прошла успешно!', mtInformation, [mbOk], 0); end else begin

 messageDlg('Неверный логин или пароль!', 
mtInformation, [mbOk], 0); end; end;

 

Что бы API использовать нужно через API авторизоваться