Winsock fejl

jeg er som sagt ikke bekendt med de implementationer af de sockets du bruger så jeg kan desværre ikke lige hjælpe dig der...

server socketen skal sættes på listen mode således at den kaster et event når en klient prøver at blive accepteret. umiddelbart af det jeg kan læse om den tserversocket så er den i listenmode når active er sat til true hvilket er lidt underligt.

Prøv og kast en exception i dens onaccept og se om der overhovedet bliver registeret en clientsocket der prøver at connecte

10057 er WSAENOTCONN

det betyder at en af dine sockets ikke er connectede. jeg har ikke lige socket komponenterne men skal du måske ikke sige:

clientsocket1.connect;
clientsocket.active := true;

istedet for?

Jeg får fejlen
[Error] Unit1.pas(60): Undeclared identifier: 'connect'

når jeg bruger dette på klientdelen:

procedure TForm1.Connectandregister1Click(Sender: TObject);
begin

    logfield.lines.add('Connecting and registering');
    clientsocket1.port:=9334;
    clientsocket1.host:='127.0.0.1';
    clientsocket1.connect;
end;

mvh
Lars

så prøv
clientsocket1.open;

Giver stadig samme winsocket fejl!

mvh
Lars

vent lidt. hvilken del får fejlen? serveren eller clienten? hvis det er clienten kan det være at du glemmer at acceptere clienten på serveren når den prøver at connecte.

Hvis det er serveren så er den nok ikke sat til at listen'e

det er på serveren fejlen kommer.
Serverkoden er her:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    Memo1: TMemo;
    ClientSocket1: TClientSocket;
    ListBox1: TListBox;
    Button1: TButton;
    Timer1: TTimer;
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.lines.add('client tilsluttet');
listbox1.Items.add(serversocket1.Socket.Remoteaddress);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
serversocket1.active:=true;
end;
end.

Klientkoden er her:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Connection1: TMenuItem;
    Options1: TMenuItem;
    Commands1: TMenuItem;
    quit1: TMenuItem;
    Logfield: TMemo;
    Cmdline: TEdit;
    Listuser: TListBox;
    Connectandregister1: TMenuItem;
    Disconnect1: TMenuItem;
    Register1: TMenuItem;
    Connect1: TMenuItem;
    Status1: TMenuItem;
    ServerSocket1: TServerSocket;
    ClientSocket1: TClientSocket;
    procedure quit1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Connectandregister1Click(Sender: TObject);
    procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.quit1Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Showmessage('tak for sidst');
end;

procedure TForm1.Connectandregister1Click(Sender: TObject);
begin

    logfield.lines.add('Connecting and registering');
    clientsocket1.port:=9334;
    clientsocket1.host:='127.0.0.1';
    clientsocket1.open;
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
logfield.lines.add('Error connecting to server, try again later');
end;

end.

mvh
Lars

Hvordan sætter jeg serveren til at listene?

mvh
Lars

Den triggede slet ikke onaccept..
Har du nogen andre idéer?

mvh
Lars

Jeg skulle bare anvende socket.remoteaddress istedet for serversocket1.socket.remoteaddress..

tak for hjælpen jeppe!

mvh
Lars