Probleme socket indy

Résolu
Signaler
Messages postés
12
Date d'inscription
samedi 9 avril 2005
Statut
Membre
Dernière intervention
21 août 2007
-
Messages postés
12
Date d'inscription
samedi 9 avril 2005
Statut
Membre
Dernière intervention
21 août 2007
-
Bonjour,

je voudrai faire un bot pour serveur tchat en delphi ( qui réponderai au raw) mais j'arrive pas a connecté ma socket! ( alors que c le début pour coder mon bot)
voila ma source:
unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdIRC;


type
  TForm1 = class(TForm)
    IdIRC1: TIdIRC;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
idirc1.Nick :='lool';
 idirc1.Host :='72.10.163.107';
 idirc1.Port :=6667;
idirc1.connect;
end;


end.

le server et donc un serveur tchat, le pb c que sa me dit :
Socket Error # 10061
Connection refused.
pouvez vous m'aider?

lulu57
A voir également:

3 réponses

Messages postés
3834
Date d'inscription
dimanche 12 décembre 2004
Statut
Modérateur
Dernière intervention
20 octobre 2021
124
Tu es sur que le port 6667 est ouvert ? Et qu'il le serveur n'est pas derriere un routeur ?
Je te conseil dans un premier temps de developper le serveur et le client sur le même poste. Tu entrera comme ip "127.0.0.1".

Salut,

A priori tu as une erreur d'ouverture de port comme le dit Le capitaine Igloo (Pingu pardon lol).

Avec si peu d'informations il est impossible de te répondre. Il serait judicieux de passer aussi le code du serveur IRC. Ensuite il serait bien aussi d'en savoir un peu plus sur ta configuration internet. Comme le dit notre Pinguin delphinaute, un test en utilisant ton IP Internet Local (et pas le machin là : 127.0.0.1 lol) que tu obtiens en faisant un petit IPConfig. Désactive aussi FireWall et Antivirus.

PS : Evite de balancer des adresses IP sur le forum stp ;).

Bon coding;

@+
Messages postés
12
Date d'inscription
samedi 9 avril 2005
Statut
Membre
Dernière intervention
21 août 2007

Je vous remercie de vos réponse, j'ai trouver le probleme j'ai ajouter sa :

procedure TForm1.IdIRC1SocketError(Sender: TObject; ASocket, AMsg: String);
begin
try
except
end;
end;
.

je voudrai également savoir comment faire pour que quand je 'parle' à la socket qu'elle reconnai les commande style !op avec les "if" et "$1" en scripting pour delphi 7.

Par ailleur je voudrai savoir avec quelle composant je pe télécharger un .exe et le lancer à partir d'un site et ce grace à là socket
pour une mise à jour de mon bot d'animation
merci
lulu57