Форум: "Сети";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз
TClientSocket, TServerSocket Найти похожие ветки
← →
Аноним (2004-03-15 11:19) [0]Как клиентом отправить информацию (несколько строк) на сервер и как их на сервере принять?
Может в Delphi есть примеры? (сам найти не могу)
← →
Аноним (2004-03-15 11:19) [0]Как клиентом отправить информацию (несколько строк) на сервер и как их на сервере принять?
Может в Delphi есть примеры? (сам найти не могу)
← →
Vlad Oshin © (2004-03-15 11:55) [1]demos\FastNet
← →
Vlad Oshin © (2004-03-15 11:55) [1]demos\FastNet
← →
Аноним (2004-03-15 13:35) [2]Нету у меня в D7 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: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) [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 ();
← →
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 ();
← →
Аноним (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;
← →
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) пришла информация на сервер?
← →
Аноним (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;
Вообщем то на каждого клиента свой поток создается
сокеты блокируемые
← →
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]И можно еще один вопрос: блокируется ли сервер при подключении к нему клиента, и если нет, то как это сделать?
← →
Аноним (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
← →
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]Спасибо... с меня пиво...
← →
Аноним (2004-03-15 17:45) [12]Спасибо... с меня пиво...
← →
S@shka © (2004-03-15 22:40) [13]Не забудь :)
← →
S@shka © (2004-03-15 22:40) [13]Не забудь :)
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.033 c
