IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

Problème avec TClientSocket


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    114
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 114
    Par défaut Problème avec TClientSocket
    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 !

  2. #2
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 236
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 236
    Par défaut
    Quand tu doubles clique sur cette erreur, il se positionne où le curseur ?
    Modérateur Delphi

    Le guide du bon forumeur :
    __________
    Rayek World : Youtube Facebook

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    114
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 114
    Par défaut
    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;

  4. #4
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 236
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 236
    Par défaut
    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)
    Modérateur Delphi

    Le guide du bon forumeur :
    __________
    Rayek World : Youtube Facebook

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    114
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 114
    Par défaut
    Cool merci mais maintenant sa marque :
    Trop de paramettre originaux (
    Le curseur ce met juste apret la ) de MaVar

  6. #6
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 236
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 236
    Par défaut
    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

    Citation Envoyé par Aide delphi
    Ecrit Count octets du paramètre Buf dans la connexion de socket.

    Classe
    TCustomWinSocket

    Syntaxe


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

    Le guide du bon forumeur :
    __________
    Rayek World : Youtube Facebook

Discussions similaires

  1. Réponses: 1
    Dernier message: 19/12/2009, 20h48
  2. Problème avec TCLientSocket
    Par rzayani dans le forum C++Builder
    Réponses: 5
    Dernier message: 23/04/2008, 17h23
  3. Problème avec le type 'Corba::Any_out'
    Par Steven dans le forum CORBA
    Réponses: 2
    Dernier message: 14/07/2002, 18h48
  4. Problème avec la mémoire virtuelle
    Par Anonymous dans le forum CORBA
    Réponses: 13
    Dernier message: 16/04/2002, 16h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo