Fórum Problemas com Socket e Delphi7 #317780

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ScktComp, StdCtrls; 

type 
  TForm1 = class(TForm) 
    Server: TServerSocket; 
    Memo1: TMemo; 
    Button2: TButton; 
    Button3: TButton; 
    procedure Button2Click(Sender: TObject); 
     procedure ServerClientRead(Sender: TObject; Socket: TCustomWinsocket); 
     procedure ServerClientConnect(Sender: TObject;  Socket: TCustomWinSocket); 
        procedure Button3Click(Sender: TObject); 
     private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinsocket); 
var 
s1: string; 
begin 
s1 := Socket.ReceiveText; 
Memo1.Lines.Add(s1); 
end; 

procedure TForm1.ServerClientConnect(Sender: TObject;  Socket: TCustomWinSocket); 
begin 
Memo1.Lines.Add(´Cliente se Conectou´); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
Server.Active:= True; 
Server.Open; 
Memo1.Lines.Add(´Aberto para Conexoes...´); 

end; 

procedure TForm1.Button3Click(Sender: TObject); 
begin 
Server.Active:= False; 
end; 

end.