Привет всем античатовцем! Уже всю башню себе изломал..немогу никак понять как загрузить аву на группу!!! Необесудте за наглость, но прошу выложить рабочий пример.. Заранее спасибо!
Всё очень просто. PHP: function Pars(T_, ForS, _T: string): string; var a, b: integer; begin Result := ''; if (T_ = '') or (ForS = '') or (_T = '') then Exit; a := Pos(T_, ForS); if a = 0 then Exit else a := a + Length(T_); ForS := Copy(ForS, a, Length(ForS) - a + 1); b := Pos(_T, ForS); if b > 0 then Result := Copy(ForS, 1, b - 1); end; Kuka:=http.Get('http://vkontakte.ru/groups.php?act=photo&gid='+idгруппы); Hash:=pars('<form enctype="multipart/form-data" method="post" action="',kuka,'"'); multi:= Tidmultipartformdatastream.Create; multi.AddFile('photo','avatar.jpg','Content-Type: image/jpeg'); http.Post(Hash,multi); multi.Free; http.Request.CustomHeaders.Clear; http.Request.ContentType:='application/x-www-form-urlencoded'; http.get(http.Response.Location);
Ну дак если поддомена нету то какие проблемы? ТЫ сначала спрашиваешь как аву в группу загрузить а потом как id группы узнать.Задом на перед у тебя вопросы.
Знаю.. P.S. я тут не собираюсь говорить о вопросах задом на перед, я всего лишь прошу показать теперь как узнать ID группы
slesh, Я знаю, что так можно..Я имею ввиду что мне нужно после нажатия на кнопку "Создать группу" каким-то образом спарсить ID группы.
Юзай снифер. PHP: //http://vkontakte.ru/groups.php?act=a_create&name=test&hash=ufwefwe7f23ffewf RegExp.Expression := 'info&gid=([0-9]+)';
На сколько знаю без группы эвент не возможен, поэтому при создании группы парсим Location из него ID присваиваем переменной дальше пользуемся переменной если не катит тогда в эвенте по-моему есть ссылка на группу которая создала эвент ее парси из нее Id. А вообще поддерживаю ответ выше по поводу снифира
Я прогнал, эвенты создаются просто так, ID эвентам парсим на странице создания, затем MultiPartFormFata И вуаля. Да и вообще всё не так уж и плохо видно в HTTPAnalyzer
