Как сделать GUI-оболочку к консольной проге?

[monrus]

Как сделать GUI-оболочку к консольной проге, чтобы можно было передавать в строку некие аргументы. Дайте примеры.

[Finch]

monrus, легче к GUI приложению привинтить консоль. Делаеш отдельно два приложения. Из GUI приложения запускаеш консоль и через сокеты или pipe передаеш данные на консоль.
Можно в принципе и консоль напрямую вызывать. Только это надо будет покопаться в MSDN. Я как-то натыкался на статьи по созданию консоли.

[zubr]

В дельфях делается до безобразия просто:

Код:

unit Unit1;
{$APPTYPE CONSOLE}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Writeln('Eto stroka Edit1: ', Edit1.Text);
end;

end.

[monrus]

Боюсь, мы друг друга не поняли. Приведу пример: все вы знаете прогу UPX, которая работает ч/з командную строку. Как, например, к ней сделать оболочку, чтобы можно было передавть ей различные аргументы. или оболочка к компилятору, к примеру.
Меня просто интересует как это все работает. Спасибо, что помогаете.

[Finch]

Вот пример из MSDN, Как это делать

[monrus]

А на дельфи ?

[Finch]

monrus, А прогуглить малость слабо? Вот ссылка http://delphiworld.narod.ru/base/stdin_stdout.html

[x77]

https://forum.shelek.ru/index.php/topic,2507.0.html

[monrus]

Блин не понимаю. Дайте пример реальной программы. Please.

[x77]

monrus, по ссылке приведён готовый код реальной программы, которая запускает ping 127.0.0.1 и выводит результат её работы в TMemo.

[monrus]

Она у меня не работает, хоть тупым я себя не считаю.

[monrus]

там еще и синтаксис чем-то левым заменен

[monrus]

х77, пришли мне пожалуйста эту прогу.

[zubr]

Может это тебе поможет:

Код:

const 
 RETURN_INVALID_HANDLE = MaxInt; 
 RETURN_EXECUTE_FAILED = MaxInt - 1; 


function ExecuteWait(Command, Params: string; ShowWindow: Word; 
 Output: TStrings): Cardinal; 


    function GetTempFile: string; 
    var 
      bFile, bDir: Array [0..255] of char; 
    begin 
      GetTempPath(SizeOf(bDir), bDir); 
      GetTempFileName(bDir, 'tmp', 0, bFile); 
      Result := bFile; 
    end; 


var 
 StartupInfo: TStartupInfo; 
 ProcessInfo: TProcessInformation; 
 SecurityAttr: TSecurityAttributes; 
 hOut: THandle; 
 tempfile: string; 
 workingdir: PChar; 
begin 
 ZeroMemory(@StartupInfo, SizeOf(TStartupInfo)); 
 ZeroMemory(@ProcessInfo, SizeOf(TProcessInformation)); 
 ZeroMemory(@SecurityAttr, SizeOf(TSecurityAttributes)); 


 tempfile := GetTempFile; 


 with SecurityAttr do begin 
   nLength := SizeOf(TSecurityAttributes); 
   lpSecurityDescriptor := nil; 
   bInheritHandle := True; 
   end; 


 hOut := CreateFile(PChar(tempfile), GENERIC_READ or GENERIC_WRITE, 0, 
@SecurityAttr, 
                    CREATE_ALWAYS, FILE_ATTRIBUTE_TEMPORARY, 0); 


 if hOut = INVALID_HANDLE_VALUE then 
   Result := RETURN_INVALID_HANDLE 
 else begin 
   with StartupInfo do begin 
     cb := SizeOf(TStartupInfo); 
     wShowWindow := ShowWindow; 
     dwFlags := STARTF_USESHOWWINDOW; 
     if Assigned(Output) then begin 
       hStdOutput := hOut; 
       hStdError := hOut; 
       hStdInput := GetStdHandle(STD_INPUT_HANDLE); 
       dwFlags := dwFlags or STARTF_USESTDHANDLES; 
       end; 
     end; 


   if ExtractFilePath(Command) <> '' then 
     workingdir := PChar(ExtractFilePath(Command)) 
   else 
     workingdir := nil; 


   if Pos(' ', Command) <> 0 then Command := '"' + Command + '"'; 


   if CreateProcess(nil, PChar(Command + ' ' + Params), nil, nil, True, 0, 
nil, 
                    workingdir, StartupInfo, ProcessInfo) then begin 
     WaitForSingleObject(ProcessInfo.hProcess, INFINITE); 
     GetExitCodeProcess(ProcessInfo.hProcess, Result); 
     CloseHandle(ProcessInfo.hProcess); 
     CloseHandle(ProcessInfo.hThread); 
     CloseHandle(hOut); 
     if Assigned(Output) then Output.LoadFromFile(tempfile); 
     DeleteFile(tempfile); 
     end 
   else begin 
     CloseHandle(hOut); 
     DeleteFile(tempfile); 
     Result := RETURN_EXECUTE_FAILED; 
     end; 
   end; 


end;

[monrus]

дайтн реальные сорцы с выводом в консоль

[zubr]

Блин, называется дал го..на, давай и ложку

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str:TStringList;
begin
 str:=TStringList.Create;
 try
  ExecuteWait('ping', '127.0.0.1', SW_HIDE, str);
  Memo1.Lines.Assign(str);
 finally
  str.Free;
 end;
end;

[monrus]

вот пример вашей проги. Но она выводит данные из консоли в мемо. А мне нужно наоборот.
чтобы я вводил данные, к примеру, "/?" и эти данные передавались в консольную прогу.
Пожалуйста, модифицируйте ее. Очень хочу научиться работать с этим.

[Finch]

monrus, Ты так нефига не научишся. Это сто пудово. Дали тебе готовые сырци, работаюшие в обратном направлении. Ну так сделай их в прямом. Будет тебе практика, чтобы руку набить и самому понять. Разбирая чужой код, ты не научишся программировать. Пока сам не начнеш писать.

[Антон (LogRus)]

monrus, согласен с Fintch'ем или ты используешь уже полученные данные или фиг ты чему научишься, твоя задача написания front-end интерфейса решается путём подмены потоков ввода вывода у внешней програмы. есть такой вызов dup. есть такой сайт delphikingdom.ru

[monrus]

[zubr]

Меня самого данная тема заинтерисовала, был час свободный - сварганил простенький интерпретатор консоли.
Описание:
1. Вводишь командную строку в окошко Edit.
2. Нажимаешь кнопку Пуск.
3. В левом Memo отображается вывод консоли.
4. Для ввода данных, вводишь строку в правое Memo и нажимаешь кнопку Ввод.
5. Смотришь, что выводится в левом Memo.

Проект собран в Delphi6.

[monrus]

zubr, брат, Будь Здоров!
Теперь буду изучать.

[monrus]

zubr, брат, Будь Здоров!
Теперь буду изучать.