[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. zenodrom

    zenodrom New Member

    Joined:
    30 Mar 2011
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    Code:
    memo1.Text:=IdHTTP1.Get('http://zalil.ru');
    При компиляции ошибка. С другими хостами норм работает. В чём может быть причина?
     
  2. patcher

    patcher Banned

    Joined:
    15 Dec 2009
    Messages:
    190
    Likes Received:
    37
    Reputations:
    10
    Какой "С другими хостами норм работает"? У TMemo нету свойства Text. Чтобы обратится к тексту в Memo нужно использовать конструкцию TMemo.Lines.Text. Тоесть твой код должен выглядеть так:
    Code:
    Memo1.[COLOR=DarkRed]Lines[/COLOR].Text:=IdHTTP1.Get('http://zalil.ru');
    
     
  3. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    zenodrom,
    Все наоборот ;)

    Тебе дали правильный ответ.
    Как вариант, ты вообще не создал IdHTTP1
     
  4. zenodrom

    zenodrom New Member

    Joined:
    30 Mar 2011
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    [​IMG]
     
  5. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Хмм действительно..)

    Кинь тогда, какая ошибка возникает
     
  6. zenodrom

    zenodrom New Member

    Joined:
    30 Mar 2011
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
  7. Rastamanka

    Rastamanka Elder - Старейшина

    Joined:
    26 Nov 2008
    Messages:
    429
    Likes Received:
    11
    Reputations:
    7
    Засунула все это дело в 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;
    
     
    #8107 Rastamanka, 9 Apr 2011
    Last edited: 9 Apr 2011
  8. alexey-m

    alexey-m Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    518
    Likes Received:
    100
    Reputations:
    37
    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;
    
     
    #8108 alexey-m, 9 Apr 2011
    Last edited: 9 Apr 2011
  9. Rastamanka

    Rastamanka Elder - Старейшина

    Joined:
    26 Nov 2008
    Messages:
    429
    Likes Received:
    11
    Reputations:
    7
    Спасибо! С парсингом текста все супер а вот с edit не получилось ничего.
    У меня стоят компоненты TGroupBox около 20шт на них сверху компонент TEdit на каждом по 1 шт.
    TGroupBox называется grp[1-20], TEdit соответственно edt[1-20]
     
  10. patcher

    patcher Banned

    Joined:
    15 Dec 2009
    Messages:
    190
    Likes Received:
    37
    Reputations:
    10
    http://www.wikiznanie.ru/ru-wz/index.php/500_error
     
  11. zenodrom

    zenodrom New Member

    Joined:
    30 Mar 2011
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    А нормальный ответ может кто дать?
     
  12. patcher

    patcher Banned

    Joined:
    15 Dec 2009
    Messages:
    190
    Likes Received:
    37
    Reputations:
    10
    Бля, и после вот этого помагай людям :( Чем же, Ваше Величество, Вам не понравился мой ответ? Вы бы хоть по ссылке перешли и не задавали глупых вопросов.
    П.С. если все еще не понятно, то ошибка на стороне сервера.
     
  13. zenodrom

    zenodrom New Member

    Joined:
    30 Mar 2011
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    Ааааа... Слил.ру во всем виноват!
     
  14. Helium

    Helium New Member

    Joined:
    6 Jan 2010
    Messages:
    22
    Likes Received:
    3
    Reputations:
    0
    Вопрос был- теперь нет.
     
    #8114 Helium, 10 Apr 2011
    Last edited: 11 Apr 2011
  15. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    В отсутствии мозгов и знаний
     
  16. waik

    waik Elder - Старейшина

    Joined:
    2 Nov 2008
    Messages:
    405
    Likes Received:
    163
    Reputations:
    12
    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
     
  17. Helium

    Helium New Member

    Joined:
    6 Jan 2010
    Messages:
    22
    Likes Received:
    3
    Reputations:
    0
    Спасибо за годный ответ по делу, бро.
    waik
    Я знаю что это не ошибка, инди обновлял ,idHttp1.HandleRedirect:=true тоже пробовал
     
  18. waik

    waik Elder - Старейшина

    Joined:
    2 Nov 2008
    Messages:
    405
    Likes Received:
    163
    Reputations:
    12
    Я не говорил что это ошибка.Если мозги есть то понять что такое не сложно.
     
  19. Helium

    Helium New Member

    Joined:
    6 Jan 2010
    Messages:
    22
    Likes Received:
    3
    Reputations:
    0
    фейловый день. дописал редирект. спасибо- пожалуйста
     
  20. kvadro

    kvadro New Member

    Joined:
    4 Mar 2011
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    всем вечер добрый.
    пишу клиент для одного чата, функция отправки сообшений. вот результат со снифера:
    [​IMG]
    то есть необходимо по адресу 178.63.19.3:6001 отправить post-запрос.

    вот запрос, который получается у меня:
    [​IMG]
    мой код:

    PHP:
    procedure TForm1.Button1Click(SenderTObject);  var  :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;
    уже понял, что неправильно, но даже не знаю в каком направлении плясать. также, чтоб сообщения доходили в чат, необходимо находиться на канале (т.е. персонаж стоит в чате). авторизацию сделал.

    буду благодарен если кто натолкнет на мысль, линки где почитать, образец кода
     
Thread Status:
Not open for further replies.