Dos command

[guinnes]

Hier gibts eine von Sirius überarbeitete Version von TDosCommand

[value is NULL]

Zitat von guinnes:

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 von value is NULL:

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 von guinnes:

Zitat von value is NULL:

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 von value is NULL:

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 von value is NULL:

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?

dosCommand := TDosCommand.create; Grüße
Klaus

[value is NULL]

Zitat von Klaus01:

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

dosCommand := TDosCommand.create; Grüße
Klaus

Alles klar.. funktioniert!!!

ich teste mal die Unit !


LG