3 вопроса ???

[tolprog]

1) Подскажите как можно узнать время выполнения get-запроса в программе, записать значение в переменную???

2)

 begin
idhttp1:=TIdHTTP.create(nil);
data:=tstringlist.Create;
idhttp1.Host:=cbb1.text;
idhttp1.Port:=80;
idhttp1.HandleRedirects:=true;
idhttp1.Request.UserAgent :='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
Data.Add(AnsiToUtf8('user_name='+edt2.text));
data.add(AnsiToUtf8('user_password='+edt1.text));
data.Add(AnsiToUtf8('commit=Зайти'));
idhttp1.Connect;
repeat try
         text:=idhttp1.Post('/visitor/process_login',data);
         a:=true;
       except
         a:=false;
       end;
until a;

При авторизации логина с русским алфавитом никаких проблем не возникает, но при логине с английским начинается зацикливание с одной ошибкой - HTTP/1.1 501 Not Implemented. Как мне исключить эту ошибку???

3) При медленном интернете возникает так называемая "поломка" программы, когда она просто стоит без никаких действий, ничего не делает. Это может быть связано с разъединением программы с сервером(disconnected)???

Заранее всем спасибо.

[Stilet]

как можно узнать время выполнения get-запроса в программе, записать значение в переменную???

var dt:TDateTime;
...
dt:=now;
...get();
...:=now-dt

Это может быть связано с разъединением программы с сервером(disconnected)???

Это можно сказать только зная как она написана. Разьединение обычно генерирует исключение.

[tolprog]

А как обращаться к переменной типа tdatetime? Мне нужно к примеру сравнить результат с 4секунды.

.Это можно сказать только зная как она написана. Разьединение обычно генерирует исключение.

В моей программе каждый get-запрос обрамлен try-except. Я так понял, что разъединение невозможно в данном случаи? Тогда в чем проблема может быть?

[Stilet]

к примеру сравнить результат с 4секунды.

uses dateutils...
...
if SecondsBetween(now,dat)>4 then Больше 4 сек

Я так понял, что разъединение невозможно в данном случаи?

Че это? Сервак тебе отказал - получай разьединение )

[tolprog]

Насчет первого немного не понял, в самоучителе попробую разобраться с типом датавремя. С третим вопросом буду экспериментировать. Спасибо за помощ Stilet. Еще бы разобраться с вторым вопросом...

[Stilet]

Насчет первого немного не понял

SecondsBetween это функция, которая возвращает кол-во секунд между датами.
Now() функция возвращающая текущую дату-вермя.
Насчет

при логине с английским начинается зацикливание с одной ошибкой - HTTP/1.1 501 Not Implemented.

http://support.microsoft.com/KB/811262
http://www.checkupdown.com/status/E501.html

The Web server (running the Web site) does not understand or does not support the HTTP method

И

501 Not Implemented — сервер не поддерживает возможностей, необходимых для обработки запроса. Типичный ответ для случаев, когда сервер не понимает указанный в запросе метод. Если же метод серверу известен, но он не применим к данному ресурсу, то нужно вернуть ответ 405. Появился в HTTP/1.0.

[Кольша]

text:=idhttp1.Post('/visitor/process_login',data);

Щито??
Что это /visitor/process_login ??Надо указывать полный адрес т.е. например http://you-server.com/visitor/process_login .

[Stilet]

Надо указывать полный адрес

Обрати внимание на

idhttp1.Host:=cbb1.text;

Я вообще-то придерживаюсь твоего мнения, но судя по всему и такое имеет быть место

[tolprog]

Пробовал с полным адресом, не помогло. Я по началу, когда только начинал писать программу, писал полный адрес, но это очень трудоемкое дело, утрудняло работу с кодом программы. Заменил одним свойством - host.

Я думал дело в кодировке, все варианты перепробовал, ничего не помогло.

[Кольша]

но это очень трудоемкое дело, утрудняло работу с кодом программы.

И чем же?
For example:

var
h:string;
 begin
idhttp1:=TIdHTTP.create(nil);
data:=tstringlist.Create;
idhttp1.Host:=cbb1.text;
idhttp1.Port:=80;
idhttp1.HandleRedirects:=true;
idhttp1.Request.UserAgent :='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
Data.Add(AnsiToUtf8('user_name='+edt2.text));
data.add(AnsiToUtf8('user_password='+edt1.text));
data.Add(AnsiToUtf8('commit=Зайти'));
idhttp1.Connect;
h:=stringreplace(cbb1.text,'http://','',[rfreplaceall]);
h:=stringreplace(h,'/','',[rfreplaceall]);
repeat try
         text:=idhttp1.Post('http://'+h+'/visitor/process_login',data);
         a:=true;
       except
         a:=false;
       end;
until a;