выполнение cmd команды и получение рез-та в memo

[Kostia]

Хм, у меня все прет. Delphi 7 ,Vista.

Memo1.Clear;
RunDosInMemo('ipconfig /all', Memo1);

Все по русски)))

Как вариант поменять OemToAnsi, на OemToChar

[ziztracer]

[DCC Error] Unit1.pas(89): E2010 Incompatible types: 'Char' and 'AnsiChar'
такая вот ошибка
на оемто чар заменил нифига(
ошибка на
OemToansi(Buffer, Buffer);
bufferchar;

[ziztracer]

фак, двоеточие+p
заменяеться на смайлик)

[bitSoft]

Сообщение от ziztracer

[DCC Error] Unit1.pas(89): E2010 Incompatible types: 'Char' and 'AnsiChar'
такая вот ошибка
на оемто чар заменил нифига(
ошибка на
OemToansi(Buffer, Buffer);
bufferchar;

ne

buffer  : Char;

a

buffer : AnsiChar;

[ziztracer]

[DCC Error] Unit1.pas(64): E2010 Incompatible types: 'AnsiChar' and 'Pointer'
Buffer := AllocMem(ReadBuffer + 1);

bitsoft, теперь тут ошибка

[serjthurams]

Сообщение от Яр|/||< (^_^)

ziztracer я вас понимаю у меня таже самая проблема, тока с компилятором и все 3 кода не работают

В 2010 версии Delphi. По другому типы нужно привести. У меня Delphi 7.

unit Unit1;

interface

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

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

  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure RunDosInMemo(CmdLine: string; AMemo: TMemo);
const
  ReadBuffer = 2400;
var
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  start: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: Pchar;
  BytesRead: DWord;
  Apprunning: DWord;
begin
  Screen.Cursor := CrHourGlass;
  Form1.Button1.Enabled := False;
  with Security do
  begin
    nlength := SizeOf(TSecurityAttributes);
    binherithandle := true;
    lpsecuritydescriptor := nil;
  end;
  if Createpipe(ReadPipe, WritePipe,
    @Security, 0) then
  begin
    Buffer := AllocMem(ReadBuffer + 1);
    FillChar(Start, Sizeof(Start), #0);
    start.cb := SizeOf(start);
    start.hStdOutput := WritePipe;
    start.hStdInput := ReadPipe;
    start.dwFlags := STARTF_USESTDHANDLES +
      STARTF_USESHOWWINDOW;
    start.wShowWindow := SW_HIDE;

    if CreateProcess(nil,
      PChar(CmdLine),
      @Security,
      @Security,
      true,
      NORMAL_PRIORITY_CLASS,
      nil,
      nil,
      start,
      ProcessInfo) then
    begin
      repeat
        Apprunning := WaitForSingleObject
          (ProcessInfo.hProcess, 100);
        ReadFile(ReadPipe, Buffer[0],
          ReadBuffer, BytesRead, nil);
        Buffer[BytesRead] := #0;
        OemToAnsi(Buffer, Buffer);
        AMemo.Text := AMemo.text + string(Buffer);

        Application.ProcessMessages;
      until (Apprunning <> WAIT_TIMEOUT);
    end;
    FreeMem(Buffer);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ReadPipe);
    CloseHandle(WritePipe);
  end;
  Screen.Cursor := CrDefault;
  Form1.Button1.Enabled := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyFirstThread: TMyThread;
begin
  MyFirstThread := TMyThread.Create(False);
  MyFirstThread.Priority := tpLower;
end;


procedure TMyThread.Execute;
begin
  Form1.Memo1.Clear;
  RunDosInMemo(Form1.Edit1.Text, Form1.Memo1);
end;



end.

[min@y™]

на вид мне нравиться)

после появления этой фразы в интернетах в мире и его окресностях совершили суицид 4 училки русского языка.

не прёт(
насчёт кодировок, как это исправить
у меня в мемо фигня выводиться какаято(

короче, ты даже не пытаешься понять, что этот код делает и как?
печально...
Но если ты начнёшь хотя бы искать инфу по работе с пайпами, то не всё ещё потеряно.

[Iron Monk]

Сообщение от min@y™

после появления этой фразы в интернетах в мире и его окресностях совершили суицид 4 училки русского языка.

короче, ты даже не пытаешься понять, что этот код делает и как?
печально...
Но если ты начнёшь хотя бы искать инфу по работе с пайпами, то не всё ещё потеряно.

Некропостеры... Бя...