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

Вниз

Интересно, хоть кто-нибудь смог бы написать РАБОЧИЙ Telnet? Под сервер UNIX никак не пашет!   Найти похожие ветки 

 
Realizator   (2002-02-13 09:49) [0]

Пожалуйста, помогите! Не понимаю, ну неужели никто и никогда не писал самую обыкновенную Telnet программу, такую же как стандартный Windows Telnet ??? Ведь вроде Интернет вещь повседневная, ну неужели никому не надо было? Не могу НИГДЕ найти как написать нак, что б работал без глюков...
Ситуация такова: Есть сервер под UNIX и, скажем, мой комп под Виндами. И вот не работает мой написанный Телнет ну ни как. Сервер всякую белибирду выдаёт в начале, наподобие вот этого
яэяэ яэ#яэ"яэ$, вместо приветствия. И мой Телнет не корректно передаёт видно символы, так как сервер не понимает логин и пароль, хотя они верные...
Вот мой код, пожалуйста поправьте, если что не так, кто разбирается. Заранее очень благодарен.


procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Address:="xxx.xx.xx.xxx";
ClientSocket1.Port:=23;
ClientSocket1.Active:=true;
end;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then ClientSocket1.Socket.SendText(Memo1.Lines[Memo1.Lines.Count-1]+#13#10);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(ClientSocket1.Socket.ReceiveText);
end;


 
Polevi   (2002-02-13 10:42) [1]

Ты изучал telnet-protocol ???
Сервер передает тебе не "чистый" текст, а предваряет его контрольными кодами и того же требует от клиента.

http://book.itep.ru/4/45/tlnt_453.htm


 
Realizator   (2002-02-13 14:52) [2]

Polevi, спасибо за ссылку. Узнал в этой статье много нового.
Но я никак не могу понять как теперь всё это привязать к Delphi?
Polevi, я же не проффессионал (во всяком случае пока ещё) и нет ничего доходчивей примера. Если тебе не трудно, пожалуйста, поправь мой код, или напиши кусок своего. Заранее благодарен.


 
Polevi   (2002-02-13 19:20) [3]

сейчас не могу привести работающий пример
напиши мылом - постараюсь помочь



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

Форум: "Сети";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Наверх









Память: 0.56 MB
Время: 0.043 c
3-80807
ser_ker
2002-03-04 15:37
2002.04.25
Как передать IBStoredProc через параметр типа Blob содержимое файла на диске ?


3-80734
Sewix
2002-04-02 23:37
2002.04.25
Нужна альтернатива Qreport


3-80798
Grrey
2002-04-03 16:06
2002.04.25
Пимогите разобраться с DOA.


3-80787
Master Denis
2002-04-04 17:35
2002.04.25
Как изменить имена полей в DBStringGrig


4-81104
Romul
2002-02-18 12:29
2002.04.25
Как воостановить подключение к сетевому диску?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский