Текущий архив: 2002.11.21;
Скачать: CL | DM;

Вниз

Подскажите как это сделать плыз...   Найти похожие ветки 

← →
Maksss   (2002-11-12 19:02) [0]

Вот кусок кода из проги
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.
Как Поймать Конект клиента и Чтение клиента.

---

← →
Laim   (2002-11-12 19:17) [1]

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

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;

---

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

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

---

← →
wssg   (2002-11-12 20:56) [3]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c