Внедриться в чат - Общие вопросы Delphi - Страница 2

Ozerich · 07.09.2008, 23:39

Наконец форум работать стал.

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
IdTcpClient1.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdTcpClient1.Port:=1111;
IdTcpClient1.Host:='1.1.1.1';
IdTcpClient1.Connect;
end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
showmessage(IdTcpClient1.Socket.ReadLn);
end;

Я юзаю Delphi 2007.Если у тебя 7 дельфа то там может будет другой метод для чтения.

SunKnight · 08.09.2008, 00:07

Цитата:

Я юзаю Delphi 2007.Если у тебя 7 дельфа то там может будет другой метод для чтения.

побоку, все тоже самое

. Интересно какой бред будет передавать сервак, там же структура передачи данных наверно имеется.

Ozerich · 08.09.2008, 00:21

Цитата:

Сообщение от SunKnight

Интересно какой бред будет передавать сервак, там же структура передачи данных наверно имеется.

Ну и я о том же писал.Что надо знать какие команды моежт принимать сервер от клиента и что на них онь отвечает.

Shouldercannon · 08.09.2008, 11:43

Видимо не получится посмотреть что пришлёт сервер. Delphi7 докапался до ReadLn ([Error] Unit1.pas(34): Undeclared identifier: 'readln') и до просто Read.

07.09.2008, 23:39	#11
Ozerich Студент 1 курса Форумчанин Подтвердите свой е-майл Регистрация: 27.06.2008 Сообщений: 959	Наконец форум работать стал. Код: `procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin IdTcpClient1.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin IdTcpClient1.Port:=1111; IdTcpClient1.Host:='1.1.1.1'; IdTcpClient1.Connect; end; procedure TForm1.IdTCPClient1Connected(Sender: TObject); begin showmessage(IdTcpClient1.Socket.ReadLn); end;` Я юзаю Delphi 2007.Если у тебя 7 дельфа то там может будет другой метод для чтения. C++(STL, QT, WinInet) / DHTML(CSS) / JavaScript / PHP Developer

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как «внедриться» в другую программу?	forzub	Общие вопросы Delphi	0	10.07.2008 17:33

08.09.2008, 11:43	#14
Shouldercannon Участник клуба Подтвердите свой е-майл Регистрация: 26.01.2008 Сообщений: 1,899	Видимо не получится посмотреть что пришлёт сервер. Delphi7 докапался до ReadLn ([Error] Unit1.pas(34): Undeclared identifier: 'readln') и до просто Read.