У меня несколько вопросов: 1) Как отправит на сервер POST запрос и получить то, что выдаст сервер. 2) Как скачать текстовой файл с сервера и сохранить его в каталоге проги? Желательно хотя бы небольшой пример, если не сложно.
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; Коды взяты из инета, но должны работать.
Вообщем вопрос такой Откомпилировал свой проект в Delphi 7 под Win XP SP2, всё нормально работает Скинул готовый exe на Win 7, но там программа не запускается... Она висит в процессах, но не отображается, что делать в такой ситуации? P.S. Пробовал запускать от лица администратора, с правами администратора Пробовал от Win XP SP2 и SP3, но эффекта вообще нет Хотя даже значёк программы висит в трее
Онлайн плеер + качалка музыки с некоторых сервисов Используется bass.dll, но он в папке с программой ПРИсутствует
Delphi 7 ни разу не слышала о системах новее windows XP Ее RTL и VCL писались в начале 2000-х годов именно с учетом новой тогда XP API XP и Seven не полностью совместимы насколько мне известно А новые версии Delphi эти отличия должны учитывать Дальше догадайся сам
GhostOnline Блин не то... Сейчас обнаружил, что еще на некоторых компах, где стоит XP тоже программа запускается, она висит в трее (CoolTrayIcon), есть в процессах, но формы на экране нет
Как определить какое количество слов и самое длинное слово( вводили в текстовом поле edit) ? Фактически нужно по кнопке вывести результат в Label. Заранее благодарен за помощь. Если не там написал, отправте в нужный раздел)
PHP: procedure TForm1.Button2Click(Sender: TObject); var sl: TStringList; max: Integer; I: Integer; begin sl := TStringList.Create; sl.Delimiter := #32; sl.DelimitedText := Edit1.Text; max := 0; for I := 0 to sl.Count - 1 do if length(sl[i]) > max then max := Length(sl[i]); Label1.Caption := Format('Count = %d, Max length = %d', [sl.Count, max]); sl.Free; end; 2 lamer811 тогда даже не знаю, случай странный. такое ощущение что где-то в коде есть Form.Hide. может в CoolTrayIcon'e баг?
Ммм интересует как можно защитить память отдельного потока от чтения, либо целиком всего приложения, есть мысли по хукам, но они не спасут если скан будет на 0 ringе делаться, читал нечто про драйвера и про их возможности но последними никогда не занимался по этому вряд ли смогу написать полноценный драйвер защиты памяти в общем жду советов. ссылок на то что стоит почитать етс. Так же была мысль про защищённую VFS контейнер, в которой находилась бы программа но с чего начать тоже увы..
тема комбинаторика 1.(сочетание с повторением) Сколькими способами можно выбрать 4 монеты из четырех пятикопеечных монет и из четырех двухкопеечных монет? 2. (перестановка) В расписании сессии 3 экзамена (история, геометрия, алгебра). Сколько может быть вариантов расписаний?
Умные люди, подскажите! Существуют ли программы, позволяющие преобразовать условия задачи напрямую в программу на паскале, без затраты мозговых ресурсов?))