чат,ошибка сокета 11004

← →
Екатерина (2012-11-25 02:21) [0]

нужна помощь!
необходимо написать простенький чат
код клиента:
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
StatusBar1.SimpleText := "Ñîåäèíåíèå óñòàíîâëåíî";
{êàê òîëüêî ïðîèçîøëî ñîåäèíåíèå - ïîñûëàåì ïðèâåòñòâèå}
Socket.SendText("Hello!");
ListBox1.Items.Add("< Hello!");
end;

procedure TForm1.btnSendClick(Sender: TObject);
begin
ClientSocket1.Socket.SendText(edtMsg.Text); //
ListBox1.Items.Add("[Client]< " + edtMsg.Text);
edtMsg.Clear;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin

ListBox1.Items.Add("[Server]> " + Socket.ReceiveText);
end;

procedure TForm1.btnConnectClick(Sender: TObject);
begin
ClientSocket1.Address := edtIP.text; //IP
ClientSocket1.Active :=True; //êîííåêòèìñÿ
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
StatusBar1.SimpleText := "Ñîåäèíåíèå íå óñòàíîâëåíî";
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ShowMessage("Îøèáêà ¹" + IntToStr(ErrorCode));
ErrorCode :=0;
end;

end.

код сервера:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
StatusBar1.SimpleText := "Ñîåäèíåíèå óñòàíîâëåíî";
end;

procedure TForm1.btnSendClick(Sender: TObject);
begin
ServerSocket1.Socket.SendText(edtMsg.Text); //ïîñûëàåì ñîîáùåíèå
ListBox1.Items.Add("[Server]> " + edtMsg.Text); //äîáàâëÿåì ñîîáùåíèå â äèàëîã
edtMsg.Clear;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Active:= true; //
end;

end.

при попытке соединения выдаёт ошибку 11004...

← →
brother © (2012-11-25 09:47) [1]

http://otvet.mail.ru/question/36534056
оно?

← →
Anatoly Podgoretsky © (2012-11-25 09:55) [2]

> Екатерина (25.11.2012 02:21:00) [0]

Поиск по 11004 – это ошибка ДНС, пробуй исправить с помощью sfc

http://forum.teamspeak.com/showthread.php/14420-Socket-Error-(11001-11004)

← →
Anatoly Podgoretsky © (2012-11-25 09:57) [3]

> Екатерина (25.11.2012 02:21:00) [0]

Список тем только по исправлению

http://www.bing.com/search?q=Socket+Error+11004+Fix&FORM=R5FD7

← →
Екатерина (2012-11-25 12:51) [4]

после некоторых манипуляций стало выдавать уже ошибку 10049 "требуемый адрес для своего контекста неверен"...клиент получает адрес 172.0.0.1.. порт 8888...хотя эта ошибка вылазит при любом IP. может кто-то сталкивался с таким? явных ошибок не видно...

← →
Сергей М. © (2012-11-25 17:37) [5]

> после некоторых манипуляций

Ботекс вкачала что ли ?
Ты пойми, дитятко, - НИКТО кроме тебя не знает о твоих "манипуляциях".

← →
Екатерина (2012-11-25 19:32) [6]

> Ботекс вкачала что ли ?
> Ты пойми, дитятко, - НИКТО кроме тебя не знает о твоих "манипуляциях".

мда..ни одного дельного совета, а стебаться - так это пожалуйста...

> мда..ни одного дельного совета, а стебаться - так это пожалуйста...
ни одного понятого, смею поправить, а так, насчитал 3 дельных...

> 10049 "требуемый адрес для своего контекста неверен"

Это чей-то фривольно-абстрактный перевод фрагмента оригинальной документации:

WSAEADDRNOTAVAIL
The specified address is not available from the local machine
"Указанный адрес не доступен с этой локальной машины".

Это прямой результат твоих "некоторых манипуляций".
Верни всё на место как было и больше не трогай ничего.

чат,ошибка сокета 11004 Найти похожие ветки