VPF::Получения вывода консоли - Форум программистов

WolfON

Дата 17.5.2006, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 604
Регистрация: 19.7.2004

Репутация: нет
Всего: 8

Все никак не могу получать то, что пишет запущенная в консоли делфей.
Особенно разочаровался узнав, что пример из drkb не пашет.

ЗЫЖ нужно обязательно динамически получать - по пуступлении новых строк вывода

_hunter

Дата 17.5.2006, 17:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

что за программа в чем именно проблема?

--------------------

Tempora mutantur, et nos mutamur in illis...

WolfON

Дата 17.5.2006, 20:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 604
Регистрация: 19.7.2004

Репутация: нет
Всего: 8

любая, скажем ping =)
надо получить своей программой в дельфе, что напишет в консоль вызванный пинг

Yanis

Дата 17.5.2006, 21:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

В примере из DRKB как раз ping и показан.

--------------------

*щёлк*

WolfON

Дата 17.5.2006, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 604
Регистрация: 19.7.2004

Репутация: нет
Всего: 8

Но он не работает =)

_hunter

Дата 18.5.2006, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

ты его, явно, не правильно используеш.
+ покопаться в коде и определить что именно "не работает" слабо?

--------------------

Tempora mutantur, et nos mutamur in illis...

x77

Дата 19.5.2006, 00:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

у меня он тоже глючил, и я что-то переделывал, но сейчас, глядя на свои исходники, разницы не вижу:

Код


unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure RunInMemo (Cmd: string; Memo: TCustomMemo; RefreshTime: integer);
const
  bufsize = 2000;
var
  sa: TSecurityAttributes;
  si: TStartupInfo;
  pi: TProcessInformation;
  rp, wp: THandle;
  buf: pchar;
  ec: dword;
  bread: dword;
begin
  with sa do begin
    nLength := SizeOf (TSecurityAttributes);
    bInheritHandle := TRUE;
    lpSecurityDescriptor := nil;
  end;
  if CreatePipe (rp, wp, @sa, 0) then begin
    FillChar (si, SizeOf (TStartupInfo), #0);
    with si do begin
      cb := SizeOf (si);
      hStdInput := rp;
      hStdOutput := wp;
      dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
      wShowWindow := SW_HIDE;
    end;
    buf := AllocMem (bufsize + 1);
    try
      if CreateProcess (nil, pchar (Cmd), @sa, @sa, TRUE, NORMAL_PRIORITY_CLASS, nil, nil, si, pi) then begin
        repeat
          ec := WaitForSingleObject (pi.hProcess, RefreshTime);
          ReadFile (rp, buf [0], bufsize, bread, nil);
          buf [bread] := #0;
          OemToAnsi (buf, buf);
          Memo.Text := Memo.Text + string (buf);
          Application.ProcessMessages;
        until ec <> WAIT_TIMEOUT;
      end;
    finally
      FreeMem (buf);
      CloseHandle(pi.hProcess);
      CloseHandle(pi.hThread);
      CloseHandle(rp);
      CloseHandle(wp);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RunInMemo (Edit1.Text, Memo1, 100);
end;

end.

по сравнению с вариантом Song'а добавлен RefreshInterval.

единственное что, задержку перед чтением из канализации можно и нужно варьировать, одни и те же проги у меня лично глючат при определённых значениях RefreshInterval, который в drkb задан жёстко (соотв. некоторые проги глючат перманентно).

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »