PDA

Просмотр полной версии : Сокеты и Delphi

mr.The
15.12.2007, 17:47
Помогите написать программу которая -
1.Открывает на компе порт.
2.Ждёт подключения на него.
3.Пишет каждому кто подключился "Preved".
4.и закрывает входящее соеденение.

желательно многопоточная.

и очень прошу - с коментариями!.

сделал бы сам да давно не писал на delphi.
zl0y
15.12.2007, 18:41
var
Form1: TForm1;
Connections : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Active:=true;
Connections:=0;
end;

procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
Inc(Connections);
Socket.SendText('Preved');
Edit1.Text:=IntToStr(Connections);
Socket.Disconnect(Connections);
Dec(Connections);
end;
mr.The
16.12.2007, 17:26
спс. вроде разобрался..
а как читать из сокета?
DWORD
16.12.2007, 17:47
На таких сокетах далеко не уедешь...
GlOFF
16.12.2007, 17:50
На таких сокетах далеко не уедешь...

А на каких нужно уходить? Поделись...
DWORD
16.12.2007, 17:54
А на каких нужно уходить? Поделись...
Ну я имею ввиду winsock, а не всякие ООПшные надстройки.
GlOFF
16.12.2007, 17:55
Ды я понел. Просто есть вопрос, нужен ответ. можете предложить лучше. Будем только рады, я бы и сам поучился у Вас.
zl0y
16.12.2007, 18:09
спс. вроде разобрался..
а как читать из сокета?
там события есть OnRead,OnWrite.