Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.14;
Скачать: CL | DM;

Вниз

IdTCPClient&IdTCPServer + косячный пример   Найти похожие ветки 

 
Nes ©   (2005-03-21 20:33) [0]

Спросив про IdTCPClient&IdTCPServer понятно ответа я не увидел, возможно, теперь всё будет намного проще и яснее...я привожу исходники с моих клиента и сервера ,а Вы , я надеюсь, скажете , где у меня ошибка, и что я делаю не так...

********************///////////////IdTCPClient///////////////

procedure TForm1.Button1Click(Sender: TObject);
begin
idtcpclient1.Host:="127.0.0.1";
idtcpclient1.Port:=44444;
idtcpclient1.Connect;
idtcpclient1.WriteLn("test blin");
idtcpclient1.Disconnect;
end;

*********************/////////////IdTCPServer //////////////
procedure TForm1.FormCreate(Sender: TObject);
begin
idtcpserver1.DefaultPort:=44444;
idtcpserver1.Active:=true;

{А как мне получить ту строку, посланную с IdTCPClient,ведь у idtcpserver нет readln}

memo1.lines.add({строка с клиента});
idtcpserver1.active:=false;
end;

Как же мне получть те "test blin" с клиента на сервере?


 
Alexander Panov ©   (2005-03-21 23:06) [1]

IDS: TIdTCPServer;
IDC: TIdTCPClient;

procedure TForm1.IDCConnected(Sender: TObject);
begin
 IDC.Write("sadf"+);
end;

procedure TForm1.IDSConnect(AThread: TIdPeerThread);
var
 s: String;
begin
 s := AThread.Connection.ReadLn;
 Memo1.Lines.Add(s);
end;


 
nes ©   (2005-03-21 23:52) [2]

Ув. Alexander Panov,  Санкс..действительно помог...=), приезжай в Эстонию, с меня пиво=)


 
Nes ©   (2005-03-23 00:49) [3]

Всё бы хорошо, всё работает с локал хостом, но вот если только указывать хост как ип адрес, то выползает, мол хост не найден или отказ связи, чем это может быть вызвано? Может быть мой роутер всё портит? или ещё что-то необходимо? Или я всё правильно делаю, нужно продолжать пробовать на других компах?
Если указывать хост 127.0.0.1 , то всё прекрасно работает...


 
Nes ©   (2005-03-24 00:31) [4]

Блин...как я понял из нескольких других тем, мне нужно запихать IdTCP CLient i Server в одно место и пробовать с IdUPDClient i server



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

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

Наверх




Память: 0.47 MB
Время: 0.029 c
1-1117365248
Rembo
2005-05-29 15:14
2005.06.14
Печать содержимого TStringgrid


14-1116928913
Stef
2005-05-24 14:01
2005.06.14
сжатие exe-файла


1-1117038148
Тёма_бест
2005-05-25 20:22
2005.06.14
TMainMenu заглючил


1-1117194774
ctranik
2005-05-27 15:52
2005.06.14
проблемы с реестром, кто силён помогите, пожалуйсто


1-1117376417
aha
2005-05-29 18:20
2005.06.14
Как красиво как в Ворде например сделать функцию переименования