Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

помогите!!! [D6, WinXP]

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

BOBAKO (2002-12-29 15:17:00) [1]
нет ты немного не понял мне надло понять как работает как я могу понять открыт
например сидюк или нет я просто в лабел1 пишу что пита открыт..
а мне надо
чтоб я нажимал шла команда на открытие сидюка и в лабеле открываем сидюк...
как только команда завершенаа в лабеел должно высветится открыли как осущиствить вот это!!
Чтоб я знал когда сидюк открылся.
Зарание всем спасибо ещё раз с новым годом удачи всем в новом году, жду ответов!

DJ_Sedoy (2002-12-29 14:28:00) [2]
Про прогрессбар смотри, так же как у меня, только например в событии
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 09:31:00) [3]
Cobalt

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

Danlicha (2002-12-29 01:45:00) [4]
После того, как сменили текст на лейбле, можно его апдейтнуть.

Cobalt (2002-12-28 20:48:00) [5]
Ну почему же?
Скажем, 1/4 - подготовка к открытию
2/4 - открыли
3/4 - получили
4/4 - закрыли.

TTCustomDelphiMaster (2002-12-28 20:11:00) [6]
BOBAKO (28.12.02 19:39)
А это уже никак не сделать.

BOBAKO (2002-12-28 19:39:00) [7]
Нет у меня возникла идея получше кинуть на форму клиента
ProgressBar и когда начинается посылать запрос на сервер
Прогрессбар показывает работу чтоб видно было так красивее!
как это осущиствить???

DJ_Sedoy (2002-12-28 17:31:00) [8]
Ну наверное имеются в виду сокетные компоненты. Тогда 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;

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

RWolf (2002-12-28 16:21:00) [9]
называются как?

BOBAKO (2002-12-28 15:58:00) [10]
обычные которые входят в состав делпхи 6
Без всяких дополнительных!

RWolf (2002-12-28 15:47:00) [11]
а на каких компонентах реализованы клиент и сервер?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »