Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: 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 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.036 c
3-1081502044
_sulent
2004-04-09 13:14
2004.04.11
Сжатие базы


4-1075206318
GrayFace
2004-01-27 15:25
2004.04.11
Диалог внутри формы: как сделать лучше?


4-1075901955
Samael6
2004-02-04 16:39
2004.04.11
И снова перехват АПИ


3-1081851727
CyBeR
2004-04-13 14:22
2004.04.11
Как вставить результат запроса Query в таблицу???.


1-1080031832
Artem03
2004-03-23 11:50
2004.04.11
Фокус на ПРЕДЫДУЩИЙ компонент