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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] Problème avec winsock (pour un chat)

juju_le_barbare

Vous fiez pas aux apparences !

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

Publicité

juju_le_barbare

Vous fiez pas aux apparences !

Euh ... alors ? :sarcastic:

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

antp

Super Administrateur
Champion des excuses bidons

tu peux tj un peu simplifier:

Code :

procedure TForm1.Button1Click(Sender: TObject);
var
ip: string;
begin
ip := Format(%s.%s.%s.%s, [Edit1.Text, Edit2.Text, Edit3.Text, Edit4.Text]);
with TCP1 do
begin
RemoteHost := ip;
RemotePort := 714;
Connect;
image1.visible := false;
image2.visible := true;
Label1.caption := ip;
end;
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

FORUM HardWare.fr

Programmation

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

Sujets relatifs
Copie de CD-Rom sur DD en Delphi ?	[Visual C++ 6] Problème de Chargement
probleme avec SQL Server 2000 et SP1	petit problème ac mon système d'jout de commentaire
[Delphi->VB] instruction PChar	[VB] ou [Delphi] Comment lire un fichier texte
delphi	[Delphi 4] Envoyer E-Mail depuis un formulaire
Problème de Position, de Couleurs et de Texte...	Delphi 4 et win98 : compatibilité parfaite ?
Plus de sujets relatifs à : [Delphi] Problème avec winsock (pour un chat)

Page générée en 0.050 secondes