Форум: "Сети";
Текущий архив: 2003.02.20;
Скачать: [xml.tar.bz2];
Внизпомогите!!! Найти похожие ветки
← →
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
Подскажи не мно го про Процесс бар что то ты там говорил?
← →
DJ_Sedoy (2002-12-29 14:28) [10]Про прогрессбар смотри, так же как у меня, только например в событии
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 пишу что пита открыт..
а мне надо
чтоб я нажимал шла команда на открытие сидюка и в лабеле открываем сидюк...
как только команда завершенаа в лабеел должно высветится открыли как осущиствить вот это!!
Чтоб я знал когда сидюк открылся.
Зарание всем спасибо ещё раз с новым годом удачи всем в новом году, жду ответов!
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.02.20;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c