[Delphi] ReadFile>ReadLine

[MOZGIII]

Нужна функция, чтобы конвертировать потокоые данные из функции ReadFile() в строки.
Запуск предполагается в цикле, поэтому функция должна быть примерно такой:

Код: Выделить всё

function ReadLineFromStdOut(hStdOut: Cardinal; var line: string): boolean;

Сам бьюсь над этим уже 3-й день, ничего не выходит. Тоесть выходит, но не то что нужно... :(

Примерно так нужно будет её использовать:

Код: Выделить всё

while true do
  begin
     if ReadLineFromStdOut(hStdOut, curr_line) then
        if curr_line='Enter passkey: ' then MyWriteToStdIn(hStdIn, 'yourPass');
  end;

[$t@t!c_V()1D]

А классические assign, readln, writeln, close ?

[MOZGIII]

Как их настроить на чтение потока из пайпа?

[$t@t!c_V()1D]

Ах вон оно что =) . Я не в курсе. А для чего тебе? Сделай лучше батником ввод данных.

Добавлено спустя 9 минут 43 секунды:
Может это: http://sources.ru/cpp/using_anonymous_pipes.shtml ?

[MOZGIII]

Батником не канает...
А насчёт примера - опять С++ :(... :)

[$t@t!c_V()1D]

Ну,так тебе-то что надо?

Код: Выделить всё

PeekNamedPipe(read_stdout,buf,1023,&bread,&avail,NULL);

    //Проверяем, есть ли данные для чтения в stdout

    if (bread != 0)
    {
      bzero(buf);
      if (avail > 1023)
      {
        while (bread >= 1023)
        {
          ReadFile(read_stdout,buf,1023,&bread,NULL);  //читаем из
                                                       // пайпа stdout
          printf("%s",buf);
          bzero(buf);
        }
      }

      else {
        ReadFile(read_stdout,buf,1023,&bread,NULL);
        printf("%s",buf);
      }
    }

Добавлено спустя 2 минуты 17 секунд:
И зайди в асю

Добавлено спустя 2 минуты 31 секунду:
Хотя...нужно всё

[MOZGIII]

Нет, там просто пример захвата приложения :) А мне ужно чтобы из хваченного пайпа выделять именно по 1 строке. А там нефильтровано по 1023 символа...

Добавлено спустя 1 минуту 16 секунд:
$t@t!c_V()1D
я в асе О_о

[$t@t!c_V()1D]

Так ты смотри #13 и #10

[MOZGIII]

Не понял чего-то я... Где #10 и #13? У меня появилась идея читать по одному символу и добавлять их в строку пока какой-нибудь не будет равен #10... Но что-то я неуверен... Как это скажется на производительности кода, есть мысли? Просто у меня сейчас используется огромная функция, портированная из С++ с mignw'овским "наречием". Так вот, строки она составляет нормально но не завершает свою работу после прочтения одной строки, а продолжает считывать и разбивать строки не присваивая var-переменной значение одной строки... Кароче в бескнечный while уходит... И на каком этапе из него выходить непонятно, т.к. функция использует свою же память для заготовок слеующего парсинга, что хитро и изменению не поддаётся... Хотяяяя... :) Кажется это я туплю.... ;)

[$t@t!c_V()1D]

Ну, то же самое, что и Chr(13) Chr(10) - возврат каретки и переход на новую строку. Парсить до этих символов и всё - вот тебе и строка ;)

[MOZGIII]

У меня всё заработало, вопрос снят :)