Dos command

[guinnes]

Hier gibts eine von Sirius überarbeitete Version von TDosCommand

[value is NULL]

Zitat:

Zitat von guinnes (Beitrag 1159399)

Hier gibts eine von Sirius überarbeitete Version von TDosCommand

Das klingt gut... werds mal probieren

[value is NULL]

also irgendwie krieg ichs nicht zum laufen ....
in dem Beispiel steht

Delphi-Quellcode:

var diskname: string;
      --
      DosCommand1.CommandLine := 'c:\myformat.bat a:';
      DosCommand1.Execute; //launch format process
      DosCommand1.SendLine('', True); //equivalent to press enter key
      DiskName := 'test';
      DosCommand1.SendLine(DiskName, True); //enter the name of the volume

Aber wenn ich die Unit einbinde bekomme ich bei DosCommand den CommandLine vorschlag nicht :/

[guinnes]

Zitat:

Zitat von value is NULL (Beitrag 1159406)

Aber wenn ich die Unit einbinde bekomme ich bei DosCommand den CommandLine vorschlag nicht :/

Hast du das Ding als Komponente installiert und verwendest die Komponente, oder erzeugst du das Dingen im Quelltext ?

Delphi-Quellcode:

procedure TfrmTSMain.btnExecuteClick(Sender: TObject);
var
  Command : String;
begin
  if JvOpenDialog.Execute then
  begin
    RxTrackInfo.EmptyTable;
    JvOpenDialog.InitialDir := ExtractFilePath(JvOpenDialog.FileName);
    lbxFileList.Items.Add(JvOpenDialog.FileName);
    mmMeta.Lines.Clear;
    mmDosCommand.Lines.Clear;
    Command := ExtractFilePath(Application.ExeName) + 'tsmuxer "' + JvOpenDialog.FileName + '"';
    DosCommand.CommandLine := Command;
    DosCommand.Execute;
  end;
end;

Tut bei mir einwandfrei

[value is NULL]

Zitat:

Zitat von guinnes (Beitrag 1159412)

Zitat:

Zitat von value is NULL (Beitrag 1159406)

Aber wenn ich die Unit einbinde bekomme ich bei DosCommand den CommandLine vorschlag nicht :/

Hast du das Ding als Komponente installiert und verwendest die Komponente, oder erzeugst du das Dingen im Quelltext ?

Delphi-Quellcode:

procedure TfrmTSMain.btnExecuteClick(Sender: TObject);
var
  Command : String;
begin
  if JvOpenDialog.Execute then
  begin
    RxTrackInfo.EmptyTable;
    JvOpenDialog.InitialDir := ExtractFilePath(JvOpenDialog.FileName);
    lbxFileList.Items.Add(JvOpenDialog.FileName);
    mmMeta.Lines.Clear;
    mmDosCommand.Lines.Clear;
    Command := ExtractFilePath(Application.ExeName) + 'tsmuxer "' + JvOpenDialog.FileName + '"';
    DosCommand.CommandLine := Command;
    DosCommand.Execute;
  end;
end;

Tut bei mir einwandfrei

ne ich habs als Unit in meiner commandline app eingebunden :/

[guinnes]

Zitat:

Zitat von value is NULL (Beitrag 1159415)

ne ich habs als Unit in meiner commandline app eingebunden :/

Wie ?

[value is NULL]

Habe die Unit in meinen Libary Ordner gepackt und in die Uses eingebunden.

LG

[guinnes]

Zitat:

Zitat von value is NULL (Beitrag 1159421)

Habe die Unit in meinen Libary Ordner gepackt und in die Uses eingebunden.

Und das Objekt erzeugt und die nötigen Eventhandler geschrieben und angebunden ?

[Klaus01]

.. bin mir nicht sicher aber ist TDosCommand nicht eine Klasse?
.. hast Du davon eine Instanz erzeugt?

Delphi-Quellcode:

dosCommand := TDosCommand.create;

Grüße
Klaus

[value is NULL]

Zitat:

Zitat von Klaus01 (Beitrag 1159424)

.. bin mir nicht sicher aber ist TDosCommand nicht eine Klasse?
.. hast Du davon eine Instanz erzeugt?

Delphi-Quellcode:

dosCommand := TDosCommand.create;

Grüße
Klaus

Alles klar.. funktioniert!!!

ich teste mal die Unit !


LG