VPF::Вопрос по CMD - Форум программистов

elestrago

Дата 26.4.2008, 07:46 (ссылка)

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

Загрузка ...

Шустрый

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

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

нашел пару примерчиков в дркб которые позволяют общятся с командной строкой...

вот один из них

Код


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;

но тут у меня возникла проблема

[Error] Unit1.pas(27): Undeclared identifier: 'PIOFile'
[Error] Unit1.pas(35): Undeclared identifier: 'popen'
[Error] Unit1.pas(41): Undeclared identifier: 'Libc'
[Error] Unit1.pas(43): Undeclared identifier: 'memcpy'

не как не могу найти зависимости....

помогите решить проблему или подкиньте нормальный примерчик для ввода вывода в CMD

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

Rrader

Дата 26.4.2008, 08:21 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Это же код Kylix!

Посмотри здесь, может поможет smile

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

Let's do this quickly!
Rest in peace, Vit!

elestrago

Дата 26.4.2008, 08:28 (ссылка)

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

Загрузка ...

Шустрый

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

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

спасиба

щас гляну

Добавлено через 11 минут и 1 секунду
не примерчик плоховат... работает "еле ноги передвигает" и иногда вообще не работает....

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

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