hvorfor denne fejl.

Jamen den fejl tror jeg at jeg kender, du er allerede connectet prøv sådan her

while not MySocket.Connected do
  MySocket.Connect

kig her:

http://www.windowphobe.com/tech/socket.html

/ZIRON

morten_s prøv at kig på den side :)

/ZIRON

/ZIRON
den var faktisk ret sej den side.

hehe lidt sej er man vel altid ik :)

/ZIRON

Hvorfor siger den så det når jeg bruger dette.
var
i : integer;
X : integer;
ip : string;
startafIp : string;
begin
server := edit1.text;
i := 1;
X := 999;
startafip := edit1.Text;
        While (I < X) do
        begin
        i := i + 1;
        if length(server) > 0 then
        with clientsocket1 do
        begin
        host := server + inttostr(i);
        active := true;
        end;
  end;

Ziron> har sat bogmærke på siden


Krab> den bedste måde at connecte er gennem en tråd, du kan lige få min kode til en sådan her:

unit tLogOn;

interface

uses
  Classes, Dialogs, Controls, SysUtils, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;

type
  TStateEvent  = procedure(State : Integer) of object;
  TStatusEvent  = procedure(Status : String) of object;
  TErrorEvent  = procedure(Error : String) of object;
  TConnectEvent = procedure(ControllerConnected : Boolean) of object;
  TLogOnController = class (TThread)
  private
    FOnStateEvent : TStateEvent;
    FOnStatusEvent : TStatusEvent;
    FOnErrorEvent : TErrorEvent;
    FOnConnectEvent : TConnectEvent;
    procedure SetOnStateEvent(const Value: TStateEvent);
    procedure SetOnStatusEvent(const Value: TStatusEvent);
    procedure SetOnErrorEvent(const Value: TErrorEvent);
    procedure SetOnConnectEvent(const Value: TConnectEvent);
  protected
    procedure Execute; override;
  public
    FClientSocket : TIdTCPClient;
    IPNo : String;
    Port : Integer;
    WriteDelay : Integer;
    Constructor Create;
    Destructor Destroy; override;
    property OnStateEvent : TStateEvent read FOnStateEvent write SetOnStateEvent;
    property OnStatusEvent : TStatusEvent read FOnStatusEvent write SetOnStatusEvent;
    property OnErrorEvent : TStatusEvent read FOnStatusEvent write SetOnStatusEvent;
    property OnControllerConnectedEvent : TConnectEvent read FOnConnectEvent write SetOnConnectEvent;
  end;

implementation


var
  InStr : String;
  State : Integer;
{ TDataopsamling }

constructor TLogOnController.Create;
begin
  inherited Create(true);
  FreeOnTerminate := false;
end;


destructor TLogOnController.Destroy;
begin
  inherited;
end;

procedure TLogOnController.execute;
var
  TmpStr : String;
  //i : Integer;
begin
  inherited;
  FOnConnectEvent(False);
  FOnStateEvent(1);
  FOnStatusEvent(\'Trying to connect: Ip \'+IPNo+\':\'+IntToStr(Port));
  FClientSocket.Host := IPNo;
  FClientSocket.Port := Port;
  FClientSocket.Connect;
  if not FClientSocket.Connected then
  begin
    FOnErrorEvent(\'Could not connect to: Ip \'+IPNo+\':\'+IntToStr(Port));
    Exit;
  end;
  Sleep(WriteDelay);
  FClientSocket.Write(#27);
  FOnStateEvent(2);
  FOnStatusEvent(\'Handshaking....\');
  InStr :=  FClientSocket.ReadLn(\'> \', -2);
  FOnStateEvent(3);
  FOnStatusEvent(\'Connected to: Ip \'+IPNo+\':\'+IntToStr(Port));
  if FClientSocket.Connected then
    FOnConnectEvent(True)
  else
    FOnConnectEvent(False);
end;

procedure TLogOnController.SetOnStateEvent(const Value: TStateEvent);
begin
  FOnStateEvent := Value;
end;

procedure TLogOnController.SetOnStatusEvent(const Value: TStatusEvent);
begin
  FOnStatusEvent := Value;
end;

procedure TLogOnController.SetOnErrorEvent(const Value: TErrorEvent);
begin
  FOnErrorEvent := Value;
end;

procedure TLogOnController.SetOnConnectEvent(const Value: TConnectEvent);
begin
  FOnConnectEvent := Value;
end;

end.



Og når du kalder tråden:

begin
  if not IdTCPClient.Connected then
  begin
    With TLogOnController.Create do
    begin
      OnStateEvent := WriteState;
      OnStatusEvent := WriteStatus;
      OnErrorEvent := WriteError;
      OnControllerConnectedEvent := WriteControllerConnect;
      IPNo := \'213.237.15.207\';
      Port := 82;
      FClientSocket := IdTCPClient;
      WriteDelay := 0;
      resume;
    end;
  end else
    IdTCPClient.Disconnect;

ja men du kan ikke have et ip nr som ender på 999

jeg tror højest du kan gå til 255

server := edit1.text;
i := 1;
X := 999; <---------RETTES TIL 255 ELLR PRØV FØRST MED 100
startafip := edit1.Text;
        While (I < X) do


Ikke for at blande mig men hvad skal du bruge alle de connects til ?

morten_s fint med den side og jo som du siger så kan en ip kun gå til 255. og ja hvad mon han skal bruge den til :) men hvis det er til privat-net må han jo gerne :0

/ZIRON

Jep og fejlen passer også med forkert ip no

WSAEADDRNOTAVAIL (10049) Can\'t assign requested address

ja det passer vel egentligt meget godt, sååå.

/ZIRON

Morten >> du skal huske at skrive :

if Assigned(FOnConnectEvent) then FOnConnectEvent(False);

ellers for du accessviolation hvis du ikke har en event tilknyttet og så skulle du måske også overveje at kalde dine event\'s i en syncronize procedure da du ellers kan løbe ind i problemer hvis du laver GUI opdates i dem.

/Martin
 

Martin> har aldrig mere end en connection, der hænger et serielt kabel ude i den anden ende

Ja, men det er af hensyn til din tråd, du kan læse mere i online hjælpen

Martin>> Heller et lille friskt eksempel :)

procedure TLogOnController.DoCallOnStateEvent;
begin
  if Assigned(FOnStateEvent) then FOnStateEvent();
end;

procedure TLogOnController.execute;
begin
  ...
  ...
  Synchronize(DoCallOnStateEvent);
  ...
  ...
end;


-----------------------------

Noget i denne stil

/Martin

Jeg ved ikke om jeg kan bruge alt dette til noget, det kan jeg sikkert godt, men jeg kan ikke forsåt det hele, det jeg endeligt vil lave er et program der kan igennem netværk finde ud af hvilke ip der er aktive, så skal den skrive IP\'en og Computernavnet i en memo1, håber i ved hvad jeg mener, skriv det så simpelt som muligt, jeg skal nok sætte nogle flere point til, hvis det er nødvendigt.

når det er at du skal lav en ipscanner skal du ikke connecte på den måde som du gør, du bliver nød til at pinge computeren for at se om den svarer. sååå er det bare med at gå igang :)

/ZIRON

OKI, tak, men kan du ik give mig en lille hjælpe tråd til hvad man skal gøre, bare hvilke componenter man skal bruge.

Ping comp.