Программа Клиент-сервер с использованием сокетов - Работа с сетью в Delphi

Alex_under · 26.02.2010, 00:54

Всем доброго времени суток!
Очень расчитываю на вашу помощь. Пишу простенькую программу клиент-сервер, с помощью самоучителя программиста.
При попытке клиента подключится к серверу всегда вместо подключения выдаёт ошибку.
Подскажите пожалуйста, в чём дело?
Заранее спасибо.

dr.Chas · 26.02.2010, 12:18

Незнаю, и на localhost и в сетке между компами нормально соеденяется, ошибок не было.

p.s.: код не смотрел.

SERG1980 · 26.02.2010, 13:36

Всё работает

KatCH · 26.02.2010, 15:02

Вопрос на ету же тему.
А как сделать подключение клиента к серверу, если IP динамический? Я вот скачал етот пример, там нужно прописывать IP адрес.....к сожалению.

ImmortalAlexSan · 26.02.2010, 16:42

KatCH, если у вас адрес - динамический, то проброс портов для вас подойдет идеально. Или же использовать внешний сервер.

Alex_under · 02.03.2010, 21:09

спасибо большое, всё работает!

Alex_under · 09.03.2010, 23:57

Появилась новая проблема. опять же всё тот же клиент-сервер.

procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
var i, j, p, q: integer;
begin
Memo2.Lines.Add('Получен текст:'+Socket.ReceiveText);
if Socket.ReceiveText <> '' then
begin
i:= random(44)+1;
j:= random(44)+1;
randomize;
p:=a[i];
randomize;
q:=a[j];
end;
ServerSocket1.Socket.Connections[0].SendText(Concat(IntToStr(p),';',In tToStr(q)));
end;

что нужно прописать в клиент, чтобы переменные p и q отобразились у меня в Memo3 и Memo4 соответственно?

Заранее спасибо!

26.02.2010, 12:18	#2
dr.Chas *** Участник клуба Регистрация: 30.07.2007 Сообщений: 1,162	Незнаю, и на localhost и в сетке между компами нормально соеденяется, ошибок не было. p.s.: код не смотрел. profdev

26.02.2010, 16:42	#5
ImmortalAlexSan Участник клуба Регистрация: 13.01.2009 Сообщений: 1,353	KatCH, если у вас адрес - динамический, то проброс портов для вас подойдет идеально. Или же использовать внешний сервер. "Тебе то может на меня и насрать, но твои глаза меня обожают!"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Возможно-ли Клиент-серверное приложение типа Клиент(Pascal) а сервер(CGI)?	Demol	Работа с сетью в Delphi	1	21.04.2009 16:18
Нужна программа клиент->Сервер->Интернет	Globe_2007	Фриланс	3	10.01.2009 02:52
Клиент-серверное взаимодействие посредством использования сокетов	Cantana	Компоненты Delphi	2	18.02.2008 19:27
Помогите.Программа клиент-сервер	vyt	Работа с сетью в Delphi	3	14.03.2007 16:01

26.02.2010, 15:02	#4
KatCH Пользователь Регистрация: 15.02.2010 Сообщений: 54	Вопрос на ету же тему. А как сделать подключение клиента к серверу, если IP динамический? Я вот скачал етот пример, там нужно прописывать IP адрес.....к сожалению.

02.03.2010, 21:09	#6
Alex_under Регистрация: 11.10.2009 Сообщений: 8	спасибо большое, всё работает!

09.03.2010, 23:57	#7
Alex_under Регистрация: 11.10.2009 Сообщений: 8	Появилась новая проблема. опять же всё тот же клиент-сервер. procedure TForm1.ServerSocket1ClientRead(Send er: TObject; Socket: TCustomWinSocket); var i, j, p, q: integer; begin Memo2.Lines.Add('Получен текст:'+Socket.ReceiveText); if Socket.ReceiveText <> '' then begin i:= random(44)+1; j:= random(44)+1; randomize; p:=a[i]; randomize; q:=a[j]; end; ServerSocket1.Socket.Connections[0].SendText(Concat(IntToStr(p),';',In tToStr(q))); end; что нужно прописать в клиент, чтобы переменные p и q отобразились у меня в Memo3 и Memo4 соответственно? Заранее спасибо!