Delphi 7: comment exécuter une commande shell et vérifier le résultat?

Je suis l'aide de Delphi 7 et ne peut pas prédire la cible de la version de Windows.

J'ai besoin de créer une base de données (probablement MySql, mais pourrait être autre chose) et de définir des structures de la table. Je n'ai pas besoin de remplir toutes les données. Malheureusement, tous les composants ADO semblent attendre à ce que la base de données existe déjà et ils vous permettra de la manipuler.

Donc, puisque c'est seulement quelques commandes simples, j'ai pensé que je pourrais aussi bien utiliser ShellExectute().

D'accord? En désaccord?

Quelqu'un peut-il me donner un exemple de code qui va tenter de l'exécuter "MySql --version" et laissez-moi vérifier le résultat? Après, je devrais être capable de comprendre par moi-même. Merci.

[modifier]

Aucune infraction, mais je ne sais comment google. C'est juste que je ne trouve pas de résultats utiles. C'est de ma faute pour ne pas être explicite dans cette question, de sorte s'il vous plaît accepter mes excuses - ce que j'ai besoin d'un exemple de code, pas juste le nom d'un composant.

Désolé (et merci pour les réponses pour l'instant (qui sont toutes des +1))

[modifier]

Les liens qui Robert donne de faire le travail (procédure RunDosInMemo() fait le truc) ... B U T vous Devez n'oubliez pas d'inclure un .extension exe (donc, notepad.exe', pas seulement le 'bloc-notes', et ge un chemin d'accès complet si votre commande n'est pas sur le chemin.

  • Êtes-vous pour demander des conseils sur la façon de créer une base de données à partir de zéro, ou demandez-vous comment exécuter une commande de capture et de sa sortie? (Si votre réponse est à la fois, alors vous devriez avoir demandé à deux questions distinctes.)
  • Rob, je vais prendre soit. Ligne de fond est que j'ai besoin de créer une base de données et des tables, mais pas de remplir toutes les données. Plusieurs gens dans diufferent questions ont essayé d'aider mby faisant mention de l'oiseau de feu ou d'ado, mais ces gens ne donnent pas de détails sur la façon de créer par programmation de la base de données avec ces outils - et je ne vois pas comment. Donc, puisque je sais que la ligne de commande pour créer une base de données et de table, j'ai pensé que je pourrais exécuter une commande shell à la place. Ligne de fond, je n'aime pas la façon dont il descend, mais quelqu'un peut-il me montrer comment créer une base de données MySql avec une table unique à partir de Delphi?
InformationsquelleAutor Mawg | 2010-05-25
  1. 7

    Voici un article qui explique en détail

    La Capture de la sortie d'un DOS (commande/console) de la Fenêtre

    Mais en bref, vous devez Créer deux tuyaux à lire et à écrire la sortie. Ensuite, vous devez définir StdInput et StdOutput dans le TStartUpInfo structure, puis transmettre cette structure à la La fonction CreateProcess() appel.

    Ici est un autre article qui montre comment Attendre la fin du processus.

    • merci pour les quelques bons liens (+1)
    • hmmm, delphi.about.com/cs/adptips2001/a/bltip0201_2.htm l'air très bon, mais quand je le lance sous Windows 7 alors la fonction CreateProcess() échoue.
    • Aaaaaaaaaaargh!!!! Vous ne pouvez pas donner un nom de commande, comme "bloc-notes"!!!! Vous avez à donner "Notepad.exe" !!!!
    • Non, vous peut just type "bloc-notes", mais vous avez besoin d'ignorer le nom de l'application pour cela, utilisez la ligne de commande. Si vous utilisez appname - ensuite, vous devez spécifier "notepad.exe" (il y a encore peut-être juste "bloc-notes" dans la ligne de commande si). Tout à fait évidente. Si vous ne pouvez pas le faire - alors quelque chose est incorrect avec votre environnement. Cela fonctionne même dans Win7 x64.
    • "si pas CreateProcess(...) puis RaiseLastOSError;" ou "si la fonction CreateProcess(...) then begin ... end else RaiseLastOSError;" devrait vous donner suffisamment d'informations pour diagnostiquer le problème. Rappelez-vous: 90% de la FAQ-code sont de la merde (c'est pas mauvais, car ils ne sont que exemples, mais tout le monde copie&coller). Et 90% inclut le code à partir de liens ci-dessus, aussi. Votre travail est de comprendre pourquoi. Si vous voulez de la qualité du code, puis d'écrire vous-même ou utiliser le code de bien-connu largement testé bibliothèques (JCL par exemple). Peut-être ces bibliothèques ne sont pas parfaits, mais ils sont beaucoup mieux que la moyenne "conseils" dans l'internet.
    • L'exemple de code pour RunDosInMemo ne fonctionne pas dans XE2. Je reçois une Violation d'Accès sur la fonction CreateProcess. Probablement dû à PWideChar/PAnsiChar les différences entre l'ancien Delphis et les nouveaux qui prennent en charge le format Unicode.

    InformationsquelleAutor Robert Love
  2. 5

    Utilisation DSiExecuteAndCapture de DSiWin32:

    var
  exitCode: integer;
  output  : TStringList;
begin
  output := TStringList.Create;
  try
    if DSiExecuteAndCapture('mysql --version', output, '', exitCode) = 0 then
      Log(Format('error %d, cannot start', [GetLastError])) 
    else begin
      // check exitCode and output
    end;
  finally FreeAndNil(output); end;
end;
    • Cela ressemble très bonne, de sorte que plus 1, mais j'ai un peu embourbé en essayant de l'installer (pas beaucoup de documentation). Je reviendrai si les autres trucs ne fonctionnent pas, mais en général, je préfère ne pas utiliser des trucs 3ème partie.
    • Il n'y a rien à installer, il suffit d'ajouter DSiWin32 pour les "utilisations" de la clause. Vous pouvez également copier&coller DSiExecuteAndCapture à votre code.
    InformationsquelleAutor gabr
  3. 3

    Je me demande pourquoi tout le monde qui veut lancer un nouveau processus a tendance à utiliser ShellExecute au lieu de cela, qui est conçu pour ouvrir le fichier dans l'application associée?

    Vous voulez que les nouveaux processus? Ensuite, utilisez la fonction CreateProcess. Fin de l'histoire.

    CreateProcess vous permet de vous attendre pour processus, pour obtenir son code de sortie, à lire sa sortie de la console et beaucoup plus.

    • nice conseils généraux (+1) - toute les exemples de code?
    • Tout le monde utilise ShellExecute parce qu'il est beaucoup plus facile: pas de paramètres de sécurité à penser, pas de structure à remplir avant de l'appeler, pas de processus et thread gère à nettoyer par la suite. Les gens utiliseraient WinExec s'ils le pouvaient.
    • > spécifiques des exemples de code? Avez-vous essayé une recherche? Recherche de "console" en Delphi tag. Ici: stackoverflow.com/questions/1212176/... stackoverflow.com/questions/2015388/... stackoverflow.com/questions/2856772/... Et beaucoup d'autres questions...
    • > tout le monde utilise ShellExecute parce qu'il est beaucoup plus facile Oui, je le sais. Il a été question rhétorique 😉
    • "Plus facile" ne signifie pas forcément "mieux" si. ShellExecute() utilise la fonction CreateProcess() en interne. Si vous le connaissez .exe/commande à exécuter, c'est moins de frais généraux pour appeler la fonction CreateProcess() directement de l'OS invoquer beaucoup de frais généraux à essayer de comprendre quoi faire.
    InformationsquelleAutor Alex
  4. 3

    Ce que vous cherchez, sans doute, est une base de données intégrée. Quelques options:

    • Firebird Embedded
    • MySQL Embarqué
    • SQLite

    Soit avec des bases de données approprié et des composants d'accès aux données (pas sûr de la prise en charge ADO pour l'embarqué FB et MySQL), vous serez en mesure de:

    • joindre sans DB
    • créer une DB
    • puis créer les tables
    • désolé, et absolument aucune infraction, mais je l'ai déjà demandé à une autre question et a obtenu une réponse similaire. Je dois préciser que j'ai besoin d'un exemple de code pouvez - vous aider, s'il vous plaît? Désolé de ne pas en déclarant thha de façon plus explicite, je vais modifier la question.
    • Au moins vous avez explicitement de le dire - qui SGBD que vous allez utiliser. Aussi, vous envisagez d'ADO seulement ?
    • Ce n'est pas assez explicite à propos de "quelqu'un Peut-il me donner un exemple de code qui va tenter de l'exécuter "MySql --version" et laissez-moi vérifier le résultat?"
    • Dmitri, je vais utiliser tout ce qui va fonctionner. De préférence très simple (d/b et de création de table uniquement). Il a pour charge ODBC parce que je ne sais pas ce que la dernière DB sera. Si vous pouvez recommander quelque chose, s'il vous plaît poster un exemple de code ou un lien vers un. Merci beaucoup.
    • MySql, mais pourrait être quelque chose d'autre"
    • lazarus.freepascal.org/index.php?topic=8095.0 stackoverflow.com/questions/423808/... Et ainsi de suite

    InformationsquelleAutor da-soft
  5. 2

    J'ai sauvé ce à partir d'un message de groupe de discussion il y a longtemps, je ne sais pas qui originall écrit-il, mais.

    Ce code vous permet d'exécuter une application DOS et capturer la sortie dans un TMemo. Vous pouvez alors tirer ce dont vous avez besoin de la note, avec un petit essai et d'erreur lors de l'analyse des lignes.

    procedure TFMainForm.RunDosInMemo(const DosApp: String; AMemo: TRichEdit);
const
ReadBuffer = 2400;
var
Security : TSecurityAttributes;
StdInPipeR, StdInPipeW : THandle;
StdOutPipeR, StdOutPipeW : THandle;
StartInfo : TStartUpInfo;
ProcessInfo : TProcessInformation;
Buffer : PByte;
BytesAvailable, BytesRead : DWord;
sDosApp: String;
sData: RawByteString;
begin
sDosApp := DosApp;
UniqueString(sDosApp);
with Security do begin
nLength := SizeOf(TSecurityAttributes);
bInheritHandle := True;
lpSecurityDescriptor := nil;
end;
if CreatePipe(StdInPipeR, StdInPipeW, @Security, 0) then
try
SetHandleInformation(StdInPipeW, HANDLE_FLAG_INHERIT, 0);
if CreatePipe(StdOutPipeR, StdOutPipeW, @Security, 0) then
try
SetHandleInformation(StdOutPipeR, HANDLE_FLAG_INHERIT, 0);
GetMem(Buffer, ReadBuffer);
try
ZeroMemory(@StartInfo, SizeOf(StartInfo));
StartInfo.cb := SizeOf(StartInfo);
StartInfo.hStdOutput := StdOutPipeW;
StartInfo.hStdInput := StdInPipeR;
StartInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
StartInfo.wShowWindow := SW_HIDE;
if CreateProcess(nil, 
PChar(sDosApp), 
nil, 
nil, 
True, 
NORMAL_PRIORITY_CLASS, 
nil, 
nil, 
StartInfo, 
ProcessInfo) then
try
while WaitForSingleObject(ProcessInfo.hProcess, 500) <> WAIT_TIMEOUT do
Application.ProcessMessages;
while PeekNamedPipe(StdOutPipeR, nil, 0, nil, BytesAvailable, nil) do 
begin
if BytesAvailable < 1 then 
Break;
if BytesAvailable > ReadBuffer then 
BytesAvailable := ReadBuffer;
if not ReadFile(StdOutPipeR, 
Buffer[0], 
BytesAvailable, 
BytesRead, 
nil) then 
Break;
SetString(sData, PAnsiChar(Buffer), BytesRead);
// assign an appropriate codepage for the output data:
// 0 for default Ansi, 1252 or 20157 for ASCII, 1200 for 
// Unicode, etc...
SetCodePage(sData, ...);
// this is faster and more efficient than reading/writing the 
// Text property directly...
AMemo.SelStart := AMemo.GetTextLen;
AMemo.SelLength := 0;
AMemo.SelText := sData;
end;
finally
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
end;
finally
FreeMem(Buffer);
end;
finally
CloseHandle(StdOutPipeR);
CloseHandle(StdOutPipeW);
end;
finally
CloseHandle(StdInPipeR);
CloseHandle(StdInPipeW);
end;
end;
    • Une technique similaire comme la About.com code de Robert la réponse de liens. Les deux sont sensibles à la même problématique générale. Si le programme de réception n'est pas lu à partir de la pipe, puis lorsque le tube de tampon se remplit, le programme d'envoi se bloque sur sa prochaine WriteFile appel jusqu'à ce que il ya assez de place pour une autre écriture. Mais si le programme de réception est en attente de l'expéditeur à la fin avant de lire n'importe quoi, alors vous avez un blocage.
    • +1 pour l'affichage. Merci. Il ne m'aide pas comme RawByteString paru dans D2009 et j'ai D7.
    • Ajoutez juste "{$IFNDEF UNICODE}type RawByteString = AnsiString;{$ENDIF}" quelque part, et vous avez terminé. Toutes les Chaînes sont RawByteStrings en D7.
    • Je m'en excuse. J'aurais pensé à mentionner les changements D7 et ne. @Alexandre: Merci pour le monter et le faire. 🙂
    InformationsquelleAutor Ken White
  6. 1

    J'ai écrit une unité et un ensemble de composants pour gérer la redirection de la console en delphi il y a très longtemps:

    http://www.fulgan.com/delphi/dospipes15.zip

    Mais au-delà, vous ne devriez pas avoir à passer par là: utilisation de la connexion ADO composant simplement pour se connecter à la base de données du catalogue par défaut et ensuite utiliser la méthode "execute" pour créer quelle que soit la base de données et le schéma dont vous avez besoin. Le SERVEUR de base de données doivent être correctement installés et en cours d'exécution pour que cela fonctionne, mais, au moins avec MSSQL, il n'y a pas de problème avec la création de nouvelles bases de données de cette façon. le exacte de la chaîne de connexion à utiliser peut changer en fonction de la cible DB, cependant.

    InformationsquelleAutor Stephane