Discussion :

[Chyokyka]

Salut vla, jai un petit probleme avec tclient socket :

Code "Delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm1.ButtonouvrecdClick(Sender: TObject);
begin
ClientSocket1.Socket.SendBuf(Buttonouvrecd.Caption);
mciSendString('Set cdaudio door open wait', nil, 0, 0);
Etat.Lines.Add('Informations envoyées au serveur'); 
end;

Beh voila quand je compile sa marque : Un obget constante ne peut etre passer comme paramètre var !

Merci de m'aider !

[Rayek]

Quand tu doubles clique sur cette erreur, il se positionne où le curseur ?

[Chyokyka]

Juste apret le )

Code delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm1.Button890Click(Sender: TObject);
begin
ClientSocket1.Socket.SendBuf(Button890.Caption)ICI;
mciSendString('Set cdaudio door open wait', nil, 0, 0);
Memo1.Lines.Add('Informations envoyées au serveur', 0, 0);
end;

[Rayek]

Il te faut passer par une variable

Code delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button890Click(Sender: TObject);
var
  MaVar : String;
begin
  MaVar := Button890.Caption;
  ClientSocket1.Socket.SendBuf(MaVar);
  mciSendString('Set cdaudio door open wait', nil, 0, 0);
  Memo1.Lines.Add('Informations envoyées au serveur', 0, 0);
end;

PS: Penses à utiliser les balises [ Code ] (le # dans la barre d'outils)

[Chyokyka]

Cool merci mais maintenant sa marque :
Trop de paramettre originaux (
Le curseur ce met juste apret la ) de MaVar

[Rayek]

Il ne te manquerai pas des paramètres par hasard ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button890Click(Sender: TObject);
var
  MaVar : String;
begin
  MaVar := Button890.Caption;
  ClientSocket1.Socket.SendBuf(MaVar,Length(MaVar));
  mciSendString('Set cdaudio door open wait', nil, 0, 0);
  Memo1.Lines.Add('Informations envoyées au serveur', 0, 0);
end;

Car dans l'aide pour sendBuf, j'ai

Ecrit Count octets du paramètre Buf dans la connexion de socket.

Classe
TCustomWinSocket

Syntaxe


[Delphi] public function SendBuf(var Buf: , Count: Integer): Integer;

[Chyokyka]

COOOL MERCI ! Sa marche ^^

J'ai un autre probleme( LOL )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Etat.Lines.Add('Lecture des informations effecuées');
Button890.Caption:=Socket.ReceiveBuf;
end;

Je les mis dans le serveur
mais je ne sais pas comment ont fait pour quil le recois !
dsl...

[ShaiLeTroll]

...\Program Files\Borland\Delphi6\Demos\Internet\NetChat

Etude cette exemple ... c'est avec cela que j'ai tout appris sur les TClientSocket /TServerSocket de Delphi6