Telnet и еще раз telnet

← →
kazakh © (2002-01-28 16:02) [0]

Господа! Кто знает как реализовать Телнет в Делфях? А еще лучше, если работа происходит с Юникс-сервером. Спасибо всем!

← →
Polevi © (2002-01-28 17:03) [1]

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;

← →
Дима566 (2002-01-30 19:59) [2]

> Polevi

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

← →
Zondor (2002-02-28 17:37) [3]

.......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)

← →
Sasha9 © (2002-02-28 17:45) [4]

← →
zondor © (2002-03-01 12:32) [5]

Tak vsjoravno ne peredajot !!!!1

так у телнета не 110-й порт, а 23

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

Telnet и еще раз telnet Найти похожие ветки