[Synapse] Узнать TimeOut Get запроса

[RUKatya]

Добрый вечер, программисты!
Возникла проблема, нужно сделать GET запрос на сайт, и в edit вывести TimeOut.

[Человек_Борща]

А зачем его выводить?
По дефолту 30 сек.

[RUKatya]

ну мне нужно узнать TimeOut в ms. Например вот как тут сделано (тоже на Delphi)



Только мне в edit нужно вывести.

[bulldog5293]

примерно так

procedure TForm1.Button1Click(Sender: TObject);
var iCounterPerSec: TLargeInteger;
    C1, C2: TLargeInteger;
    Stream: TMemoryStream;
begin
{Пинг}
//  label7.Caption:=IntToStr(PingHost(Edit1.Text))+' мс.';
{качаем файл}
  Stream:=TMemoryStream.Create;
  QueryPerformanceFrequency(iCounterPerSec);
  QueryPerformanceCounter(C1);
  HttpGetBinary('http://webdelphi.ru/wp-content/uploads/2010/02/wpchecker.zip',Stream);
  QueryPerformanceCounter(C2);
  label8.Caption:=FormatFloat('0.0000', (C2 - C1) / iCounterPerSec) + ' сек.';
  label10.Caption:=CurrToStr(Stream.Size/1024);
  label11.Caption:=CurrToStr((Stream.Size/1024)/((C2 - C1) / iCounterPerSec))+' кбайт/сек'
end;

[UKRtortik]

Сообщение от bulldog5293

примерно так

procedure TForm1.Button1Click(Sender: TObject);
var iCounterPerSec: TLargeInteger;
    C1, C2: TLargeInteger;
    Stream: TMemoryStream;
begin
{Пинг}
//  label7.Caption:=IntToStr(PingHost(Edit1.Text))+' мс.';
{качаем файл}
  Stream:=TMemoryStream.Create;
  QueryPerformanceFrequency(iCounterPerSec);
  QueryPerformanceCounter(C1);
  HttpGetBinary('http://webdelphi.ru/wp-content/uploads/2010/02/wpchecker.zip',Stream);
  QueryPerformanceCounter(C2);
  label8.Caption:=FormatFloat('0.0000', (C2 - C1) / iCounterPerSec) + ' сек.';
  label10.Caption:=CurrToStr(Stream.Size/1024);
  label11.Caption:=CurrToStr((Stream.Size/1024)/((C2 - C1) / iCounterPerSec))+' кбайт/сек'
end;

А как это на синапсе реализовать? (Просто тоже интересно)

[RUKatya]

bulldog5293, а именно на Synapse это можно сделать?

Например:

HTTP.HTTPMethod('GET', 'http://www.yandex.ru/');
{
И тут как то получить пинг
}

Так возможно сделать?

[Человек_Борща]

Ну вам дали код, так сложно самому переделать?

[RUKatya]

Сообщение от Человек_Борща

Ну вам дали код, так сложно самому переделать?

Я пробывала, не получается...

[bulldog5293]

Я пробывала, не получается...

Что именно НЕ ПОЛУЧИЛОСЬ? Я ЭТОТ КОД ЗА МИНУТУ НАШОЛ В ГУГЛЕ

[RUKatya]

Сообщение от bulldog5293

Что именно НЕ ПОЛУЧИЛОСЬ? Я ЭТОТ КОД ЗА МИНУТУ НАШОЛ В ГУГЛЕ

Я не нашла, можете код дать?