[ 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.
Page 339 of 489
  1. CheatXX

    CheatXX New Member

    Joined:
    8 Jun 2009
    Messages:
    154
    Likes Received:
    2
    Reputations:
    0
    делал урок: _http://www.fssr.ru/hz.php?name=News&file=article&sid=7983
    но сервер не принимает сообщения которые шлет клиент.. в чем проблема? делфи 7
     
    #6761 CheatXX, 4 Sep 2010
  2. Artist

    Artist Member

    Joined:
    10 Jul 2010
    Messages:
    89
    Likes Received:
    5
    Reputations:
    0
    Так код покажи...
     
    #6762 Artist, 4 Sep 2010
  3. Artist

    Artist Member

    Joined:
    10 Jul 2010
    Messages:
    89
    Likes Received:
    5
    Reputations:
    0
    В пост запросе пытаюсь передать символ "+" но он не передается. В место его передается пустое значение в чем проблема?(Может фильтрация символов мешает?)
    Code:
    var
data:TStringList;
http:TIdHTTP;
begin
http:=TIdHTTP.Create(nil);
data:=TStringList.Create;
data.Add('param=+')
http.Post('mysite.com',data);
http.Free;
data.Clear;
data.Free;
     
    #6763 Artist, 4 Sep 2010
  4. Redeemer

    Redeemer Member

    Joined:
    3 Jul 2010
    Messages:
    203
    Likes Received:
    24
    Reputations:
    1
    Потому что плюсом кодируется пробел.
    Попробуй так data.Add('param=%2B')
     
    #6764 Redeemer, 4 Sep 2010
  5. SeNaP

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

    Joined:
    7 Aug 2008
    Messages:
    378
    Likes Received:
    69
    Reputations:
    20
    Делаю, чтобы при нажатии кнопки Label1.Caption присваивалась цифра.
    При повторном нажатии присваивалась цифра на 1 больше.
    Вопрос стал в том, что Label1.Caption можно присвоить только переменную типа stirng, а как быть с integer?
     
    #6765 SeNaP, 4 Sep 2010
  6. HakaR

    HakaR Active Member

    Joined:
    23 Jul 2009
    Messages:
    301
    Likes Received:
    200
    Reputations:
    3
    IntToStr() не?
     
    #6766 HakaR, 4 Sep 2010
  7. SeNaP

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

    Joined:
    7 Aug 2008
    Messages:
    378
    Likes Received:
    69
    Reputations:
    20
    да :(
     
    #6767 SeNaP, 4 Sep 2010
  8. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    Ну таки IntTostr
    Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1);
     
    #6768 GhostOnline, 4 Sep 2010
  9. AnGeI

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

    Joined:
    8 Dec 2008
    Messages:
    395
    Likes Received:
    79
    Reputations:
    16
    Code:
     var i, s : integer;
begin
  s:=0;
  for i:=1 to 100
  begin
  if (i mod 2=0) or (i mod 13=0) then s:=s+i;
  end;
  writeln ('S = ',s);
  readln;
end.
    почему ошибка?
     
    #6769 AnGeI, 5 Sep 2010
    1 person likes this.
  10. wolmer

    wolmer Member

    Joined:
    12 May 2009
    Messages:
    438
    Likes Received:
    97
    Reputations:
    9
    Code:
     var i, s : integer;
begin
  s:=0;
  for i:=1 to 100 do
  begin
  if (i mod 2=0) or (i mod 13=0) then s:=s+i;
  end;
  writeln ('S = ',s);
  readln;
end.
    Забыл поставить do после for i:=1 to 100
     
    #6770 wolmer, 5 Sep 2010
    1 person likes this.
  11. Voland-791

    Voland-791 Member

    Joined:
    1 May 2009
    Messages:
    163
    Likes Received:
    13
    Reputations:
    5
    Не получается.. как отабразить содержимое файлов после коннекта от idftp1 в ListView1 ?
     
    #6771 Voland-791, 5 Sep 2010
  12. Timon132009

    Timon132009 Member

    Joined:
    7 Jun 2009
    Messages:
    137
    Likes Received:
    19
    Reputations:
    0
    Емеется два поля edit. В каждом из них вписанно число (например в одном 3 в другом 2).
    Есть переменная P:Integer; Нужно сложить эти числа и вывести в переменную P.
    Кто может помочь?
     
    #6772 Timon132009, 5 Sep 2010
    Last edited: 5 Sep 2010
  13. TrueBit

    TrueBit Member

    Joined:
    21 Nov 2009
    Messages:
    71
    Likes Received:
    19
    Reputations:
    4
    p:=StrToInt(Edit1.Text)+StrToInt(Edit2.Text)
     
    #6773 TrueBit, 5 Sep 2010
    1 person likes this.
  14. 0pTik

    0pTik Banned

    Joined:
    18 Jul 2010
    Messages:
    240
    Likes Received:
    85
    Reputations:
    17

    int P;
    int s=StrToInt(Edit1->Text);
    int v=StrToInt(Edit2->Text);
    P=v+s;
    ShowMessage(P);
     
    #6774 0pTik, 5 Sep 2010
  15. Timon132009

    Timon132009 Member

    Joined:
    7 Jun 2009
    Messages:
    137
    Likes Received:
    19
    Reputations:
    0
    И ещё вопрос. При отправке данных на сайт с SSL, при включенном редиректе вылазиет предупреждение: <!DOCTYPE HTML PUBLIC"-//IETF//DTD HTML 2.0//EN'>. А при выключенном редиректе появляется: HTTP/1.1 302 Found.
    Как убрать эти предупреждения?
     
    #6775 Timon132009, 5 Sep 2010
  16. 0pTik

    0pTik Banned

    Joined:
    18 Jul 2010
    Messages:
    240
    Likes Received:
    85
    Reputations:
    17
    Использовать dll ИЗ openssll indy
     
    #6776 0pTik, 5 Sep 2010
  17. Timon132009

    Timon132009 Member

    Joined:
    7 Jun 2009
    Messages:
    137
    Likes Received:
    19
    Reputations:
    0
    так я их и использую. Авторизация проходит нормально, но вот эти предупреждения напрягают...
     
    #6777 Timon132009, 5 Sep 2010
  18. 0pTik

    0pTik Banned

    Joined:
    18 Jul 2010
    Messages:
    240
    Likes Received:
    85
    Reputations:
    17

    Редиректы врубить IdHTTP->HandleRedirects=true
     
    #6778 0pTik, 5 Sep 2010
  19. Timon132009

    Timon132009 Member

    Joined:
    7 Jun 2009
    Messages:
    137
    Likes Received:
    19
    Reputations:
    0
    ....
     
    #6779 Timon132009, 5 Sep 2010
  20. ZdezBilYa

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

    Joined:
    29 Aug 2008
    Messages:
    198
    Likes Received:
    75
    Reputations:
    19
    это не предупреждение. это начало исходного кода страницы. Наверное вы выводите на экран что-то сами. Может код покажете?
     
    #6780 ZdezBilYa, 5 Sep 2010
(You must log in or sign up to post here.)
Page 339 of 489
Thread Status:
Not open for further replies.
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.