помогите!!!

← →
BOBAKO (2002-12-28 15:18) [0]

Здрасти всем присутсвующим с наступающим желаю всего всего!
Вопрос у меня возник конечно он мне не очень существеннен но все таки
хорошо бы если мне в нём помогли:
короче у меня клиент и сервер при отправлении команды (какой-то) на сервер
в клиенте в form.label2.caption пишется открыт.
мне надо чтоб это писалось как только команда выполнится.
То есть:
с начало когда команда выполняется в form.label2.caption:Открываем...
как только команда выполнится должно плучится form.label2.caption: открыли...
как осущиствить это...
помогите пожалусто.
И ещё раз всех с наступающим новым годом !!!
Чтоб денег было МНОЖА МНОЖА одним словом даже больше чем хочется :)
Ну ладно жду ответов!

← →
RWolf (2002-12-28 15:47) [1]

а на каких компонентах реализованы клиент и сервер?

← →
BOBAKO (2002-12-28 15:58) [2]

обычные которые входят в состав делпхи 6
Без всяких дополнительных!

← →
RWolf (2002-12-28 16:21) [3]

называются как?

← →
DJ_Sedoy © (2002-12-28 17:31) [4]

Ну наверное имеются в виду сокетные компоненты. Тогда OnConnect и Disconnec соответственно.
Вот прям из моего, отлично работает (на клиенте):
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
if NI then Begin
Application.Icon.LoadFromFile("online.ico");
Ic(3, Application.Icon);
end;
Label1.Caption:="On Line";
if ClientSocket1.Active then ClientSocket1.Socket.SendText("logon"+#7+"0"+#7+"$"+#7+Properties.Nick+#7);
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
Label1.Caption:="Сервер не доступен";
ErrorCode:=0;
Timer1.Enabled:=true;
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Label1.Font.Color:=clBlack;
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if NI then Begin
Application.Icon.LoadFromFile("offline.ico");
Ic(3, Application.Icon);
end;
Label1.Caption:="Попытка подключения";
Timer1.Enabled:=false;
ClientSocket1.Active:=True;
end;

Думаю примерно понятно будет.

← →
BOBAKO (2002-12-28 19:39) [5]

Нет у меня возникла идея получше кинуть на форму клиента
ProgressBar и когда начинается посылать запрос на сервер
Прогрессбар показывает работу чтоб видно было так красивее!
как это осущиствить???

← →
TTCustomDelphiMaster © (2002-12-28 20:11) [6]

BOBAKO (28.12.02 19:39)
А это уже никак не сделать.

← →
Cobalt © (2002-12-28 20:48) [7]

Ну почему же?
Скажем, 1/4 - подготовка к открытию
2/4 - открыли
3/4 - получили
4/4 - закрыли.

← →
Danlicha © (2002-12-29 01:45) [8]

После того, как сменили текст на лейбле, можно его апдейтнуть.

← →
BOBAKO (2002-12-29 09:31) [9]

Cobalt

Подскажи не мно го про Процесс бар что то ты там говорил?

Про прогрессбар смотри, так же как у меня, только например в событии
Form1Create
ProgressBar1.Min:=0;
ProgressBar1.Max:=4;
ProgressBar1.Position:=0;

а в обработчиках коннекта, дисконнекта и пр. ставим:

ProgressBar1.Position:=n (n=1..4 в зависимости от статуса.) вместо соответственно Label1.Caption:="Connect" etc
Можно даже его цветным сделать - где-то сдесь же в форуме видел как, но щас не подскажу.

Да, прокомментирую свой кусок, а то напрямую вытащил...
Ic(Status, Icon) - помещаем иконку в трей, это не важно
if ClientSocket1.Active then ClientSocket1.Socket.SendText("logon"+#7+"0"+#7+"$"+#7+Properties.Nick+#7);
это я просто на сервер шлю инфу, что кто-то зашел (просто для статистики)
А Timer1 у меня для попыток переподключения, в случае дисконнекта/недоступности сервера.
Но я думаю что ты сам разобрался.

← →
BOBAKO (2002-12-29 15:17) [11]

нет ты немного не понял мне надло понять как работает как я могу понять открыт
например сидюк или нет я просто в лабел1 пишу что пита открыт..
а мне надо
чтоб я нажимал шла команда на открытие сидюка и в лабеле открываем сидюк...
как только команда завершенаа в лабеел должно высветится открыли как осущиствить вот это!!
Чтоб я знал когда сидюк открылся.
Зарание всем спасибо ещё раз с новым годом удачи всем в новом году, жду ответов!

помогите!!! Найти похожие ветки