Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как обеспечит безперерывную передачю данных..

t0mk4 © (2006-02-03 22:40:00)
Как обеспечит безперерывную передачю данных меэды client.exe & server.exe ..

тоесть не так что клиент приконектился, послал "hello server" подаждал пока сервер ему прислал "hello client" и disconnect;

а так чтобы небыла дисконекта и сервер и клиент могли общяца без перерыва..

delphi 7.

Германн (2006-02-04 01:29:00) [1]
Посмотри ещё:

ICS - Internet Component Suite
------------------------------

Download latest version from http://www.overbyte.be

Библиотека FREE. С исходниками. С примерами. Некоторые мастера её уважают.

t0mk4 (2006-02-04 00:33:00) [2]
а всё я понел, в delphi 7 этот компонент типа устарел, в место него предлогают использавать Indy.. но компонент присудствует в папке /bin тока подгружать нужна в ручную..

t0mk4 (2006-02-04 00:20:00) [3]
Вот я зделал это на Delphi 6.. а как это же самое зделать на Delphi 7 и выше?

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Edit3.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ServerSocket1.Port := 5555;
ServerSocket1.Active := true;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ClientSocket1.Host:='127.0.0.1';
ClientSocket1.Port:=5555;
ClientSocket1.Active:=true;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Edit2.Text := Socket.ReceiveText;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Socket.Connections[0].SendText(Edit1.Text);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Edit4.Text := Socket.ReceiveText;
end;

t0mk4 (2006-02-03 22:54:00) [4]
ну ну ястно что сокеты

Сервер:

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
Edit1.Text:=ClientSocket.ReceiveLn; // получили строку от клиента
ClientSocket.SendLn('privet klientu!'); // посылаем ему ответ
end;

Клиент:

procedure TForm1.Button2Click(Sender: TObject);
begin
TcpClient1.RemoteHost := '127.0.0.1';
TcpClient1.RemotePort := '5555';

if TcpClient1.Connect then
begin
TcpClient1.Sendln(Edit3.Text);
Edit4.Text := TcpClient1.Receiveln();
TcpClient1.Disconnect;
end;
end;

как ? как зделать ... в delphi 6 по моему можно была, а тут (delphi7) нет.

Desdechado (2006-02-03 22:49:00) [5]
> общяца без перерыва
пока смерть не разъединит их? или диверсант с кусачками...

kaZaNoVa (2006-02-03 22:46:00) [6]
сокеты ...

Наверх

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