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

Recherche :

Dernière réponse

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

antp

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]

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

antp

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]

juju_le_barbare

Euh ... alors ? :sarcastic:

juju_le_barbare

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: