Всем доброго дня
Хочу поделиться с вами небольшим кодом, который позволяет удалять сообщения вконтакте(vkontakte.ru).
procedure DeleleMessage;
var
ResponseData: TStringStream;
PostData: TStringStream;
ids: string;
begin
HTTP := THTTPSend.Create;
HTTP.Document.Clear;
HTTP.Headers.Clear;
ResponseData := TStringStream.Create;
PostData := TStringStream.Create;
{
Тут нам нужно составить список сообщений для удаления. Список должен быть в таком формате: id1,id2,id3..idX
Как парсить id я тут рассказывать не буду, способов масса. От банального 10000,9999,9998..1, до парсинга со страницы mail.php
id := 100,65,32,64 // удалит сообщения с id 100,65,32,64
}
PostData.Clear;
PostData.WriteString('al=1&mark=del&msgs_ids=' + ids);
HTTp.Document.Clear;
HTTP.Headers.Clear;
HTTP.MimeType:='application/x-www-form-urlencoded';
HTTP.Document.LoadFromStream(PostData);
HTTP.HTTPMethod('POST', 'http://vkontakte.ru/mail?act=a_mark');
FreeAndNil(ResponseData);
FreeAndNil(PostData);
FreeAndNil(HTTP);
end;