Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Telnet и еще раз telnet [D5, Win95/98]

kazakh © (2002-01-28 16:02:00)
Господа! Кто знает как реализовать Телнет в Делфях? А еще лучше, если работа происходит с Юникс-сервером. Спасибо всем!

zondor (2002-03-01 14:50:00) [1]
Vsjo poshlo i ne v portu bilo delo ...
delo v tom 4to ja peredaval toko #13 ( aka return)
a servaki Unixoidnje => im nuna po staromu
konec stroki + perevod v na4alo stroki !!
:)) vsjo kak ne v ljubimom dOS

Sasha9 (2002-03-01 13:55:00) [2]
так у телнета не 110-й порт, а 23

zondor (2002-03-01 12:32:00) [3]
Tak vsjoravno ne peredajot !!!!1

Sasha9 (2002-02-28 17:45:00) [4]
da

Zondor (2002-02-28 17:37:00) [5]
.......Count-1]+#13#10 - #13#10- Eto 4to zna4it /\?
prosto ja uze nedelju bjusj nad telnet clientom i on hotj ubej delajet soedinenije a nas4ot poslatj 4egonibudj prosto mjortvij
a vsjo bilo napisanno to4no takze tolko ne bilo "#13#10"
...vot ja i interesujusj .. eto za4em ??
tipo simvol konca stroki peredovatj ?
(((( vash edinomishlennik s pribaltiki)

Дима566 (2002-01-30 19:59:00) [6]
> Polevi

Спасибо!!!!!

Polevi (2002-01-28 17:03:00) [7]
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Address:="192.168.1.1";
ClientSocket1.Port:=110;
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »