Скачать: CL | DM;

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

← →
t0mk4   (2006-02-03 22:40) [0]

Как обеспечит безперерывную передачю данных меэды client.exe & server.exe ..

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

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

delphi 7.

---

← →
kaZaNoVa ©   (2006-02-03 22:46) [1]

сокеты ...

---

← →
Desdechado ©   (2006-02-03 22:49) [2]

> общяца без перерыва
пока смерть не разъединит их? или диверсант с кусачками...

---

← →
t0mk4   (2006-02-03 22:54) [3]

ну ну ястно что сокеты

Сервер:

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) нет.

---

← →
t0mk4   (2006-02-04 00:20) [4]

Вот я зделал это на 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-04 00:33) [5]

а всё я понел, в delphi 7 этот компонент типа устарел, в место него предлогают использавать Indy.. но компонент присудствует в папке /bin тока подгружать нужна в ручную..

---

← →
Германн ©   (2006-02-04 01:29) [6]

Посмотри ещё:

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

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.967 c