Code: memo1.Text:=IdHTTP1.Get('http://zalil.ru'); При компиляции ошибка. С другими хостами норм работает. В чём может быть причина?
Какой "С другими хостами норм работает"? У TMemo нету свойства Text. Чтобы обратится к тексту в Memo нужно использовать конструкцию TMemo.Lines.Text. Тоесть твой код должен выглядеть так: Code: Memo1.[COLOR=DarkRed]Lines[/COLOR].Text:=IdHTTP1.Get('http://zalil.ru');
Засунула все это дело в StringList далее циклом вытаскиваю строки по одной и планирую переменные присваивать в цикле. Но тут все таки остался 1 вопрос как разбить строку вот такого типа на разные составляющие? Code: login:pass:time При этом длина каждого элемента может варироваться, то есть она не постоянна в php это можно сделать с помощью explode а в этом языке хз. Очень нужен совет. Так же есть вот такая процедура. Хочу в цикле присвоить edit'ам переменную time которая будет доставаться из цикла как сделать Code: procedure TForm1.btn1Click(Sender: TObject); var StrList: TStringList; n:integer; Str:string; time:string; begin StrList:=TStringList.Create; StrList.Text:= IdHtp1.Get('http://'+host+'/tm/boss.php?get=boss&count=all'); n:; While n <= StrList.Count-1 do begin Str:=StrList[n]; time:=Copy(Str,1,8); etit+n+.Text:=time; // вот тут не пойму как добавить после edit номер из переменной n чтобы в итоге получалось edit1.Text, edit2.Text и т.д. ) n:=n+1; end; end;
Rastamanka, ну примерно так: Code: procedure btn1Click(Owner: TForm); var List: TStringList; i,j: Integer; tmp: String; login, pass, time: String; begin tmp:= IdHtp1.Get('http://'+host+'/tm/boss.php?get=boss&count=all'); List:= TStringList.Create; try List.Text:= tmp; for i:= 0 to List.Count-1 do begin tmp:= List.Strings[i]; // login:pass:time j:= pos(':',tmp); login:= Copy(tmp, 1, j-1); delete(tmp, 1, j); j:= pos(':',tmp); pass:= Copy(tmp, 1, j-1); delete(tmp, 1, j); time:= tmp; ................... TEdit(Owner.FindComponent(Format('Edit%d',[i+1]))).Text:= time; ................... end; finally List.Free; end; end;
Спасибо! С парсингом текста все супер а вот с edit не получилось ничего. У меня стоят компоненты TGroupBox около 20шт на них сверху компонент TEdit на каждом по 1 шт. TGroupBox называется grp[1-20], TEdit соответственно edt[1-20]
Бля, и после вот этого помагай людям Чем же, Ваше Величество, Вам не понравился мой ответ? Вы бы хоть по ссылке перешли и не задавали глупых вопросов. П.С. если все еще не понятно, то ошибка на стороне сервера.
Helium http://ru.wikipedia.org/wiki/%D0%A1%D0%BF%D0%B8%D1%81%D0%BE%D0%BA_%D0%BA%D0%BE%D0%B4%D0%BE%D0%B2_%D1%81%D0%BE%D1%81%D1%82%D0%BE%D1%8F%D0%BD%D0%B8%D1%8F_HTTP#302
Спасибо за годный ответ по делу, бро. waik Я знаю что это не ошибка, инди обновлял ,idHttp1.HandleRedirect:=true тоже пробовал
всем вечер добрый. пишу клиент для одного чата, функция отправки сообшений. вот результат со снифера: то есть необходимо по адресу 178.63.19.3:6001 отправить post-запрос. вот запрос, который получается у меня: мой код: PHP: procedure TForm1.Button1Click(Sender: TObject); var p :string; data :tstringlist; begin Data:=tstringlist.create; Data.add('privmsg #zaoza :' + edit1.text + '.'); try p:=IdHTTP1.post('http://murclub.ru/chat.php',data); except Data.Free; end; end; уже понял, что неправильно, но даже не знаю в каком направлении плясать. также, чтоб сообщения доходили в чат, необходимо находиться на канале (т.е. персонаж стоит в чате). авторизацию сделал. буду благодарен если кто натолкнет на мысль, линки где почитать, образец кода