Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

Ответ
 
Опции темы
Старый 21.08.2009, 12:21   #1
Consol
Форумчанин
 
Регистрация: 19.08.2009
Сообщений: 89
Репутация: 18
По умолчанию не читает результат работы консольной программы

есть вот такой код но почему то результат консольной программы не читает что сделано не так???
Код:

procedure TForm1.Button1Click(Sender: TObject);
var ZapisanoBytes : Cardinal;
    readpipe,writepipe: Thandle;
    Security: TSecurityAttributes;
    str:string;
    start: TStartUpInfo;
    ProcessInfo: TProcessInformation;
 
begin
 
with Security do
  begin
    nlength := SizeOf(TSecurityAttributes);
    binherithandle := true;
    lpsecuritydescriptor := nil;
  end;
if CreatePipe(readPipe,writepipe,@Security,0) then
 begin
    FillChar(Start, Sizeof(Start), #0);
    start.cb := SizeOf(start);
    start.hStdOutput := WritePipe;
    start.hStdInput := ReadPipe;
    start.dwFlags := STARTF_USESTDHANDLES +
    STARTF_USESHOWWINDOW;
    start.wShowWindow := SW_show;
 
 end;
 ShowMessage('da');
if CreateProcess(nil,
      'c:\cons.exe',
      @Security,
      @Security,
      true,
      NORMAL_PRIORITY_CLASS,
      nil,
      nil,
      start,
      ProcessInfo) then
    begin
 
      ShowMessage('da2');
      ReadFile(readpipe, str, Length(str), ZapisanoBytes, Nil);
      Memo1.Text:=str;
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);
      CloseHandle(ReadPipe);
      CloseHandle(WritePipe);
    end;
 
end;

Consol вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Остановление работы программы. extrimportal Общие вопросы Delphi 11 23.04.2009 12:09
Как вывести результат работы php скрипта eldar Работа с сетью в Delphi 21 08.08.2008 14:16
Сохранение в файл работы программы devi409 Общие вопросы Delphi 12 29.04.2008 08:56
Проверка работы программы... DimkinStd Общие вопросы Delphi 3 26.12.2006 14:24




00:06.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru