[ 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. filinAr

    filinAr New Member

    Joined:
    1 Oct 2010
    Messages:
    10
    Likes Received:
    0
    Reputations:
    0
    Дак вообще запускаешь Delphi , создаешь новый проект , и такая ошибка
     
  2. finnk

    finnk New Member

    Joined:
    1 Jul 2010
    Messages:
    30
    Likes Received:
    1
    Reputations:
    0
    это не тот пост)))ну да ладно, уже не актуально
     
  3. Qb1024

    Qb1024 New Member

    Joined:
    15 Jul 2009
    Messages:
    323
    Likes Received:
    4
    Reputations:
    0
    У меня несколько вопросов:
    1) Как отправит на сервер POST запрос и получить то, что выдаст сервер.
    2) Как скачать текстовой файл с сервера и сохранить его в каталоге проги?
    Желательно хотя бы небольшой пример, если не сложно.
     
  4. Chrome~

    Chrome~ Elder - Старейшина

    Joined:
    13 Dec 2008
    Messages:
    936
    Likes Received:
    162
    Reputations:
    27
    1) На форме уже должен лежать IdHTTP1: TIdHTTP и Memo1 : TMemo.
    Code:
    var
      POSTData: TStringList;
    begin
      POSTData := TStringList.Create;
      POSTData.add(sPostData);
      Memo1.Lines.Text := IdHTTP1.Post(sURL, POSTData);
      POSTData.Free;
    end;
    2) На форме уже должен лежать IdHTTP1: TIdHTTP.
    Code:
    var
      s: TMemoryStream;
    begin
      s := TMemoryStream.Create;
      IdHTTP1.Get('http://site.com/file.rar', s);
      s.SaveToFile('C:\file.rar');
      s.Free;
    end;
    Коды взяты из инета, но должны работать.
     
  5. 090808

    090808 Member

    Joined:
    15 Mar 2009
    Messages:
    171
    Likes Received:
    46
    Reputations:
    10
    Запускай от имени администратора!
     
  6. lamer811

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

    Joined:
    8 Nov 2009
    Messages:
    130
    Likes Received:
    39
    Reputations:
    12
    Вообщем вопрос такой
    Откомпилировал свой проект в Delphi 7 под Win XP SP2, всё нормально работает
    Скинул готовый exe на Win 7, но там программа не запускается... Она висит в процессах, но не отображается, что делать в такой ситуации?

    P.S. Пробовал запускать от лица администратора, с правами администратора
    Пробовал от Win XP SP2 и SP3, но эффекта вообще нет
    Хотя даже значёк программы висит в трее
     
  7. SHiNiGaMi

    SHiNiGaMi Banned

    Joined:
    3 Jan 2010
    Messages:
    382
    Likes Received:
    55
    Reputations:
    15
    компиль в семерке
     
  8. lamer811

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

    Joined:
    8 Nov 2009
    Messages:
    130
    Likes Received:
    39
    Reputations:
    12
    Это будет довольно проблематично... Но как крайний случай рассмотрю
     
  9. Chrome~

    Chrome~ Elder - Старейшина

    Joined:
    13 Dec 2008
    Messages:
    936
    Likes Received:
    162
    Reputations:
    27
    Что делает твоя программа?
     
  10. lamer811

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

    Joined:
    8 Nov 2009
    Messages:
    130
    Likes Received:
    39
    Reputations:
    12
    Онлайн плеер + качалка музыки с некоторых сервисов
    Используется bass.dll, но он в папке с программой ПРИсутствует
     
  11. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    Delphi 7 ни разу не слышала о системах новее windows XP
    Ее RTL и VCL писались в начале 2000-х годов именно с учетом новой тогда XP
    API XP и Seven не полностью совместимы насколько мне известно
    А новые версии Delphi эти отличия должны учитывать
    Дальше догадайся сам
     
  12. lamer811

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

    Joined:
    8 Nov 2009
    Messages:
    130
    Likes Received:
    39
    Reputations:
    12
    GhostOnline
    Блин не то... Сейчас обнаружил, что еще на некоторых компах, где стоит XP тоже программа запускается, она висит в трее (CoolTrayIcon), есть в процессах, но формы на экране нет
     
  13. coach

    coach New Member

    Joined:
    3 Dec 2009
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Как определить какое количество слов и самое длинное слово( вводили в текстовом поле edit) ?
    Фактически нужно по кнопке вывести результат в Label.

    Заранее благодарен за помощь.

    Если не там написал, отправте в нужный раздел)
     
  14. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    PHP:
    procedure TForm1.Button2Click(SenderTObject);
    var
     
    slTStringList;
     
    maxInteger;
     
    IInteger;
    begin
     sl 
    := TStringList.Create;
     
    sl.Delimiter := #32;
     
    sl.DelimitedText := Edit1.Text;
     
    max := 0;
     for 
    := 0 to sl.Count do
      if 
    length(sl[i]) > max then
        max 
    := Length(sl[i]);
     
    Label1.Caption := Format('Count = %d, Max length = %d', [sl.Countmax]);
     
    sl.Free;
    end;
    2 lamer811 тогда даже не знаю, случай странный. такое ощущение что где-то в коде есть Form.Hide. может в CoolTrayIcon'e баг?
     
  15. dzumohu4

    dzumohu4 New Member

    Joined:
    9 Sep 2008
    Messages:
    11
    Likes Received:
    4
    Reputations:
    0
    Ммм интересует как можно защитить память отдельного потока от чтения, либо целиком всего приложения, есть мысли по хукам, но они не спасут если скан будет на 0 ringе делаться, читал нечто про драйвера и про их возможности но последними никогда не занимался по этому вряд ли смогу написать полноценный драйвер защиты памяти в общем жду советов. ссылок на то что стоит почитать етс.




    Так же была мысль про защищённую VFS контейнер, в которой находилась бы программа но с чего начать тоже увы..
     
    #7015 dzumohu4, 18 Oct 2010
    Last edited: 18 Oct 2010
  16. filinAr

    filinAr New Member

    Joined:
    1 Oct 2010
    Messages:
    10
    Likes Received:
    0
    Reputations:
    0
    Запускал, не помогает
     
  17. MaTpOc

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

    Joined:
    5 May 2008
    Messages:
    633
    Likes Received:
    475
    Reputations:
    25
    помогите плиз

    Опрeделить дату cледующего дня +дeнь недели (с использовaнием перечисляемого типa)
     
  18. WVBR

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

    Joined:
    14 Feb 2008
    Messages:
    45
    Likes Received:
    17
    Reputations:
    0
    тема комбинаторика

    1.(сочетание с повторением) Сколькими способами можно выбрать 4 монеты из четырех пятикопеечных монет и из четырех двухкопеечных монет?
    2. (перестановка) В расписании сессии 3 экзамена (история, геометрия, алгебра). Сколько может быть вариантов расписаний?
     
  19. Blizzard

    Blizzard Member

    Joined:
    27 Jul 2010
    Messages:
    16
    Likes Received:
    16
    Reputations:
    0
    1)
    C=(8!)/(4!(8-4)!)=70
    (не уверен что так)
    2)
    R=3!=6
     
  20. MaTpOc

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

    Joined:
    5 May 2008
    Messages:
    633
    Likes Received:
    475
    Reputations:
    25
    Умные люди, подскажите! Существуют ли программы, позволяющие преобразовать условия задачи напрямую в программу на паскале, без затраты мозговых ресурсов?))
     
Thread Status:
Not open for further replies.