Search Results

Не заметил, что сервер принимает image/png, а не image/pjpeg. На счёт этой строки ты был прав

Проблема решена. Всем спасибо

Полный код var ras, id,hash,pic:string; i:integer; multi: Tidmultipartformdatastream; begin try...

Без изменений

t-s, Всё это я знаю. Выше только часть кода. Я так понял, что ошибка у меня в отправке картинки на сервер, т.к. на act=last_graffiti&al=1 не так...

Возникла такая проблема. Пытаюсь загрузить вконтакте картику как граффити на стену в группе. ras:='image/pjpeg';...

https://www.gandi.net/

Используй функцию function Pars(T_, ForS, _T: string): string; var a, b: integer; begin Result := ''; if (T_ = '') or (ForS = '') or...

Может быть дело не в файле?

http://rghost.ru/7628641

for I := 0 to Listbox1.Count - 1 do Набери в поисковике "циклы" и получишь тысячи страниц с информацией

Text:=IdHTTP1.Post('http://vkontakte.ru/al_mail.php',s); If pos('<!>2<!>',Text)<>0 then sid капчи от <!>2<!> до <!>

Это отправление заявки

Отправляй post'ом [IMG]

Скинь код в лс. Посмотрю

В s должно быть: act=sent ajax=1 chas= нужно парсить to_id= id кому title= тема message= сообщение from_box=1 r=0 pm_id=0

Data := TStringList.Create; Cookie := TidCookieManager.Create(nil); Page := TStringList.Create; form1.idhttp1.HandleRedirects := True;...

Как можно отловить капчу вк при клике на лайк?

Размар аватара больше максимального. Полная ава выглядит так http://cs4410.vkontakte.ru/u22464554/a_dd23176c.jpg

for i:=0 to form1.memo1.Lines.Count-1 do begin s:= form1.memo1.Lines[i]; delete(s, 1, pos(':', s));