Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.038 c
3-1115321580
RomanH
2005-05-05 23:33
2005.06.14
Как вставить результат запроса в DbEdit


4-1114420136
}|{yk
2005-04-25 13:08
2005.06.14
Как зарегистрировать файлы для открытия их определенной программо


1-1116938422
alertus
2005-05-24 16:40
2005.06.14
Ускорение работы с динамическими массивами


1-1117000756
Cash
2005-05-25 09:59
2005.06.14
Как правильно создать контрол из DLL


1-1117011502
KSK
2005-05-25 12:58
2005.06.14
кнопки SpeedButton





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский