Штрих-код

memo1.Lines.Add(GetDosOutput(dir+'zbarimg.exe', 'grab.bmp'));

procedure TForm1.Timer1Timer(Sender: TObject);
var b: tbitmap;
    dir: pansichar;
begin
 timer1.Enabled:= false;
 dir:= pansichar(extractfilepath(paramstr(0)));
 
 // граб кадра с устройства видеозахвата
 b:= TBitmap.Create;
 SampleGrabber.GetBitmap(b);
 b.SaveToFile('grab.bmp');
 b.Free;
 
 // запуск консоли и перехват через Pipes
 if fileexists('grab.bmp') then
//  memo1.Text:= GetDosOutput(dir+'zbarimg.exe', 'grab.bmp');
    memo1.Lines.Add('-------***--------');
    memo1.Lines.Add(GetDosOutput(dir+'zbarimg.exe', 'grab.bmp'));
    memo1.Lines.Add('-------***--------');
 timer1.Enabled:= true
end;

dir:= pansichar('c:\cam\');

GetDosOutput(dir+'zbarimg.exe', 'grab.png'))

function StrOemToAnsi(const S: AnsiString): AnsiString;   //   Из Oem в Ansi
begin
  SetLength(Result, Length(S));
  OemToAnsiBuff(@S[1], @Result[1], Length(S));
end;

    memo1.Lines.Add(StrOemToAnsi (GetDosOutput(dir+'zbarimg.exe', 'grab.bmp')));