Задержка

[JRcoker]

Вобщем нужен такой код чтоб по нажатию кнопки он открыл сокет
MySocket1.Open;
И через 2 секунды его закрыл
MySocket1.Close;

[eoln]

Sleep(2000) или чтоб неподвисало

for i := 1 to 20 do begin  
   Sleep(100); 
   Application.ProcessMessages;
end;

[Stilet]

Вобщем нужен такой код чтоб по нажатию кнопки он открыл сокет

И в чем затруднения?
Demo папки и хелпы по сокетам в Делфи вроде еще жЫвее всех живих.

[JRcoker]

eoln программа не виснет...Но закрыть её становится затруднительно...

[Crivel]

JRcoker, а таймер не подойдёт?
Допустим разделить этот код на две процедуры -

//Любая процедура
begin
MySocket1.Open;
Timer1.Enabeled = true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
MySocket1.Close;
Timer1.Enabeled := false;
end;

Таймеру надо будет поставить значения Enabeled = false и Interval = 2000

[Arigato]

В Turbo Pascal была такая функция: Delay - задержка на указанное число мc.
Вот вариант для Делфи:

procedure Delay (ms: Integer);
var T: Integer;
begin
  T := GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount - T > ms;
end;

Для задержки на 2 сек: Delay (2000);

P.S. написал сходу (не тестируя), должно работать.

[Stilet]

В Turbo Pascal была такая функция: Delay - задержка на указанное число мc.

В Делфи эта функа заменена на ту пример которой привел eoln

[Crivel]

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

JRcoker, а таймер не подойдёт?
Допустим разделить этот код на две процедуры -

//Любая процедура
begin
MySocket1.Open;
Timer1.Enabeled = true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
MySocket1.Close;
Timer1.Enabeled := false;
end;

Таймеру надо будет поставить значения Enabeled = false и Interval = 2000

А что, мой пример не подойдёт?

[JRcoker]

Врятли тут что либо вообще подойдёт...
Я думал если открывать сокет и секунды через 2 закрыть то ответ от сервера быстрее вылезит...
На примере видел программа взят компомент TClientSocket...Подключение к одному и тамуже серверу...Только вот ответ у проги моментальный..А у меня через секунд 10 - 8...

[Arigato]

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

В Делфи эта функа заменена на ту пример которой привел eoln

процедура sleep по сути вызывает подвисание программы, а вариант Delay, приведенный мною - нет.