[Delphi] Problème avec winsock (pour un chat)

Problème avec winsock (pour un chat) [Delphi] - Programmation

Marsh Posté le 15-10-2001 à 16:54:38    

Bonjour,
 
Voici un client de chat pour Internet que j'ai fait
en Delphi, mais une erreur survient au niveau de
'TCP1.Connect', en indiquant un manque de paramètres.
Quels sont-ils ?
Et plus globalement pourrez-vous me donner des conseils
pour une connexion optimale ?
 
 
Voici le code du bouton 'CONNECT' :
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
TCP1.RemoteHost :=  Edit1.text + '.' + Edit2.text +
   '.' + Edit3.text + '.' + Edit4.text;
TCP1.RemotePort := 714;
TCP1.Connect;
image1.visible := false;
image2.visible := true;
Label1.caption := 'Connecté sur : ' + Edit1.text + '.' +
   Edit2.text + '.' + Edit3.text + '.' + Edit4.text;
end;
 
 
Et au niveau du serveur, j'ai mis au load de la feuille
 
procedure TForm1.FormCreate(Sender: TObject);
begin
TCP1.LocalPort := 714;
TCP1.Listen;
end;
 
Que dois-je rajouter pour une connexion optimale ?
 
Merci de m'aider ;-) :jap:


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 15-10-2001 à 16:54:38   

Reply

Marsh Posté le 15-10-2001 à 17:20:14    

Euh ... alors ? :sarcastic:


---------------
Visitez mon site : http://www.jujubarbare.linux-fan.com
Reply

Marsh Posté le 15-10-2001 à 20:36:34    

tu peux tj un peu simplifier:

Code :
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   ip: string; 
  4. begin
  5.   ip := Format(%s.%s.%s.%s, [Edit1.Text, Edit2.Text, Edit3.Text, Edit4.Text]);
  6.   with TCP1 do
  7.   begin
  8.     RemoteHost := ip;
  9.     RemotePort := 714;
  10.     Connect;
  11.     image1.visible := false;
  12.     image2.visible := true;
  13.     Label1.caption := ip;
  14.   end;
  15. end;


 
mais ça change rien au niveau de ce que ça fait (c juste un peu plus optimisé)
 
Je pourrais peut-être t'aider plus si tu me disais ce que c'est que TCP1 comme composant/objet

 

[edtdd]--Message édité par antp--[/edtdd]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed