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

TClientSocket, TServerSocket   Найти похожие ветки 

← →
Аноним   (2004-03-15 11:19) [0]

Как клиентом отправить информацию (несколько строк) на сервер и как их на сервере принять?

Может в Delphi есть примеры? (сам найти не могу)

---

← →
Vlad Oshin ©   (2004-03-15 11:55) [1]

demos\FastNet

---

← →
Аноним   (2004-03-15 13:35) [2]

Нету у меня в D7 FastNet...

---

← →
S@shka ©   (2004-03-15 13:52) [3]

На нет и суда нет :)
TClientSocket и TServerSocket
смотри примеры работы с этим компонентами
они то есть?
Либо Indy
TidTCpClient TidTCPServer
в сервере определяешь onExecute
отправка строки
TCPClient.Writeln ("STROKA1");
прием на сервере
recv := Athread.Connection.readln ();

---

← →
S@shka ©   (2004-03-15 13:53) [4]

На нет и суда нет :)
TClientSocket и TServerSocket
смотри примеры работы с этим компонентами
они то есть?
Либо Indy
TidTCpClient TidTCPServer
в сервере определяешь onExecute
отправка строки
TCPClient.Writeln ("STROKA1");
прием на сервере
recv := Athread.Connection.readln ();

---

← →
S@shka ©   (2004-03-15 13:53) [5]

На нет и суда нет :)
TClientSocket и TServerSocket
смотри примеры работы с этим компонентами
они то есть?
Либо Indy
TidTCpClient TidTCPServer
в сервере определяешь onExecute
отправка строки
TCPClient.Writeln ("STROKA1");
прием на сервере
recv := Athread.Connection.readln ();

---

← →
Аноним   (2004-03-15 14:14) [6]

Не понятно, что это:
  recv := Athread.Connection.readln ();

---

← →
S@shka ©   (2004-03-15 15:34) [7]

TIdTCPServer.OnExecute (AThread : TId..Thread);
var
recv  : String;
begin
try
  recv := Athread.Connection.Readln ();
excpet
end;
end;

---

← →
Аноним   (2004-03-15 16:15) [8]

TO S@shka ©
Спасибо, а как узнать от кого (IP) пришла информация на сервер?

---

← →
S@shka ©   (2004-03-15 17:08) [9]

TIdTCPServer.OnExecute (AThread : TId..Thread);
var
recv  : String;
FormIP : String;
begin
try
 FromIP := Athread.Connection.Binding.PeerIP;
 recv := Athread.Connection.Readln ();
excpet
end;
end;
Вообщем то на каждого клиента свой поток создается
сокеты блокируемые

---

← →
Аноним   (2004-03-15 17:20) [10]

И можно еще один вопрос: блокируется ли сервер при подключении к нему клиента, и если нет, то как это сделать?

---

← →
S@shka ©   (2004-03-15 17:35) [11]

Есно не блокируется - иначе шо це за Сервер :)))
Блокировать можно очень просто
var
CLientConnected : Boolean = False;

OnConnect (Athread : TId..Thread);
begin
 if (ClientConnected) then
 begin
   athread.Terminate;
   Exit;
 end;
 ClientConnected := True;
end;

TIdTCPServer.OnExecute (AThread : TId..Thread);
var
recv  : String;
FormIP : String;
begin
try
FromIP := Athread.Connection.Binding.PeerIP;
recv := Athread.Connection.Readln ();
except
ClientConnected := False;
end;
end;

Либо смотреть сколько потоков держит сервер через Tid..Thread

---

← →
Аноним   (2004-03-15 17:45) [12]

Спасибо... с меня пиво...

---

← →
S@shka ©   (2004-03-15 22:40) [13]

Не забудь :)

---

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

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



Память: 0.47 MB
Время: 0.037 c