Запустить компилятор в консоле и считать что он выводит

[Simply-Art]

Вот собственно и проблема, искал в инете, нигде нет нормально работающего кода. Прошу не копируйте тупо другой код, проверьте, работает ли он у вас! А то знаю, загуглил, первую похожую ссылку кинул и нифига не пашет. Гуглить я и сам умею.

P.S. Надеюсь на нормальные ответы.

[eduard93]

А где пример неработающего кода?

[Simply-Art]

http://delphiworld.narod.ru/base/console_in_out.html
http://forum.sources.ru/index.php?showtopic=89005
Может я что-то не так делаю, но не один из премеров не пашет. На делфиворлд вообще код приходилось править чтобы скомпилить.

[eduard93]

Код в делфиворде зависит от версии делфи. В 2009 и выше он скорее всего работать не будет. Плюс там еще знаки равно кудато делись.
По второй ссылке вообще асм, если вы в нем не разбираетесь, то лучше держатся подальше.
Неплохие примеры я видел в DRKB, но опять же их работоспособность зависит от версии делфей.

[Simply-Art]

У меня 7 делфи. А нет тогда какого то модуля или компонента, не зависящего от версии?

[eduard93]

На седьмой делфе должен железно работать код из DRKB. И из делфиворда вроде тоже.

[Человек_Борща]

У меня 7 делфи. А нет тогда какого то модуля или компонента, не зависящего от версии?

Разве что руками писать. Люд не будет править свои модули "на халяву" другим чтобы код пахал где угодно(разве что для себя любимых).

p.S.

А то знаю, загуглил, первую похожую ссылку кинул и нифига не пашет.

Если думать головой а не копипастом, то будет работать что угодно и где угодно


По теме:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure ExecConsoleApp(CommandLine: AnsiString; Output: TStringList; Errors:   
  TStringList);
var  
  sa: TSECURITYATTRIBUTES;   
  si: TSTARTUPINFO;   
  pi: TPROCESSINFORMATION;   
  hPipeOutputRead: THANDLE;   
  hPipeOutputWrite: THANDLE;   
  hPipeErrorsRead: THANDLE;   
  hPipeErrorsWrite: THANDLE;   
  Res, bTest: Boolean;   
  env: array[0..100] of Char;   
  szBuffer: array[0..256] of Char;
  dwNumberOfBytesRead: DWORD;   
  Stream: TMemoryStream;   
begin  
  sa.nLength := sizeof(sa);   
  sa.bInheritHandle := true;   
  sa.lpSecurityDescriptor := nil;   
  CreatePipe(hPipeOutputRead, hPipeOutputWrite, @sa, 0);   
  CreatePipe(hPipeErrorsRead, hPipeErrorsWrite, @sa, 0);   
  ZeroMemory(@env, SizeOf(env));   
  ZeroMemory(@si, SizeOf(si));   
  ZeroMemory(@pi, SizeOf(pi));   
  si.cb := SizeOf(si);   
  si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;   
  si.wShowWindow := SW_HIDE;
  si.hStdInput := 0;   
  si.hStdOutput := hPipeOutputWrite;   
  si.hStdError := hPipeErrorsWrite;   
    
  (* Remember that if you want to execute an app with no parameters you nil the  
     second parameter and use the first, you can also leave it as is with no  
     problems.                                                                 *)  
  Res := CreateProcess(nil, pchar(CommandLine), nil, nil, true,   
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, @env, nil, si, pi);   
    
  // Procedure will exit if CreateProcess fail   
  if not Res then  
  begin  
    CloseHandle(hPipeOutputRead);
    CloseHandle(hPipeOutputWrite);   
    CloseHandle(hPipeErrorsRead);   
    CloseHandle(hPipeErrorsWrite);   
    Exit;   
  end;   
  CloseHandle(hPipeOutputWrite);   
  CloseHandle(hPipeErrorsWrite);   
    
  //Read output pipe   
  Stream := TMemoryStream.Create;   
  try  
    while true do  
    begin  
      bTest := ReadFile(hPipeOutputRead, szBuffer, 256, dwNumberOfBytesRead,
        nil);   
      if not bTest then  
      begin  
        break;   
      end;   
      Stream.Write(szBuffer, dwNumberOfBytesRead);   
    end;   
    Stream.Position := 0;   
    Output.LoadFromStream(Stream);   
  finally  
    Stream.Free;   
  end;   
    
  //Read error pipe
  Stream := TMemoryStream.Create;   
  try  
    while true do  
    begin  
      bTest := ReadFile(hPipeErrorsRead, szBuffer, 256, dwNumberOfBytesRead,   
        nil);   
      if not bTest then  
      begin  
        break;   
      end;   
      Stream.Write(szBuffer, dwNumberOfBytesRead);   
    end;   
    Stream.Position := 0;   
    Errors.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;

  WaitForSingleObject(pi.hProcess, INFINITE);
  CloseHandle(pi.hProcess);
  CloseHandle(hPipeOutputRead);
  CloseHandle(hPipeErrorsRead);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  OutP: TStringList;
  ErrorP: TStringList;
begin
  OutP := TStringList.Create;
  ErrorP := TstringList.Create;

  ExecConsoleApp('cmd.exe', OutP, ErrorP);
  Memo1.Lines.Assign(OutP);

  OutP.Free;
  ErrorP.Free;
end;

end.

d7,d2010 работает.

[JTG]

какого то модуля или компонента

В JEDI есть TJvCreateProcess.onRead/onRawRead

http://programmersforum.ru/showthrea...916#post332916

[Simply-Art]

Сообщение от Человек_Борща

...
d7,d2010 работает.

Спасибо, код то-что надо было, всё работает отлично!