Сокеты на делфи

**Smerch** · 20.05.2004, 15:47

Использую компонет ClientSocket в Делфи 6

Создаю и открываю сокет
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host:='www.host.ru';
ClientSocket1.Port:=80;
ClientSocket1.Open;
end;

Отсылаю запрос на сервер
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText('GET /bla/bla'+#13#10+#13#10)end;

Читаю с сокета
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Text:=Socket.ReceiveText;
end;

Выдается сообщение об ошибке 11041ю В чем причина?

**RK3FW** · 20.05.2004, 16:06

Почитай MSDN. Там три раздела по ошибкам. Ищи по коду.

**RK3FW** · 20.05.2004, 16:26

Попалась под руку книжка "Программирование в сетях MS Windows". Там написано: 10041 - Неверный тип протокола для сокета. При вызове socket или WSASocket указан протокол, не поддерживающий семантику данного типа сокета. Например, попытка создать IP-сокет типа SOCK_STREAM с протоколом IPPROTO_UDP.

Кстати, когда выдается сообщение об ошибке и где - у клиента или сервера?
С одного и того же сокета слать и посланное на него же принимать нельзя.

Возьми пример из Дельфей и внимательно изучи!

**Bioname** · 20.05.2004, 16:29

if ( IdTCPClient1.Connected ) then IdTCPClient1.Disconnect();
IdTCPClient1.Port := 80;
IdTCPClient1.Host := 'cs';
IdTCPClient1.Connect( );

IdTCPClient1.WriteLn( 'GET /~bioname/upload/index.php'+#13#10 );

memo1.Lines.Add( IdTCPClient1.CurrentReadBuffer( ) );
if ( IdTCPClient1.Connected ) then IdTCPClient1.Disconnect();

ответ:
<html>
<head>
<title>Upload File For Bioname</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<center>
<h4>Upload File:</h4>
<form action="upload.php" method="post" enctype="multipart/form-data">
<table border="0" width="50%">
<tr bgcolor="#e1e1e1" width="100%">
<td colspan="2" align="center" valign="center"><b><h3>Upload File To Server</h3><b></td>
</tr><tr><td> </td></tr>
<tr>
<td align="right" width="50%"><b> User:      </b></td><td align="left" width="50%"><input type="text" name="user"></td>
</tr>
<tr>
<td align="right" width="50%"><b> Password:      </b></td><td align="left" width="50%"><input type="password" name="pswd"></td>
</tr>
<tr>
<td align="right" width="50%"><b> File Name:      </b></td><td align="left" width="50%"><input type="file" name="filename"></td>
</tr>
<tr>
</tr><tr><td> </td></tr>
<td align="center" width="100%" colspan="2"><font color="black"><input type="submit" name="Send" value="Upload Now !"></h3></font></td>
</tr>
</table></form>
</body>
</html>

собсно, думаю понятно что к чему....

**RK3FW** · 20.05.2004, 18:19

Вообще-то TClientSocket поддерживает соединение с TServerSocket, а не с TClientSocket.
Кстати, что-то не понятно с ответом или в форуме глюк какой.

**Bioname** · 20.05.2004, 19:45

Полюбому клиент к клиенту не законнектится. прикол же в том что сервер делает всё время "listen" (или bind - кому как больше нравится) и ждёт входящих соединений, а клиент так не умеет. (конечно если для сокета не делать бинд - тогда это "будет" сервер)

**RK3FW** · 21.05.2004, 09:02

Так и я о том же.

Тема: Сокеты на делфи

Обратные ссылки

Опции темы

Сокеты на делфи

Социальные закладки

Социальные закладки

Ваши права