begin process at 2010 03 18 19:24:33
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Delphi

 > 

Réseau & Internet

 > 

Client - Server

 > 

client server erroe 61


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

client server erroe 61

lundi 7 juillet 2008 à 23:39:48 | client server erroe 61

jgalil


>salut :
>j'ai developé un logiciel de chat(client-serveur)et j'ai mis le fichier serveur a mon pc et le fichier client dans le pc de mon ami,apres le test le fichier serveur n'as pas detecté le fichier client,l'adress ip est correcte,le port=1025 dans les deux fichiers le code d'ereur est 61 mais vraiment j'ai pas trouvé le problem,
>aidez moi svp
>merci d'avance.
vous pouver telecharger les sources avec ce lien
[ Lien ]
et voici les code sources du deux fichiers
le code de cienlt----------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if clientsocket1.Active=false then
 begin
  try
  ClientSocket1.Address := IPBox.Text;
  ClientSocket1.Active := True;
  except
  form1.Caption:=('** Error Connecting.');
  end;
 end;
end;
///////////
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
form1.Caption := 'Disconnected';
end;
//////////
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
form1.Caption := 'Connected!';
end;
///////////
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
clientsocket1.Active:=false;
end;
///////////
procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
form1.Caption:=('** Error: ' + IntToStr(ErrorCode));
ErrorCode := 0;
end;
//envoyer un text---------------------------------------------
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
 begin
  try
  clientsocket1.Socket.SendText(edit1.Text);
  except
  end;
 end;
end;
//recevoire un text------------------------------------
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add('il: '+clientsocket1.Socket.ReceiveText);
end;

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

le code de serveur
//connection----------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Active := True;
Label1.Caption := 'Listening for connections.';
end;
//envoyer un text----------------------------------------------------
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
 begin
  try
  serversocket1.Socket.Connections[0].SendText(edit1.Text);
  memo1.Lines.Add('moi: '+edit1.Text);
  except
  end;
 end;
end;
//recevoire un text--------------------------------------
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.Lines.Add('il: '+serversocket1.Socket.ReceiveText);
end;

mardi 8 juillet 2008 à 18:18:32 | Re : client server erroe 61

HAFTARIFOUAD

Bonjour

Une petite proposition: Changez la fréquence du port et utilisez le numéro 1012

Bonne chance et plein de succès.
mardi 8 juillet 2008 à 18:20:34 | Re : client server error 61

jgalil


voici le lien des sources
abc-mihoubi.ifrance.com/files/clientserver.rar
merci d'avance
mardi 8 juillet 2008 à 18:35:47 | Re : client server erroe 61

jgalil

bonsoir haftarifouad et merci de ta reponse 
si j'utilise les deux fichier dans le meme pc(j'utilise le port1025 et ip=mon ip) ca marche bien et le fichier server.exe detecte le fichier client.exe alors je crois pas que la frequence du port est le problem
j'ai cherché dans l'internet la difinition de l'erreur 10061 et j'ai trouvé la definition mais j'ai pas trouvé comment resoudre ce problem???

Question/Problem: WSAECONNREFUSED (10061) Connection refused
difinition:Connection refused. No connection could be made because the target machine actively refused it. This usually results from trying to connect to a service that is inactive on the foreign host.
merci d'avance.

mardi 8 juillet 2008 à 23:36:33 | Re : client server erroe 61

HAFTARIFOUAD

Bonjour

Tout d'abord, je tien à vous remercier pour votre éclaircissement.

Je vous conseil d'utiliser un Serveur Apash c'est trés utile pour votre cas.

Bonne chance et plein de succès.

lundi 14 juillet 2008 à 23:37:20 | Re : client server erroe 61

mahdadboualem



salutation pour


Cette discussion est classée dans : end, sender, procedure, tobject, tform1


Répondre à ce message

Sujets en rapport avec ce message

"Incompatible types :''Cardinal' and 'String' " [ par Don0Choa ] Bonjour, je fais un petit prog permettant de fair des boite de dialogue en séléctionnant les bouttons, icones etc...Mais voila j'ai une erreur comem d Newbie & TCPI/IP [ par Megafan ] Bonjour je suis complétement débutant en delphi, par contre je suis pas mauvais en VB.Pourquoi je change allez vous dire ?Parce que VB ne tourne pas s probleme avec sockets [ par PsyClown44 ] Salut!J'ai un prob avec le composant TClientSocket : je n'arrive pas a recevoir de paquets lors d'une connexion!Voila le code:unit Unit1;interfaceuses Récupération d'une valeur [ par ouaich85 ] Bonjour, voici mon code : unit Unit2; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrl afficher une ligne !!! [ par Hardouz ] salut voici un bou de Code que je vien de faire a l'aide de plusieur membres du Cs je vous remerci bien :) mais je veut faire afficher la ligne qui co Tension Serie [ par Hardouz ] Salut j'ai branchais un appareil a mon port serie que j'ai vabriquer et elle marche avec 6 ou 7v au minimum (c'est une relais)mais j'arrive pas  a lal affichage dans une statutbar [ par watrem ] Bonjour j'ai telecharger sur le site un code tres court permettant d'afficher l'heure dans une StatutBar. Je n'ai aucune erreur au niveau du code mais Boite de dialogue modale [ par Wiska ] Bonjour,Voici mon problème:Je cherche à créer une fonction permettant d'afficher une fenêtre( type messagebox) et ayant pour but de ce comporter comme Je ne vois pas le probleme de mon code =\ [ par emirej ] Bonjour, en faite j'ai un problème quand je veux compiler mon programme, il me dise qu'il y a une erreur =\Voici mon codeinterfaceuses  Windows, Messa Comment forcer une image à se redessiner ? [ par racimo1985 ] Bonjour tt le monde, j besoin d'un algorithme qui force une image ( deux rectangles en formant un L) à se redessiner lorsqu'on répète l'exécution de l


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,530 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales