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

как высчитать промежуток времени?
Вот допустим я знаю сегодняшнюю дату (получаю функцией DateTimeToStr(now)), а мне надо узнать сколько осталось дней до 15 июля 15 часов 17 секунд.
Как реализовать такое?

 

Дело в том что недавно изменили параметры авторизации в вконтакте. Теперь 's' подается по другому)

 

Тут не телепаты Вывкладывай код авторизации. Свой куки менеджер или indy? Да и параметр s при ответе от login.vk.com изменился.

Вот держи :

Code:

Var t : TDateTime;
begin
    t := Abs(EncodeDate(2010, 6, 15) + EncodeTime(15, 17, 0, 0) - Now);
    *скок осталось* := FormatDateTime('hh:nn:ss dd/mm/yyyy', t);

Почему по модулю? - Что бы при разнице с рассчитаной датой и текущей не было минуса. Почему год в разнице 1900 а не 0? - Потому что в виндовской дате отсчитываение года начинается с 1900, то есть можно считать 0.

 

хм...
t := Abs(EncodeDate(2010, 07, 22) + EncodeTime(0, 0, 0, 0) - Now);
label2.Caption:=FormatDateTime('hh:nn:ss dd/mm/yy', t);

и показывает что осталось 2 месяца, 10 дней и 0 лет, каких же 2 месяца и 10 дней?

 

А ты не заметил что дату поменял?

 

Заметил. Там я сказал для примера, я еще не знал до какой даты мне надо. Теперь знаю что мне надо высчитать до 22 июля.

 

что можно сделать чтобы программа с indy не зависала?

 

Компонент IdAntiFreeze на форму бросить c вкладки Indy Misc

 

весь пк от нее зависает))
еще вопросик: как сделать чтобы страница загружалась не вся? а только например 20кб

 

в переменную засовывать вес страницы и делать цикл while size<20 - ?

 

.::f-duck::., а дальше что ты сделаешь, чтобы окончить скачивание?

winlogon.exe, насколько я знаю, indy получает данные со страницы до тех пор, пока не сервер не разорвет соединение. Для получения N байт используй WinSock.

 

Уверен что только в винсок так можно, а?
В инди есть событие OnWork в котором можно вызывать дисконнект при получении нужного количества байт
Общее количество скачанного в параметре AWorkCount можно узнать

Если зависает весь комп значит в проге бесконечный цикл. Или если много потоков то плохая синхронизация и оптимизация кода.

 

короче решил сделать потоки чтобы софт не зависал и было все норм.

 

чем отличается createthread от beginthread ?

 

подскажите вот если делаем запрос в google.ru со словом привет
получим в адресной страке

Code:

http://www.google.ru/search?hl=ru&source=hp&q=%D0%BF%D1%80%D0%B8%D0%B2%D0%B5%D1%82&aq=f&aqi=g10&aql=&oq=&gs_rfai=

я так понемаю что

Code:

%D0%BF%D1%80%D0%B8%D0%B2%D0%B5%D1%82

это привет
как сделать чтоб текст из memo1 привратит в такое

 

ссылко

 

не то не получаеться та колировка

 

И не получится. AnsiToUtf8 сначала нужно

 

Может не совсем в тему, но попрошу.
Посоветуйте статейку/тему/книжку
Нужно выучить циклы на pascal
Все остальное понятно, а вот циклы не знаю)))

 

_http://www.delphibasics.ru/Repeat.php
_http://www.delphibasics.ru/While.php
_http://www.delphibasics.ru/Until.php
_http://www.delphibasics.ru/For.php