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]

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

← →
Аноним (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]

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

Есно не блокируется - иначе шо це за Сервер :)))
Блокировать можно очень просто
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]

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

Не забудь :)

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