Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1645 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Aide pour conception d'un prog ...

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Aide pour conception d'un prog ...

n°245492
EpoK
Let's burn
Posté le 14-11-2002 à 19:08:02  profilanswer
 

Vala je cherche a faire une interface toute conne avec 3 case vide et un bouton, le principe est que l'ultilisateur rempli les 3 cases puis en appuiant sur le bouton cela lance un .bat (qui est ds le meme dossier) avec comme argument les 3 info kil a renseigné dans les cases.
 
spossible ?

mood
Publicité
Posté le 14-11-2002 à 19:08:02  profilanswer
 

n°245497
Je@nb
Kindly give dime
Posté le 14-11-2002 à 19:13:27  profilanswer
 

oui, dans quel langage ?

n°245498
djok_fb
C'était mieux avant!
Posté le 14-11-2002 à 19:13:44  profilanswer
 

oui, tu peux faire ca en delphi, c++ builder, java aussi, visual basic, ...
le plus simple pour ca, c'est bien VB ou Delphi
 
tu crées un nouveau projet appli windows, tu colles 3 textfield et 1 button
 
tu double-cliques sur ton boutton, et tu edites le code pour faire un exec (je connais plus les commandes ...) d'une chaine que tu vas contruire:
 
chaine = "tonbat " + field1.text + " " + field2.text + " " + field3.text

n°245500
leirn
A.D.I.D.A.S.
Posté le 14-11-2002 à 19:16:51  profilanswer
 

vb est simple, delphip as essayer...
 
ta la command shell() je kroi pour executé un prog... app.path de tete pour recuperer le dossier, et rulez...


---------------
"Je brandirai une épée d'orichalque, je m'assouvirai sur des Templiers." | "Avec dans son sillage l'Ombre du Diable, Leirn appelait les morts pour une danse macabre et déchainaît les horreurs de la nuit..."
n°245502
lorill
Posté le 14-11-2002 à 19:18:18  profilanswer
 

vous regardez jamais le titre des messages ou la section ?
parce que le langage, il est déja choisi, la...

n°245503
leirn
A.D.I.D.A.S.
Posté le 14-11-2002 à 19:19:21  profilanswer
 

lorill a écrit a écrit :

vous regardez jamais le titre des messages ou la section ?
parce que le langage, il est déja choisi, la...




 
ce ke g mal lu, c surtt le nom des posteurs :D
g vu vb kke part, g cru ke ct lui, mea culpa
 


---------------
"Je brandirai une épée d'orichalque, je m'assouvirai sur des Templiers." | "Avec dans son sillage l'Ombre du Diable, Leirn appelait les morts pour une danse macabre et déchainaît les horreurs de la nuit..."
n°245512
antp
Super Administrateur
Champion des excuses bidons
Posté le 14-11-2002 à 19:32:21  profilanswer
 

ShellExecute(0, nil, PChar('fichier.bat';), PChar(Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);


Message édité par antp le 14-11-2002 à 19:32:33

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°245516
KrzAramis
Help Me
Posté le 14-11-2002 à 19:36:31  profilanswer
 

Citation :

ShellExecute(0, nil, PChar('fichier.bat';), PChar(Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);


 
mais est ce que dos peut faire:
 

Code :
  1. instruction1 %1 %2 %3
  2. rem: ou bien
  3. instruction %1
  4. instruction %2
  5. instruction %3


 
car sans vouloir etre mechant il me semble que DOS ne supporte que deux parametres !


---------------
The Only Way for Evils to Triumph is for Good Men to do Nothing @->-- Cours Réseaux@->-- Mon Site
n°245528
EpoK
Let's burn
Posté le 14-11-2002 à 19:43:55  profilanswer
 

bah j'aimerai faire ca en delphi le blem c ke le pascal je connai pas du tout, je ds le java plutot mais pas encore les interface grafique
 
du coup je me lance dans Delphi
 
fai trois case de text et un bouton c pas tro dur ^^ :)
 
mais je cherche la syntaxe pour ke le klick sur le bouton lance mon .bat

n°245529
antp
Super Administrateur
Champion des excuses bidons
Posté le 14-11-2002 à 19:44:24  profilanswer
 

je sais pas à combien c'est limité, mais c'est plus que 2 en tout cas :o


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
mood
Publicité
Posté le 14-11-2002 à 19:44:24  profilanswer
 

n°245533
antp
Super Administrateur
Champion des excuses bidons
Posté le 14-11-2002 à 19:45:58  profilanswer
 

EpoK a écrit a écrit :

 
mais je cherche la syntaxe pour ke le klick sur le bouton lance mon .bat




 
dans l'éditeur de la Form où tu as mis le bouton, tu cliques 2x sur le bouton (ou via l'onglet "Events" de l'Inspector, sur la ligne OnClick) et là dans la procédure Button1OnClick que Delphi aura rajouté tu fais l'appel à ShellExecute.
Pour ça tu dois aussi rajouter ShellAPI parmis les units qui sont mentionnées derrière "uses" dans le début de la unit.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°245536
EpoK
Let's burn
Posté le 14-11-2002 à 19:49:02  profilanswer
 

les case ke je cré en Delphi c'est bien des "Edit" dans le menu Standard non ?

n°245542
EpoK
Let's burn
Posté le 14-11-2002 à 19:52:22  profilanswer
 

procedure TForm1.Button1Click(Sender: TObject);
begin
 
end;
 
end.
 
 
 
tu fais l'appel à ShellExecute.  
 
c koi la syntaxe ?
 

n°245553
EpoK
Let's burn
Posté le 14-11-2002 à 19:59:38  profilanswer
 

ca avance ^^

n°245556
taureau
Posté le 14-11-2002 à 20:05:46  profilanswer
 

antp a écrit a écrit :

ShellExecute(0, nil, PChar('fichier.bat';), PChar(Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);




 

Code :
  1. function ShellExecute(hWnd: HWND; Operation, FileName,Parameters,Directory: PChar; ShowCmd: Integer): HINST;

n°245568
EpoK
Let's burn
Posté le 14-11-2002 à 20:25:59  profilanswer
 

ShellExecute(0, nil, PChar('fichier.bat';), PChar(Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);
 
 
ca marche ! :)
 
mais si jeu veu mette kekechoz avec l'argument ? du text ... le début d'une cmd dos du style "ping"

n°245576
drasche
Posté le 14-11-2002 à 20:38:10  profilanswer
 

niveau arguments tu peux au moins aller de %1 à %9.
 
Pour info, tu peux même tester %0 qui correspond à la commande (.bat) qui reçoit les arguments.  C'est case-sensitive si je me souvient bien ;)


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°245578
EpoK
Let's burn
Posté le 14-11-2002 à 20:40:08  profilanswer
 

EpoK a écrit a écrit :

ShellExecute(0, nil, PChar('fichier.bat';), PChar(Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);
 
 
ca marche ! :)
 
mais si jeu veu mette kekechoz avec l'argument ? du text ... le début d'une cmd dos du style "ping"




 
ShellExecute(0, nil, PChar('fichier.bat';), PChar(Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);
 
 
 
 
comment inséré du text avt les argument ?

n°245585
EpoK
Let's burn
Posté le 14-11-2002 à 20:50:18  profilanswer
 

:cry:

n°245587
leirn
A.D.I.D.A.S.
Posté le 14-11-2002 à 20:51:31  profilanswer
 

ShellExecute(0, nil, PChar('fichier.bat';), PChar('tontextici';),PChar(Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);
 
ca marche pas comme ca?


---------------
"Je brandirai une épée d'orichalque, je m'assouvirai sur des Templiers." | "Avec dans son sillage l'Ombre du Diable, Leirn appelait les morts pour une danse macabre et déchainaît les horreurs de la nuit..."
n°245588
EpoK
Let's burn
Posté le 14-11-2002 à 20:53:55  profilanswer
 

leirn a écrit a écrit :

ShellExecute(0, nil, PChar('fichier.bat';), PChar('tontextici';),PChar(Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);
 
ca marche pas comme ca?




 
marche po :(

n°245589
EpoK
Let's burn
Posté le 14-11-2002 à 20:54:13  profilanswer
 

types incompatilble interger et pointer

n°245591
EpoK
Let's burn
Posté le 14-11-2002 à 20:55:52  profilanswer
 

help  :cry:

n°245599
antp
Super Administrateur
Champion des excuses bidons
Posté le 14-11-2002 à 21:11:23  profilanswer
 

EpoK a écrit a écrit :

 
 
ShellExecute(0, nil, PChar('fichier.bat';), PChar(Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);
 
 
 
 
comment inséré du text avt les argument ?




 
ShellExecute(0, nil, PChar('fichier.bat';), PChar(Format('ping %s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);
 
par exemple
 
ou bien
 
ShellExecute(0, nil, PChar('fichier.bat';), PChar('ping' + Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);
 
1er param = 0, c'est un handle de je sais plus quoi, on s'en fout
2e param = nil, c'est un pointeur vers la chaine contenant l'action à affectuer, par défaut open, donc on s'en fout
3e param = pointeur vers la chaine contenant le nom (+ chemin éventuel) du fichier à exécuter
4e param = nil, pointeur vers la chaine contenant le dossier à partir duquel on execute. Pour bien faire il faut mettre là le dossier où est le .bat. Tu peux aussi mettre ce dossier avant le nom du fichier. Exemples si le fichier.bat est dans le même dossier que l'application :
 
ShellExecute(0, nil, PChar('fichier.bat';), PChar(Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), PChar(ExtractFilePath(ParamStr(0))), SW_SHOWNORMAL);
 
ou
 
ShellExecute(0, nil, PChar(ExtractFilePath(ParamStr(0)) + 'fichier.bat';), PChar(Format('%s %s %s', [Edit1.Text, Edit2.Text, Edit3.Text])), nil, SW_SHOWNORMAL);
 
ParamStr(0) = 'c:\monprogramme\project1.exe' si ton exe d'appelle comme ça et est là. ça permet de récupérer le dossier de l'application, son nom d'exe, etc...
ExtractFilePath(...) = extraction du dossier d'une chaine contenant un dossier+fichier
 
5e param = aspect de la fenêtre à l'ouverture, ici normale (on pour l'agrandir; la faire minimisée, etc..)


Message édité par antp le 14-11-2002 à 21:12:07

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°245601
antp
Super Administrateur
Champion des excuses bidons
Posté le 14-11-2002 à 21:15:10  profilanswer
 

Y a des tutoriels Delphi pour débutants sur www.developpez.com je pense
Tu devrais y jeter un coup d'oeil ;)
Sinon y a pas mal de liens ici : http://forum.hardware.fr/forum2.php3?post=16838&cat=10


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°245702
EpoK
Let's burn
Posté le 15-11-2002 à 07:21:35  profilanswer
 

antp a écrit a écrit :

Y a des tutoriels Delphi pour débutants sur www.developpez.com je pense
Tu devrais y jeter un coup d'oeil ;)
Sinon y a pas mal de liens ici : http://forum.hardware.fr/forum2.php3?post=16838&cat=10




 
 
merci pour ton aide
 
jai jeté un couil d'oeuil o tuto mais j'suis un peu a la bourre et j'arrivé pas a trouvé ce ki me fallais
 
encore merci

n°245703
EpoK
Let's burn
Posté le 15-11-2002 à 07:22:16  profilanswer
 

une kestion c possible d'intérgré le .bat au .exe pour évité d'avoir 2 fichier ?

n°245720
drasche
Posté le 15-11-2002 à 09:25:44  profilanswer
 

le bat étant un fichier texte et l'exe un fichier binaire, non, tu ne peux pas.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°245722
antp
Super Administrateur
Champion des excuses bidons
Posté le 15-11-2002 à 09:33:15  profilanswer
 

Heu si on peut (dans les ressources) mais bon ça va être un bordel monstre pour l'exploiter :D
Mais je vois pas trop l'intérêt du bat une fois que t'as le exe, suffit de refaire en Delphi+Win32 ce que tu faisais en commandes DOS :o


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°245726
drasche
Posté le 15-11-2002 à 09:48:48  profilanswer
 

damn :)


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
mood
Publicité
Posté le   profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Aide pour conception d'un prog ...

 

Sujets relatifs
[installeur d'appli] aide!aide et expliquations
Besoin d'aide pour creer une fonction PHP[Delphi] Aide de Delphi
pour les vieux barbus de la prog c...merci...[PHP] Besoin d'aide ... explications à l'interieur ... merci
Connexion sécurisée SSL entre un prog C++ et une base MySQL[PHP] Besoin d'aide pour un exploreur de dossier FTP
Besoin d'aide pour un compteur html[PHP] Besoin d'aide pour effectuer une boucle...
Plus de sujets relatifs à : Aide pour conception d'un prog ...


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR