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

Вниз

telnet   Найти похожие ветки 

← →
Polevi   (2002-01-08 17:11) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Address:= some IP address..
ClientSocket1.Port:= some Port..
ClientSocket1.Active:=true;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
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;

---

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

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

Наверх

Память: 0.43 MB
Время: 0.005 c