shibie

var
  mStream: TMemoryStream;
  vcode: array[..] of AnsiChar;
  buffer: array of AnsiChar;
begin
  mStream := TMemoryStream.Create;
  mStream.LoadFromFile('1.png');

  //GetMem(vcode, 50);
  ShowMessage('');
  SetLength(buffer, mStream.Size);
  mStream.Position := ;
  ShowMessage('');
  mStream.ReadBuffer(buffer[], mStream.Size);
  ShowMessage('');

  //if GetCodeText(buffer, mStream.Size, '输入前4位图像校验码', vcode) then               //第一种
  if GetCodeText(Integer(@buffer[]), mStream.Size, '输入前4位图像校验码', vcode) then    //第二种
    Edit1.Text := Format('识别成功：%s', [string(vcode)])
  else
    Edit1.Text := '识别失败';
  ShowMessage('');

  mStream.Free;
end;