Discussion :

[Chyokyka]

Salut , alors voila je voudrais ouvrir le lecteur CD avec Tclientsocket et Tserversocket mais je ne sais pas ce quil faut mettre! pour envoyer du text c'est NETSEND mais pour ouvrir le lecteur CD c'est quoi ?? Merci davance !

Code :

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

1
2
3
4
5
 
procedure TForm1.Button890Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, 0)
end;

[ShaiLeTroll]

Les Composants de Delphi 6, TClientSocket et TServerSocket propose toutes les fonctionnalités d'échange de Trame TCP/IP, avec SendText ou SendBuf, et leur réciproque ReceiveText et ReceiveBuf, te permettes d'envoyer tout ce que tu veux, du texte, du binaire (tu peux envoyer des structures via des CopyMemory par exemple), ... c'est à TOI de définir ton protocole applicatif

Personnellement, je simplifierais, j'enverrais la commande dans TelNet : 'Open CD x'

Ensuite, pour ouvrir le CD

Code :

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

1
2
3
4
5
6
7
 
procedure OpenCD(DiskLetter: Char);
begin
  mciSendString(PChar(Format('open %s:\ type cdaudio alias cdaudio',   [DiskLetter])), nil, 0, 0);
  mciSendString('set cdaudio door open', nil, 0, 0);
  mciSendString('close cdaudio', nil, 0, 0);
end;

pour fermer, "open" -> "closed"

[Chyokyka]

MERCIII !!!!
Un grand merci a toi
mais jai un autre petit soucis (desoler)
vala le code dejas :

Code :

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

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

Voila le TButton c'est faux quand je compile je sais que pour sendtext c'est .text mais pour un boutton ?? Merci de repondre ! ^^

[ShaiLeTroll]

Déjà Button890, joli, combien d'onglet pour en avoir autant, perso, même dans mon application à bordel, tout est nommé, déjà que je ne retrouve pas mes fonctions de dedans ...

Ensuite, pour un bouton, c'est Caption, c'est un peu la base ! Apprend à programmer correctement d'abord ... avant de tester des fonctionnalités aussi inutile qu'ouvrir le boitier cd ...

Sinon, tu veux faire quoi ? je pensais que tu voulais envoyer une commande d'un client vers un server (click sur machine A ouvre le CD sur machine B), ça me fait penser au projet "Ulysse Trojan", un programme en delphi qui regroupe toutes ce genre de manip à la con ...

as-tu au moins programmer les connexions (Connect avec Host correct), les gestionnaires d'évènment (onReveice...) ou en mode Non Bloquant en Thread ?

[Chyokyka]

Ouais c un peut comme un trojan mais pas pour piratez,
mais javais dejas essayer caption ! et quand je compile beh sa donne : chaine non terminée ...

[ShaiLeTroll]

C'est bien ce que je dis, si tu es débutant, commence par les tutoriels de base, si tu ne connais pas la syntaxe du langage, tu ne peux pas aller loin, ... ne soit pas presser, tout vient en son temps ...