Скачать: CL | DM;

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]

da

---

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

Tak vsjoravno ne peredajot !!!!1

---

← →
Sasha9 ©   (2002-03-01 13:55) [6]

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

---

← →
zondor ©   (2002-03-01 14:50) [7]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c