Client og Serverprogram

Jeg bruger Indy´s komponenter til den slags dvs. en TCP server og nogle TCP klienter.

en måte å få klienten til å sende et signal når den slås av er å bruke OnCloseQuery til hovedformen din. jeg er ikke kjent med Delphi 2005's komponenter, men Delphi 6 bruker TServerSocket og TClientSocket...

f.eks:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ClientSocket1.Socket.SendText('END CONNECTION');
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if Socket.ReceiveText('END CONNECTION') then
    User[GetUserID(Socket.RemoteAddress)].Online:= False;
end;

håper dette kan være til hjelp...
(for optimal ytelse lønner det seg ikke å bruke hele setninger til slike ting... å sende EN byte er mye mer effektivt (bruk av OPcodes f.eks))

en måte å få klienten til å sende et signal når den slås av er å bruke OnCloseQuery til hovedformen din. jeg er ikke kjent med Delphi 2005's komponenter, men Delphi 6 bruker TServerSocket og TClientSocket...

f.eks:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ClientSocket1.Socket.SendText('END CONNECTION');
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if Socket.ReceiveText('END CONNECTION') then
    User[GetUserID(Socket.RemoteAddress)].Online:= False;
end;

håper dette kan være til hjelp...
(for optimal ytelse lønner det seg ikke å bruke hele setninger til slike ting... å sende EN byte er mye mer effektivt (bruk av OPcodes f.eks))

Dvs. at jeg kun skal bruge TServerSocket og TClientSocket? Og så kan jeg undlade at rode med TCP server/klient?

Evt. et sted hvor jeg kan læse mere om brug af sockets i Delphi?
Den er ikke helt feset ind endnu kan jeg mærke..

Lukker spørgsmålet...