- Код: Выделить всё
cut -b0- check.txt > /dev/ttyS0
Использую TProcessUTF8
- Код: Выделить всё
TheProcess := TProcessUTF8.Create(nil);
try
TheProcess.Options := [poUsePipes, poNoConsole, poStdErrToOutput];
TheProcess.ShowWindow := swoNone;
TheProcess.CommandLine:='cut -b0- check.txt > /dev/ttyS0';
try
TheProcess.Execute;
TheProcess.WaitOnExit;
if TheProcess.ExitStatus <> 0 then
begin
MessageDlg('Error', 'Check print error', mtError,[mbCancel],0);
end;
finally
TheProcess.Free;
end;
except
on E: Exception do
begin
ShowMessage(e.Message);
end;
end;
Запускал прогу из-под root и простого пользователя - ошибка 'Check print error'. Простое копирование 'cp check.txt check2.txt' работает, а 'cat check.txt > check2.txt' нет. Подозреваю, что вся проблема с ">" и sudo.
Вопрос. Как мне напечатать файл? Возможно есть другие способы работы с таким принтером?
Спасибо.
lazarus 0.9.27 r17945 gtk2