Windows socket error: (10049), on API connect

← →
qqqqq0001 (2003-10-15 22:17) [0]

Подскажите пожайлуста, вот сделал одну форму занес на нее сервер сокет и кнопку, поле мемо еще, на событие он клик кнопки
procedure TForm1.Button1Click(Sender: TObject);
begin
serverSocket1.active:=true;
edit1.text:="Active";
end;
на событие OnClientRead:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
if Socket.ReceiveText ="r" then
edit1.text:="Conect complete";
end;
на событие Дестрой формы:
procedure TForm1.FormDestroy(Sender: TObject);
begin
ServerSocket1.active:=false;
end;
Порт выставил 3333

Потом сделал клиента на него кинул кнопку, на онклик кнопки клиента :
procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.active:=true;
clientsocket1.socket.sendtext("r");
clientsocket1.active:=false;
end;
в host написал: 127.0.0.1 и порт выставил:3333
ну и запускаю ето все дело а оно мне: Windows socket error: (10049), on API "connect"

чтож делать то?

← →
TButton (2003-10-16 04:45) [1]

на БатонКлик
client.Socket.Open;

на ClientSocketConnect
clientSocket.Socket.SendText("r");
clientSocket.Close;

← →
Digitman (2003-10-16 08:42) [2]

Specifies an alias for the IP address of the server system.

property Host: string;

Description

Host is a string containing the domain name and service of a particular system, such as

http://www.wSite.Com

For client sockets, set Host to the system with which the client socket should form a connection. When the socket opens a connection, it looks up the IP address for the server socket using the value of Host.

Some servers change the system or IP address that is associated with a particular host name. Using a host name allows the client socket to find the abstract site represented by the host name, even when it has moved to a new IP address.

If Host is set, it takes precedence over the Address property when looking up the address of the server.

← →
qqqqq0001 (2003-10-16 13:07) [3]

procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.open;
end;
ну и при нажатии на кнопку снова выдает Windows socket error: (10049), on API "connect"

← →
qqqqq0001 (2003-10-16 13:08) [4]

вот полный текст всего что есть в килиенте

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
ClientSocket1: TClientSocket;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
clientsocket1.active:=false;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
clientsocket1.socket.SendText("r");
clientsocket1.close;
end;

end.

← →
Digitman (2003-10-16 14:17) [5]

> qqqqq0001

ему про фому, он - все про ерему свое гнет)

для кого фрагмент хэлпа был приведен ? для Пушкина ?
ты вчитался в него, вник ?

← →
qqqqq0001 (2003-10-16 17:28) [6]

>Digitman

Дак я не понял мне что вместо 127.0.0.1 Localhost чтоли написать
или в adress 127.0.0.1 добавить ну счас попробую

← →
qqqqq0001 (2003-10-16 17:37) [7]

Ну вот адресу присвоил свойство едита текст, откомпилировал, запустил сервер, потом клиент запустил, в едите клиента ввел все те же злополучные 127,0,0,1 и теперь мне выдает - Asynchronous socket error 10061

← →
Digitman (2003-10-17 08:15) [8]

ну вот видишь ! уже и отказ совсем другой) ... значит, интерфейс сервера локализован , но сервер не активен в это момент

← →
qqqqq0001 (2003-10-17 22:08) [9]

Такс вобщем думал что делать ну и решил выставить(так просто ради интереса) Server Type & Client Type = stNonBlocking(интересно а что ето значит?) теперь никаких ошибок не выдает но на прием тексат от клиента сервер все равно никак не реагирует

← →
panov (2003-10-17 22:34) [10]

Поработай пока с режимом stBloking. Это проще. Потом, если надо будет,перейдешь на другой...

← →
Digitman (2003-10-20 14:33) [11]

Specifies whether the client socket reads and writes information asynchronously over the socket connection.

type TClientType = (ctNonBlocking, ctBlocking);
property ClientType: TClientType;

Description

Set ClientType to ctNonBlocking to enable the client socket to respond to asynchronous reading and writing events. When ClientType is ctNonBlocking, execution is not blocked by reading and writing over the socket connection. OnRead or OnWrite events occur when the socket needs to read or write over the connection.

Set ClientType to ctBlocking to force all reading and writing to occur synchronously. It is a good idea to include the client socket object in a thread if the ClientType is ctBlocking, so that I/O does not block all execution within the client application.

When ClientType is ctBlocking, use a TWinSocketStream object for reading and writing. TWinSocketStream prevents the application from hanging indefinitely if a problem occurs while reading or writing. It also can wait for the socket connection to indicate its readiness for reading.

Use a non-blocking socket when t

Windows socket error: (10049), on API connect Найти похожие ветки