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

Lazarus Pascal Discussion :

Ecrire sur la sortie standard stdout


Sujet :

Lazarus Pascal

  1. #1
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 043
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 043
    Points : 40 957
    Points
    40 957
    Billets dans le blog
    62
    Par défaut Ecrire sur la sortie standard stdout
    suite au post de JPNuage http://www.developpez.net/forums/d81...ltiplateforme/ , j'ai eu l'idée suivante , écrire une séquence directement sur la sortie standard mais ....

    voici l'essai, encore que je ne soit pas encore sur la séquence
    cependant , a priori , ouvrir un fichier vide , n'ouvre pas la sortie standard
    je me retrouve avec diskfull

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    procedure TForm1.Button3Click(Sender: TObject);
    var F : TextFile;
    begin
      AssignFile(F,'');
      Rewrite(F);
      write(F,format('\33[10;%d]\33[11;%d]\a\33[10]\33[11]',[400, 100]));
      Flush(F);
      // ou writln(F, etc.....)
      Closefile(F); 
    end;
    une autre idée , l'utilsation de dbgout mais là je doit avouer mon incompétence
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

  2. #2
    Membre du Club

    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 8
    Points : 53
    Points
    53
    Par défaut
    Regarde dans logmanager procedure WriteLog

  3. #3
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 043
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 043
    Points : 40 957
    Points
    40 957
    Billets dans le blog
    62
    Par défaut
    Merci.

    En fait mes tests se heurtaient a un mur je me croyais devenu comme Beethoven sourd comme un pot

    le problème était le couple portable DELL/UBUNTU plutôt que programme
    en effet même la simple commande ne donnait rien , alors que sous Windows fonctionne parfaitement . Comment m'en suis je aperçu ? en changeant un paramètre son, j'ai cocher une case permettant de faire clignoter l'écran lors des sons système et là c'est 'noël'

    en faisant toutes ces recherches , je suis "tomber" sur beep programme c, mais qui doit pouvoir se traduire

    encore une idée de composant non visuel (2 en fait)

    je dois d'abord résoudre ce problème de couple UBUNTU/portable avant !
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

  4. #4
    Membre averti

    Profil pro
    dirlo
    Inscrit en
    Février 2008
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : dirlo

    Informations forums :
    Inscription : Février 2008
    Messages : 83
    Points : 404
    Points
    404
    Par défaut
    @Beetoven

    Sur mon ordi de bureau, avec Mandriva,
    ne produit aucun son no plus.

    @madeus

  5. #5
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 043
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 043
    Points : 40 957
    Points
    40 957
    Billets dans le blog
    62
    Par défaut
    et pourtant , pourtant ..... cela devrait ou alors je ne sais plus rien du bash ?
    j'en suis vert dit (réponse du berger à la bergère)

    nan , ça doit venir de quelque chose pcspkr, est bien là . Faut simplement aller plus profond sous le capot . J'ai installé le package softbeep pour voir , mais je n'ai pas encore tester (retour brutal dans le monde windows)
    MVP Embarcadero
    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
    SGBD : Firebird 2.5, 3, SQLite
    générateurs États : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd

Discussions similaires

  1. Ecrire sur la sortie standard avec write
    Par overlolo dans le forum Débuter
    Réponses: 8
    Dernier message: 13/04/2009, 00h07
  2. Réponses: 5
    Dernier message: 09/02/2009, 13h27
  3. Ecrire sur la sortie standard
    Par red210 dans le forum Débuter
    Réponses: 1
    Dernier message: 14/04/2008, 11h27
  4. Réponses: 1
    Dernier message: 24/02/2006, 00h53
  5. Réponses: 16
    Dernier message: 18/07/2003, 17h16

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