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

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

Подскажите как это сделать плыз... [D5, Win95/98]

Maksss ©   (2002-11-12 19:02:00) 

Вот кусок кода из проги
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ServerSocket : TServerSocket;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket := TServerSocket.Create(nil);
ServerSocket.Port := 123;
ServerSocket.ServerType := stNonBlocking;
ServerSocket.Active := True;
end;
end.
Как Поймать Конект клиента и Чтение клиента.

---

wssg   (2002-11-12 20:56:00) [1]

В момент коннекта натупает событие TServerSocket.OnClientConnect, как его обработать см. Laim (12.11.02 19:17).

> ServerSocket.OnClientRead(sender:object;...) это вызов процедуры >конект
Это НЕ вызов процедуры коннект. OnClientRead - событие, которое возникает, когда серверу нужно прочитать данный отправленные клиентом

---

Maksss   (2002-11-12 20:37:00) [2]

Laim
это работать не будет ServerSocket.OnClientRead(sender:object;...)это вызов процедуры конект,а мне надо поймать сам момент сонекта.

---

Laim   (2002-11-12 19:17:00) [3]

Вроде можно зделать так:

private
{ Private declarations }
public
PROCEDURE ServerSocketConnect(Sender: TObject;
Socket: TCustomWinSocket);
PROCEDURE ServerSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
end;

var
Form1: TForm1;
ServerSocket : TServerSocket;


implementation

{$R *.DFM}
PROCEDURE TForm1.ServerSocketConnect;
begin
Showmessage("Connect ok");
end;

PROCEDURE TForm1.ServerSocketRead;
begin
{-----------}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket := TServerSocket.Create(nil);
ServerSocket.Port := 123;
ServerSocket.ServerType := stNonBlocking;
ServerSocket.Active := True;
ServerSocket.OnClientConnect:=ServerSocketClientConnect;
ServerSocket.OnClientRead:=ServerSocketClientRead;
end;

---

Наверх