Как изменять Cookie? Я просматриваю, очищаю а потом свои вставляю, но у меня не получается. Code: for I := 0 to IdHTTP1.CookieManager.CookieCollection.Count - 1 do cookie := cookie + IdHTTP1.CookieManager.CookieCollection.Items[i].ClientCookie+'; '; ShowMessage(cookie); IdHTTP1.CookieManager.CookieCollection.Clear; IdHTTP1.Request.CustomHeaders.text := 'Cookie: remixsid='+s;
В каком формате содержатся данные в "result"? Code: text:=B64Decode(edt1.text); key:='blabla'; for i := 0 to (length(text) div length(key)) do longkey := longkey + key; for i := 1 to length(text) do begin toto := chr((ord(text[i]) XOR ord(longkey[i]))); // XOR ???????? result := result + toto; Просто нужно result закодировать в Base64, но выдает ошибку...
Во-первых: result ранее не инициализирован, а ты его прибавляешь, во-вторых: какой тип должна вернуть функция?
Всё, разобрался. Просто юнит плохой попался с Base64. Теперь другой вопрос: Как это (\u041f\u0440\u0438\u0432\u0435\u0442) преобразовать в простой текст?
я обычно просто говорю чтобы ответ приходил в другом формате, т.к. стандартной функции не нашёл, а свою было лень писать
Всем привет. Народ,извените если не в тему, а где тут можно прочитать про дельфу все с самого начала,примеры и т.д?...спасиб а ранее
Зачем тебе читать про дельфи именно тут? Для этого есть книги, специализированные сайты, а античат плохо для этого подходит, это даже не форум программистов.
Всем привет. Необходимо написать процедуру обхода всех вершин графа, побывав в каждой вершине не более одного раза, если это возможно, иначе вывести сообщение о том, что все вершины обойти нельзя(необходимо использовать рекурсию). Вот мой вариант: Code: procedure Start(var index: integer); var i: integer; begin visited[index]:= 1; Form1.Memo1.Lines.Add(IntToStr(index+1)); for i:=0 to StrToInt(Form1.Edit1.Text)-1 do if (visited[i]=0) and (arr[index,i]=1) then begin index:= i; Start(index); end; end; visited и arr - дин. массивы; index - номер вершины с которой начинать обход; Проблема в следующем: данная процедура пытается обойти все вершины только по одному пути, а необходимо проверять все.Алгоритм проверки всех путей мне понятен, тока не могу додуматься как его реализовать+еще и рекурсия должна быть.Заранее спасибо.
Здравствуйте все Я вот с помощью idHTTP скачиваю страницу, получаю html код, как его вывести на экран обработанный?? то есть сразу как это делает компонент WebBrowser .. Просто я имею html код . . Сразу скачать страницу с WebBrowser не могу, потому что сначало проходит авторизацию с помощью idHTTP .. И поэтому скачать если страницу с помощью WebBrowser, то у меня попусту выведет что вы не авторизованы. .
Code: Str:=idHttp.Get(URL); //получаем код страницы WebBrowser1.OleObject.Document.Body.InnerHtml:=Str;
помогите сделать задание плиз Использoвать подпрoграммы (ввода, вывода, обрабатывающей части). Дaн массив целых чисeл А[M,N], где M,N<=10. Вставить последнюю строку пoсле строки, в которой находится задaнное число К. на паскале
Ребят такой попрос: Может кто подкинуть хели пошаговый можно и с картинками (можно в учебнике) по indy - интересует создание сервера и подключение к нему клиента через сокет, обработка комманд и т.п. Заранее благодарен!
Здравствуйте, помогите в чем ошибка? Хочу сделать авто сбор попирос в тюряге в ВК. Делаю авторизацию, делаю запрос на сбор, но проходит только авторизация. PHP: procedure TForm1.Button1Click(Sender: TObject); var data:tstringlist; PageProfile:string; error:boolean; data2: tstringlist; begin label1.Caption := ('Подключение'); IdHTTP1.AllowCookies:=true; IdHTTP1.HandleRedirects:=false; data:=tstringlist.create; data.Add('email='+Edit1.Text); data.Add('pass='+Edit2.Text); data.Add('expire='); data.Add('vk='); error:=false; try PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data); except error:=true; end; if not(error) then begin data.Clear; data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56)); data.Add('op=slogin'); data.Add('redirect=1'); data.Add('expire=0'); data.Add('to='); IdHTTP1.HandleRedirects:=true; try PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data); except end; if Pos('logout', PageProfile)<>0 then Label1.Caption :=('Авторизация не удалась') else Label1.Caption :=('Авторизация удалась'); data.free; begin IdHTTP1.AllowCookies:=true; IdHttp1.Get('http://vkontakte.ru/app1979194_'+edit3.Text); data2 := tstringlist.Create; data2.Add('key='); data2.Add('sig='); data2.Add('user'+edit3.Text); data2.Add('method=office'); data2.Add('getidea=5') ; IdHttp1.Post('http://109.234.156.250/prison/universal.php?office',data2) ; end; end; end; end.
Зачем тебе вообще авторизация? Там нужен только auth_key из кода страницы приложения и не надо заморачиваться
