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

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

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

TClientSocket, TServerSocket [D7, WinXP]

Аноним © (2004-03-15 11:19:00)
Как клиентом отправить информацию (несколько строк) на сервер и как их на сервере принять?

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

S@shka (2004-03-15 22:40:00) [1]
Не забудь :)

Аноним (2004-03-15 17:45:00) [2]
Спасибо... с меня пиво...

S@shka (2004-03-15 17:35:00) [3]
Есно не блокируется - иначе шо це за Сервер :)))
Блокировать можно очень просто
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:20:00) [4]
И можно еще один вопрос: блокируется ли сервер при подключении к нему клиента, и если нет, то как это сделать?

S@shka (2004-03-15 17:08:00) [5]
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 16:15:00) [6]
TO S@shka ©
Спасибо, а как узнать от кого (IP) пришла информация на сервер?

S@shka (2004-03-15 15:34:00) [7]
TIdTCPServer.OnExecute (AThread : TId..Thread);
var
recv : String;
begin
try
recv := Athread.Connection.Readln ();
excpet
end;
end;

Аноним (2004-03-15 14:14:00) [8]
Не понятно, что это:
recv := Athread.Connection.readln ();

S@shka (2004-03-15 13:53:00) [9]
На нет и суда нет :)
TClientSocket и TServerSocket
смотри примеры работы с этим компонентами
они то есть?
Либо Indy
TidTCpClient TidTCPServer
в сервере определяешь onExecute
отправка строки
TCPClient.Writeln ('STROKA1');
прием на сервере
recv := Athread.Connection.readln ();

S@shka (2004-03-15 13:53:00) [10]
На нет и суда нет :)
TClientSocket и TServerSocket
смотри примеры работы с этим компонентами
они то есть?
Либо Indy
TidTCpClient TidTCPServer
в сервере определяешь onExecute
отправка строки
TCPClient.Writeln ('STROKA1');
прием на сервере
recv := Athread.Connection.readln ();

S@shka (2004-03-15 13:52:00) [11]
На нет и суда нет :)
TClientSocket и TServerSocket
смотри примеры работы с этим компонентами
они то есть?
Либо Indy
TidTCpClient TidTCPServer
в сервере определяешь onExecute
отправка строки
TCPClient.Writeln ('STROKA1');
прием на сервере
recv := Athread.Connection.readln ();

Аноним (2004-03-15 13:35:00) [12]
Нету у меня в D7 FastNet...

Vlad Oshin (2004-03-15 11:55:00) [13]
demos\FastNet

Наверх

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