| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Надёжный способ приёма [D6, Win95/98, WinXP]

Страницы:   < 1 2 >

delpher_gray ©   (2003-09-17 11:16:00) 

Вот заготовка программы:
program PServer;

uses
SysUtils, ScktComp, Windows;

type
TServer = class
private
procedure ClientConnectEvent(Sender: TObject; Socket: TCustomWinSocket);
procedure ClientReadEvent(Sender: TObject; Socket: TCustomWinSocket);
end;

var
hMutex: THandle;
ServerClass: TServer;
ServerSocket1: TServerSocket;
Msg: TMSG;
Cancel: boolean;

procedure TServer.ClientConnectEvent(Sender: TObject; Socket: TCustomWinSocket);
begin
// CODE
end;

procedure TServer.ClientReadEvent(Sender: TObject; Socket: TCustomWinSocket);
begin
// CODE
end;

begin
hMutex := CreateMutex(nil, false, "Server");
if WaitForSingleObject(hMutex, 0) <> wait_TimeOut then
begin
ServerSocket1 := TServerSocket.Create(nil);
ServerSocket1.ServerType := stNonBlocking;
ServerSocket1.Port := 1379;

try
ServerSocket1.Open;
except
Cancel := true;
end;

while not Cancel do
begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
Sleep(5);
end;

ServerSocket1.Close;
ServerSocket1.Free;
end;
end.

Подскажите как я могу принимать от клиента команды надёжным путём ? Команды могут быть разные...
например команда выключения монитора, или список файлов на диске...

---

zippo   (2003-09-17 19:13:00) [21]

&&&&

---

Verg   (2003-09-17 15:03:00) [22]

> TServer.


К чему описание этого класса?
Каким боком TServer участвует в программе?

---

Digitman   (2003-09-17 11:22:00) [23]

а какие вообще сомнения в надежности ?
в связи с чем такой вопрос возник ?

---

Страницы:   < 1 2 >

Наверх