VPF::кусок из дркб - Форум программистов

kuzyara

Дата 29.1.2008, 07:47 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


procedure ExecCmdine(const CmdLine: string; CmdResult: TStrings); 
var 
  Output: PIOFile; 
  Buffer: PChar; 
  TempString: string; 
  Line: string; 
  BytesRead: Integer; 

const 
  BufferSize: Integer = 1000; 

begin 
  Output := popen(PChar(CmdLine), 'r'); 
  GetMem(Buffer, BufferSize); 
  if Assigned(Output) then 
  try 
    while feof(Output) = 0 do 
    begin 
      BytesRead := Libc.fread(Buffer, 1, BufferSize, Output); 
      SetLength(TempString, Length(TempString)+BytesRead); 
      memcpy(@TempString[length(TempString)-(BytesRead-1)], Buffer, BytesRead); 
      while Pos(#10, TempString) > 0 do 
      begin 
        Line := Copy(TempString, 1, Pos(#10, TempString)-1); 
        if CmdResult<>nil then CmdResult.Add(Line); 
        TempString := copy(TempString, Pos(#10, TempString)+1, Length(TempString)); 
      end; 
    end; 
  finally 
    Libc.pclose(output); 
    wait(nil); 
    FreeMem(Buffer,BufferSize); 
  end; 
end;

Что за piofile, popen, pclose? Что нужно сделать, чтобы это заработало?

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

подпись

gambit

Дата 29.1.2008, 09:05 (ссылка)

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

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

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

Я чет такой код в вкли не нашел. Где он???

Olegan

Дата 29.1.2008, 09:30 (ссылка)

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

Загрузка ...

Крутой сисадмин

Профиль
Группа: Завсегдатай
Сообщений: 752
Регистрация: 15.5.2007

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

Может ошибаюсь, но кто-то писал к этому коду свой модуль, а потом подключал его в uses.
Может ты что-то упустил и там еще что-то есть?
А как там это все называется?

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

Цитата(Mayk @ 18.6.2008, 14:29

)

/me объявляет Olegan врагом народа

Цитата(gta4kv @ 20.6.2008, 22:01

)

/me объявляет Olegan врагом народа во второй раз

Цитата(localhost @ 15.6.2009, 08:45

)

/me объявляет Olegan врагом народа в третий раз

volvo877

Дата 29.1.2008, 09:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(Olegan @ 29.1.2008, 08:30

)

А как там это все называется?

Kylix -> Как запустить консольное приложение и перехватить вывод? там это называется...

Frees

Дата 29.1.2008, 09:57 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

в дркб есть другая статья на ту же тему там код работоспособен
Статья: " Как вывести результат работы консоли в Memo?"

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

Кольцов Виктор Владимирович

kuzyara

Дата 29.1.2008, 13:51 (ссылка)

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

Загрузка ...

Бывалый

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

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

упс, извините, не заметил, что это для kylix.

спасибо Frees

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

подпись

w2w

Дата 17.11.2008, 08:03 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(kuzyara @ 29.1.2008, 07:47)

Что за piofile, popen, pclose? Что нужно сделать, чтобы это заработало?

Прежде чем писать такие приложения необходимо ознакомиться с теоретической частью. Начинать с примера это (имхо) не совсем верно, типо как учиться бегать не научившись стоять.

piofile, popen, pclose - это функции работы с каналами как с файловыми потоками. Идея следующая - используется функция попен, для запуска приложения и подключения к его стандартному выходу. Далее производится чтение из созданного канала в буфер и из буфера в строку. Визуально- код должен быть рабочим. Какие ошибки пишет? Подключили ли в uses модуль Libc?

Это сообщение отредактировал(а) w2w - 17.11.2008, 08:05

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