Languages

27 03 2016

Download file from Sharepoint

using Microsoft.SharePoint.Client;
...
static void Main(string[] args)
{
   string kometDir = Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location);
   IniFile ini = new IniFile(kometDir + "\\komet.conf");
   string cContext = ini.IniReadValue("common", "context", "http://localhost/man/doc/");
   string domain = ini.IniReadValue("common", "domain", "sap.sd");
   string user = ini.IniReadValue("common", "user", "wwwsapsd");
   string passwd = ini.IniReadValue("common", "passwd", "12345678");
   var context = new ClientContext("http://localhost/man/doc/");
   context.Credentials = new NetworkCredential(user, passwd, domain);
   Uri filename = new Uri("http://localhost/man/doc/DocLib11/2016/Jan 2016/GKK 26.01.xlsx");
   string serverrelative = filename.AbsolutePath;
   Microsoft.SharePoint.Client.File file = context.Web.GetFileByServerRelativeUrl(serverrelative);
   context.Load(file);
   ClientResult streamResult = file.OpenBinaryStream();
   context.ExecuteQuery();
   var fileName = @"C:\downloaded.xlsx";
   var fileStream = System.IO.File.Create(fileName);
   streamResult.Value.CopyTo(fileStream);
}

using Microsoft.SharePoint.Client;

...

static void Main(string[] args)

{

string kometDir = Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location);

IniFile ini = new IniFile(kometDir + "\\komet.conf");

string cContext = ini.IniReadValue("common", "context", "http://localhost/man/doc/");

string domain = ini.IniReadValue("common", "domain", "sap.sd");

string user = ini.IniReadValue("common", "user", "wwwsapsd");

string passwd = ini.IniReadValue("common", "passwd", "12345678");

var context = new ClientContext("http://localhost/man/doc/");

context.Credentials = new NetworkCredential(user, passwd, domain);

Uri filename = new Uri("http://localhost/man/doc/DocLib11/2016/Jan 2016/GKK 26.01.xlsx");

string serverrelative = filename.AbsolutePath;

Microsoft.SharePoint.Client.File file = context.Web.GetFileByServerRelativeUrl(serverrelative);

context.Load(file);

ClientResult streamResult = file.OpenBinaryStream();

context.ExecuteQuery();

var fileName = @"C:\downloaded.xlsx";

var fileStream = System.IO.File.Create(fileName);

streamResult.Value.CopyTo(fileStream);

}

25 11 2015

Убихуа (五笔画) – китайский способ ввода

Uchla Languages "вубихуа", "Линии Убайхуа", Chinese, Вубайхуа 0

Убихуа, так же известный как “китайская пятистрочная” – это очень популярный способ ввода китайских иероглифов. Способ основан на порядке черт в каждом иероглифе.
Несмотря на то, что данным способом можно набирать и традиционные символы, убихуа чаще связывают с упрощенным китайским.
Убихуа не стоит путать с Уби (wubi), так же широко распространенным способом ввода китайских символов.
wubihua
Кнопки от 1 до 5 сопоставлены определенным чертам (схоже с “Восемью принципами иероглифа юн”):
Кнопка 1 – для горизонтальных черт (一)

По мере ввода отображаются предлагаемые китайские символы (наиболее часто используемые символы появляются первыми).
2 – для вертикальных черт (丨)

Если Вы не уверены в правильности символа, введите звездочку (*)
3 – для черт cверху-вниз справа-налево “левый нисходящий” (丿)

Для просмотра дополнительных вариантов введите еще один штрих или прокрутите список символов.
4 – для точек и черт сверху-вниз слева-направо “правый нисходящий” (丶)

5 – для всех остальных черт (обозначается, как 乙)

Чтобы ввести любой символ, просто нажимайте на клавиши, соответствующую первым четырем чертам и клавишу, соответствующую последней черте иероглифа.
Для символов из четырех или менее черт, нажмите 0 после последнего символа.
Наиболее часто используемые иероглифы будут предлагаться первыми.
wibihua_keymap
Убихуа – один из самых легких способов ввода, так как он прост и не требует знания Пиньинь или звучания иероглифа, но, в то же время при использовании Убихуа могут предлагаться десятки и сотни символов.
P.S. Таблица часто используемых ключей (радикалов) для убихуа:
wubihua-radical

14 12 2014

Создаем Drupal-страницы из C# (XML-RPC "node.save")

Uchla Languages C#, drupal, XML-RPC 7

В данном способе создания нод будут использоваться модули Key Authentication, XMLRPC Server, Node Service и User Service из решения Drupal Services 6.x-2.2 (выбрал 6.x-2.2 как наиболее безглючную)
Подключаем их, далее идем в панели Administer › Site building › Services Administer › Site building › Services, жмем “Создать ключ”, задаем название, указываем что-нибудь в поле “Allowed domain” и выбираем разрешенные методы – в моем случае это system.connect, user.login и node.save. В настройках модуля Services выбираем тип авторизации – “Key Authentication”.
Скачиваем библиотеку XML-RPC.NET, компилим ее и добавляем в ссылки проекта VS2008 файл CookComputing.XmlRpcV2.dll, в using добавляем CookComputing.XmlRpc и System.Security.Cryptography.
Внутри класса добавляем:

        [XmlRpcMissingMapping(MappingAction.Ignore)]
        public struct DrupalUser
        {
            public string name;
            public string email;
        }
        public struct Drupal
        {
            public string sessid;
            public DrupalUser user;
        }
        [XmlRpcUrl("http://sap.sd/services/xmlrpc")]
        public interface IServiceSystem : IXmlRpcProxy
        {
            [XmlRpcMethod("node.save")]
            string NodeSave(string hash, string domain_name, string domain_time_stamp,
                string nonce, string sessid, XmlRpcStruct node);
            [XmlRpcMethod("system.connect")]
            Drupal Connect();
            [XmlRpcMethod("user.login")]
            Drupal Login(string hash, string timestamp, string domain, string nonce,
                string sessid, string username, string password);
        }

[XmlRpcMissingMapping(MappingAction.Ignore)]

public struct DrupalUser

{

public string name;

public string email;

}

public struct Drupal

{

public string sessid;

public DrupalUser user;

}

[XmlRpcUrl("http://sap.sd/services/xmlrpc")]

public interface IServiceSystem : IXmlRpcProxy

{

[XmlRpcMethod("node.save")]

string NodeSave(string hash, string domain_name, string domain_time_stamp,

string nonce, string sessid, XmlRpcStruct node);

[XmlRpcMethod("system.connect")]

Drupal Connect();

[XmlRpcMethod("user.login")]

Drupal Login(string hash, string timestamp, string domain, string nonce,

string sessid, string username, string password);

}

Создание ноды будем производить, скажем, по нажатию кнопки, обработчик будет такой:

        private void button1_Click(object sender, EventArgs e)
        {
            IServiceSystem iss = XmlRpcProxyGen.Create();
            Drupal cnct = iss.Connect(); // сначала выполняем подключение
            string timestamp = GetUnixTimestamp();
            string nonce = GetNonce(10);
            string domain = "domain";
            string key = "s5741111141bbe123b211e77ccf4ca304";
            // api key берем созданный нами на сайте
            StringBuilder sb = new StringBuilder();
            sb.Append(timestamp);
            sb.Append(";");
            sb.Append(domain);
            sb.Append(";");
            sb.Append(nonce);
            sb.Append(";");
            sb.Append("user.login");
            string hash = GetHMAC(sb.ToString(), key);
            Drupal lgn = iss.Login(hash, domain, timestamp, nonce, cnct.sessid, "мой_логин", "мой_пароль");
            // выполняем вход, используя полученный ранее cnct.sessid
            // теперь подготавливаем материал к постингу (тип - "Страница")
            var saveData = new XmlRpcStruct();
            saveData["title"] = "Первая страница!";
            saveData["body"] = "Некоторый текст";
            saveData["field_tseloe"] = 1; // CCK поле
            saveData["type"] = "page"; // или свой тип
            nonce = GetNonce(10);
            hash = GetHMAC(timestamp + ";" + domain + ";" + nonce + ";node.save", key);
            iss.NodeSave(hash, domain, timestamp, nonce, lgn.sessid, saveData);
        }

private void button1_Click(object sender, EventArgs e)

{

IServiceSystem iss = XmlRpcProxyGen.Create();

Drupal cnct = iss.Connect(); // сначала выполняем подключение

string timestamp = GetUnixTimestamp();

string nonce = GetNonce(10);

string domain = "domain";

string key = "s5741111141bbe123b211e77ccf4ca304";

// api key берем созданный нами на сайте

StringBuilder sb = new StringBuilder();

sb.Append(timestamp);

sb.Append(";");

sb.Append(domain);

sb.Append(";");

sb.Append(nonce);

sb.Append(";");

sb.Append("user.login");

string hash = GetHMAC(sb.ToString(), key);

Drupal lgn = iss.Login(hash, domain, timestamp, nonce, cnct.sessid, "мой_логин", "мой_пароль");

// выполняем вход, используя полученный ранее cnct.sessid

// теперь подготавливаем материал к постингу (тип - "Страница")

var saveData = new XmlRpcStruct();

saveData["title"] = "Первая страница!";

saveData["body"] = "Некоторый текст";

saveData["field_tseloe"] = 1; // CCK поле

saveData["type"] = "page"; // или свой тип

nonce = GetNonce(10);

hash = GetHMAC(timestamp + ";" + domain + ";" + nonce + ";node.save", key);

iss.NodeSave(hash, domain, timestamp, nonce, lgn.sessid, saveData);

}

Дополнительные функции:

Expand

        public string GetUnixTimestamp()
        {
            TimeSpan ts = (DateTime.UtcNow - new DateTime(1970, 1, 1, 0, 0, 0));
            return Convert.ToString(Convert.ToUInt64(ts.TotalSeconds));
        }
        // Similar to the 'user_password' function Drupal uses.
        public string GetNonce(int length)
        {
            string allowedCharacters = "abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ23456789";
            StringBuilder password = new StringBuilder();
            Random rand = new Random();
            for (int i = 0; i &lt; length; i++)
            {
                password.Append(allowedCharacters[rand.Next(0, (allowedCharacters.Length - 1))]);
            }
            return password.ToString();
        }
        // вычисление SHA256
        public string GetHMAC(string message, string key)
        {
            System.Text.ASCIIEncoding encoding = new System.Text.ASCIIEncoding();
            byte[] keyByte = encoding.GetBytes(key);
            byte[] messageByte = encoding.GetBytes(message);
            HMACSHA256 hmac = new HMACSHA256(keyByte);
            byte[] hashMessageByte = hmac.ComputeHash(messageByte);
            string sbinary = String.Empty;
            for (int i = 0; i &lt; hashMessageByte.Length; i++)
            {
                // Converting to hex, but using lowercase &#039;x&#039; to get lowercase characters
                sbinary += hashMessageByte[i].ToString(&quot;x2&quot;);
            }
            return sbinary;
        }

public string GetUnixTimestamp()

{

TimeSpan ts = (DateTime.UtcNow - new DateTime(1970, 1, 1, 0, 0, 0));

return Convert.ToString(Convert.ToUInt64(ts.TotalSeconds));

}

// Similar to the 'user_password' function Drupal uses.

public string GetNonce(int length)

{

string allowedCharacters = "abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ23456789";

StringBuilder password = new StringBuilder();

Random rand = new Random();

for (int i = 0; i < length; i++)

{

password.Append(allowedCharacters[rand.Next(0, (allowedCharacters.Length - 1))]);

}

return password.ToString();

}

// вычисление SHA256

public string GetHMAC(string message, string key)

{

System.Text.ASCIIEncoding encoding = new System.Text.ASCIIEncoding();

byte[] keyByte = encoding.GetBytes(key);

byte[] messageByte = encoding.GetBytes(message);

HMACSHA256 hmac = new HMACSHA256(keyByte);

byte[] hashMessageByte = hmac.ComputeHash(messageByte);

string sbinary = String.Empty;

for (int i = 0; i < hashMessageByte.Length; i++)

{

// Converting to hex, but using lowercase 'x' to get lowercase characters

sbinary += hashMessageByte[i].ToString("x2");

}

return sbinary;

}

[collapse]

Из-за string CCK-полей VS у меня ругалась “Response from server does not contain valid xml” и “Существует несколько корневых элементов” (“There are multiple root elements”). Fiddler показал ошибку “Cannot unset string offsets”:
fiddler

Исправил применением патча

- unset($items[$field['field_name'] .'_add_more']);
+ if (is_array($items)) {
+ if(!empty($items[$field['field_name'] .'_add_more'])) {
+ unset($items[$field['field_name'] .'_add_more']);
+ }
+ }

- unset($items[$field['field_name'] .'_add_more']);

+ if (is_array($items)) {

+ if(!empty($items[$field['field_name'] .'_add_more'])) {

+ unset($items[$field['field_name'] .'_add_more']);

+ }

к файлу /sites/all/modules/cck/includes/content.node_form.inc
P.S.
В случае проблем с CCK-полями советую использовать библиотеку DrupalXmlRpc.NET, скопировал ее и пример использования сюда:

DrupalXmlRpc.NET_Demo

MolineSoftware.DrupalXmlRpc_V2.0 , можете скачать.
Объявляйте-добавляйте в CustomNode.cs свои CCK-поля:

[XmlRpcMember(Member = "ma_CCK_field")]
public XmlRpcStruct[] MaCCK_ImportntDatta { get; set; }
// но для Path тип - string:
[XmlRpcMember(Member = "path")]
public string Path_URLalias { get; set; }

[XmlRpcMember(Member = "ma_CCK_field")]

public XmlRpcStruct[] MaCCK_ImportntDatta { get; set; }

// но для Path тип - string:

[XmlRpcMember(Member = "path")]

public string Path_URLalias { get; set; }

Скачать проект Visual Studio 2008: drU-XRPC.cab
Also, см. Постим из Delphi в блог WordPress (XML-RPC)

20 05 2014

520 1314 = Я люблю тебя, всегда и навсегда!

Uchla Fun, Languages China, Chinese 0

Одним из замечательных аспектов китайского языка является тот факт, что некоторые числа звучат, как слова.
Обращали внимание почему такое огромное количество китайских сайтов в качестве адреса используют числа? Правильно – они что-нибудь да означают.
Вы можете использовать эту особенность не только в смс-переписке и в интернете, но даже показывая числа руками (как китайцы показывают числа руками – картинка прикреплена ниже).
Опишу несколько таких чисел
520
Звучит как “Я люблю тебя” (“woo are neen”/”wu er ling” похоже на 我爱你 / “wo ai ni” на мандаринском), как правило всегда с последующим 1314, ознчающее “от рождения до смерти” или “навсегда”. 520 1314 – Я люблю тебя навсегда! На кантонском диалекте 520 звучит как “нелегко получить”.
521 также используется, однако, конечно 520 распространено много больше.
Прошу также не забывать про порядок и быть осторожным при использовании, так как “250” используется, чтобы назвать кого-нибудь идиотом.
photoci
8
Цифра 8 известна, как счастливая в Китае. Почему? Потому, что произношение восьмерки ba (八) очень похоже на fa (发), что на китайском означает “богатство”, “разбогатеть”.
Когда китайцы выбирают телефонные номера, комбинации навроде 188 или 588 очень популярны, так как 188 (yi-ba-ba) звучит похоже на yao fa fa (要发发) (желаю разбогатеть), и 588 (wu-ba-ba) может читаться как wo fa fa (我发发) – “У меня целое состояние!”.
В противоположность – китайцы очень плохо относятся к цифре 4 (произносится si 四), что, как многим известно, обязательно напоминает слово si (死), означающее “смерть” на китайском. Например, в 28-этажном здании нет 4-го, 14-го или 24-го этажа.
А дарить, скажем 4 коробки шоколода или букет из 400 роз это, как говорится, big no-no! Вместо – лучше 8.
88
На китайском это звучит как “baa-baa”, что похоже на “bye-bye”.
Очень часто используется в переписке в чатах, в смс и т.д.
Полный список
ch-num

18 11 2013

Татарские слова арабского происхождения

Uchla Languages 1

Вы сможете ознакомиться с подборкой слов, которые встречаются как в арабском, так и в татарском языке. В основном, это слова арабского происхождения (арабизмы в татарском языке), но встречаются среди них слова персидского или тюркского происхождения. По сути – это русско-татарский словарь, который содержит на данный момент около 600 слов.
О соответствиях букв
Арабская буква ع в соответствующих татарских словах обычно передается буквой г, но иногда может обозначаться только гласной буквой. Сравните:
В татарском — гаскәри «военный»; в арабском — Ъаскари  عسكري «военный»
В татарском — акыл «разум»; в арабском — ЪаКль  عقل «разум»
Многие татарские слова образуются из слов арабского происхождения с присоединением характерных окончаний. Сравните:
мәкер – коварство
мәкерле – коварный
мәкерсез – не коварный, бесхитростный
Арабская буква ه в соответствующих татарских словах передается буквой h.
Буква «та марбута» (конечная буква – характерное окончание для слов женского рода) передаётся буквами ать или әт (звучит примерно как в арабском сопряжении). Сравните:
природа – табигать
природа Таби:Ъа طبيعة
природа этой страны Таби:Ъат-уль-била:д طبيعة البلد
любовь – мәхәббәт
любовь, привязанность муХабба   محبة
привязанность мужчины мухаббат-ур-раджуль  محبة الرجل
Арабская буква ب, если она последняя в родственном татарском слове – передается буквой п. Например:
«книга» по-татарски – китап
«книга» по-арабски –  кита:б  كتاب
Арабская буква د, если она последняя в родственном татарском слове, может передаваться буквой т. Например:
свидетель, очевидец – шаһит
свидетель, очевидец ша:hид شاهد
More

09 10 2012

ЧЯДНТ – Что я делаю не так?

Uchla Fun, Languages WORKSFORME, УМВР 2

Среди пользователей сети принято для выражения базовых понятий использовать систему сокращённых обозначений, ведь они уже стали частью культуры Интернета.
ЧЯДНТ – широко используемое выражение Интернет-сленга, аббревиатура от “Что я делаю не так?”
На англоязычных сайтах также используется WAIDW – “What Am I Doing Wrong?”
Обычно ЧЯДНТ встречается в конце длинного изложения как всё плохо или как всё хорошо и, как правило, употребляется в смысле, что как раз собеседник что-то делает не так.
“…
– Скайп не работает! Снова, наверно, сервера обновляют.
– У меня всё работает. ЧЯДНТ?
…”
“У меня всё работает” часто сокращают как УМВР.
chyadnt
Советуем не писать подобные сообщения людям старшего возраста и не забывать о том, что в устной речи такие слова звучат, как минимум, странно, а для вашей бабушки еще и устрашающе.
Существуют ещё десятки подобных сокращений, заменяющих собой длинные шаблонные фразы, почитаемые необходимыми в приличном разговоре.
P.S. Абсурдопедия говорит, что роман Льва Толстого “Война и мир” в переводе на интернет-аббревиатуры умещается на двух газетных разворотах и может быть прочитан менее чем за час.

11 04 2011

Перехват нажатия кнопки на сканере из NT-службы (C#, WIA)

Uchla Languages C# 72

Сканер HP G2710, точнее его ПО, не могло по нажатию кнопки отправлять изображение в общую сетевую папку, если пользователь не был залогинен в Windows (XP). Также сканирование “без вопросов, без окошек” требовалось для того, чтобы не отвлекать сотрудника, к чьему компьютеру был подключен сканер.

Скачать программу rooscan
версия 3.5 (06.02.13) | 1.2 Мб | stable

Программа rooscan представляет из себя NT-службу Windows XP и предназначена для перехвата нажатия кнопок сканера. Отсканированный файл будет сохранен в указанной папке (например, на сетевом ресурсе) в JPG или PDF-формате. Ведет краткий лог. Листинг основной части программы на C# приведен чуть ниже.
Перед запуском rooscan убедитесь, что у вас установлен .NET Framework 2.0, есть права администратора и выполните следующие действия:

Скачайте приложенный к этой записи файл и установите, например, в C:\Program Files\rooscan
Запустите оснастку управления службами (Пуск – Выполнить – services.msc), в списке дважды щелкните на службе rooscan, перейдите на вкладку “Вход в систему”, убедитесь, что выбран переключатель “Вход с системной учетной записью”. Однако, если вы работаете в домене, либо к папке сохранения нужны права доступа, то выберите переключатель “С учетной записью”, укажите здесь любой локальный или доменный аккаунт с достаточными правами доступа (особенно к сетевым папкам), например, “Администратор”, введите его пароль и нажмите “OK”, чтобы сохранить настройки.
Убедитесь, что сканер подключен и присутствует в системе. Уберите из автозагрузки программное обеспечение сканера (есть или нет – здесь вам может помочь msconfig)

Запустите и остановите службу rooscan. Все возможные идентификаторы событий от вашего сканера добавятся в конец файла rooscan.conf
(добавление к концу файла выглядеть будет приблизительно так)

[common]
outputDir=C:\Program Files\xerox\nwwia
...
[events]
{11238AEC-9202-4F84-B327-2C5BCF75B9D4}=Нажатие кнопки Сканировать
{C686DCEE-54F2-419E-9A27-2FC7F2E98F9E}=Нажатие кнопки Печатать
{A1C71B34-AA59-41F7-8F5E-ADDDC3987B6A}=Нажатие кнопки PDF
{A28BBADE-64B6-11D2-A231-00C04FA31809}=Device connected
{143E4E83-6497-11D2-A231-00C04FA31809}=Device disconnected
{B6451B34-AA59-41F7-8F5E-AD2DC3987B4C}=Scan from Windows Service...

[common]

outputDir=C:\Program Files\xerox\nwwia

...

[events]

{11238AEC-9202-4F84-B327-2C5BCF75B9D4}=Нажатие кнопки Сканировать

{C686DCEE-54F2-419E-9A27-2FC7F2E98F9E}=Нажатие кнопки Печатать

{A1C71B34-AA59-41F7-8F5E-ADDDC3987B6A}=Нажатие кнопки PDF

{A28BBADE-64B6-11D2-A231-00C04FA31809}=Device connected

{143E4E83-6497-11D2-A231-00C04FA31809}=Device disconnected

{B6451B34-AA59-41F7-8F5E-AD2DC3987B4C}=Scan from Windows Service...

Здесь параметрам scanEvent и pdfEvent выставьте свои значения-события, выбранные, как уже было сказано – из полученных способом выше. Если собираетесь использовать связку сканер+принтер (как ксерокс), также заполните параметры printEvent и printerName.
Заполните остальные параметры (там даны комментарии), сохраните конфигурационный файл и запустите службу rooscan

Листинг основной части программы на C# (правда, это еще код версии 1.0, весь код есть в ссылке в комментариях):

// scan picture to network share even user wasn't already logged in Windows
public partial class FormScan : Form
{
DeviceManager manager;
Device device = null;
public FormScan()
{
InitializeComponent();
manager = new DeviceManager();
foreach (DeviceInfo info in manager.DeviceInfos)
{
if (info.Type != WiaDeviceType.ScannerDeviceType) continue;
device = info.Connect();
break;
}
manager.RegisterEvent("{11238AEC-9202-4F84-B327-2C5BCF75B9D4}", device.DeviceID);
// идентификатор события можно получить в eventId
manager.OnEvent += new _IDeviceManagerEvents_OnEventEventHandler(OnScanBtnPress);
}
private void OnScanBtnPress(string eventId, string deviceId, string itemId)
{
ImageFile image = (ImageFile)device.Items[1].Transfer(FormatID.wiaFormatBMP);
// wiaFormatJPEG иногда все равно возвращает Bitmap
image.SaveFile("~$temp.bmp");
// В моем случае изображение будет сохранено в C:\Windows\System32
System.Drawing.Image img =
// преобразуем BMP в JPG
System.Drawing.Image.FromFile(Environment.SystemDirectory + "\\~$temp.bmp");
img.Save(outputDir + "\\" + _fname + counter.ToString()
+ ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg);
img.Dispose();
... (удаляем ~$temp.bmp)
}
}

// scan picture to network share even user wasn't already logged in Windows

public partial class FormScan : Form

{

DeviceManager manager;

Device device = null;

public FormScan()

{

InitializeComponent();

manager = new DeviceManager();

foreach (DeviceInfo info in manager.DeviceInfos)

{

if (info.Type != WiaDeviceType.ScannerDeviceType) continue;

device = info.Connect();

break;

}

manager.RegisterEvent("{11238AEC-9202-4F84-B327-2C5BCF75B9D4}", device.DeviceID);

// идентификатор события можно получить в eventId

manager.OnEvent += new _IDeviceManagerEvents_OnEventEventHandler(OnScanBtnPress);

}

private void OnScanBtnPress(string eventId, string deviceId, string itemId)

{

ImageFile image = (ImageFile)device.Items[1].Transfer(FormatID.wiaFormatBMP);

// wiaFormatJPEG иногда все равно возвращает Bitmap

image.SaveFile("~$temp.bmp");

// В моем случае изображение будет сохранено в C:\Windows\System32

System.Drawing.Image img =

// преобразуем BMP в JPG

System.Drawing.Image.FromFile(Environment.SystemDirectory + "\\~$temp.bmp");

img.Save(outputDir + "\\" + _fname + counter.ToString()

+ ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg);

img.Dispose();

... (удаляем ~$temp.bmp)

}

Если у вас ADF (automatic document feeder, устройство автоматической подачи документов) можете дополнительно использовать библиотеку adfwia
Для тестирования взаимодействия кода с WIA установил виртуальный сканер Microsoft “WIA Sample MicroDriver Scanner Device”: файлы testmcro.dll и testmcro.inf находятся внутри установочного файла по ссылке выше (собрал при помощи XP DDK).
Для удаления старой версии службы достаточно выполнить – sc delete rooscan)
UPD. Если при запуске службы появляется “Ошибка 1053: Служба не ответила на запрос своевременно”, выполните
regsvr32 “C:\Program Files\rooscan\wiaaut.dll”

17 02 2010

Скриншот из сервиса Windows 7 (Delphi)

Uchla admin, Languages screenshot 21

Программа-сервис Windows XP, делающая снимки экрана, после переноса на Windows 7 начала сохранять вместо снимков просто белый фон.
Чтобы использовать основанную на коде ниже программу rooshot, распакуйте архив в отдельную папку, установите ее как сервис (командой rooshot.exe /install), задайте параметры в конфигурационном файле rcshot.conf и запускайте через диспетчер служб. Удаление – командой rooshot.exe /uninstall. Программа будет автоматически делать снимки экрана согласно указанным в конфиге параметрам.

Скачать программу rooshot
версия 0.1 (07.08.12) | 0.3 Мб | stable

Дело в том, что начиная с Windows Vista, служба, запущенная от имени SYSTEM, более не может взаимодействовать с рабочим столом – службы теперь запускаются в изолированном сеансе (сессии) и загрузка своего процесса приведет к попытке запуска в неверном (вошедшего в систему пользователя) сеансе. Решить проблему можно, получив сессию залогинившегося пользователя. Вкратце, этот код делает следующее:

Получает токен вошедшего в систему в данный момент пользователя, используя функцию WtsGetActiveConsoleSessionID
Далее получает пользовательский токен, назначенный процессу (токен для службы от имени SYSTEM)
Затем этот токен дублируется
У скопированного токена изменяется сеанс (на вошедшего пользователя)
Используя CreateProcessAsUser запускается процесс с измененным пользовательским токеном

Процесс с системными правами, но будучи запущенным от имени вошедшего в систему пользователя в Windows 7, также позволит корректно работать GUI-программе как и любой другой.

...
function WTSGetActiveConsoleSessionId: THandle; external 'Kernel32.dll' name 'WTSGetActiveConsoleSessionId';
function CreateEnvironmentBlock(var lpEnvironment: Pointer; hToken: THandle;
                                                             bInherit: BOOL): BOOL; stdcall; external 'userenv.dll';
function ProcessIdToSessionId(dwProcessID : DWORD; pSessionID : PDWORD) : BOOL; stdcall; external 'Kernel32.dll';
function WTSQueryUserToken(SessionId: DWORD; phToken : pHandle) : bool; stdcall; external 'wtsapi32.dll';
...
const
  TOKEN_ADJUST_SESSIONID = $0100;
  SE_DEBUG_NAME = 'SeDebugPrivilege';
  TokenSessionId = 12;
...
function LaunchApplication(FileName: string): Boolean;
var
  pi: PROCESS_INFORMATION;
  si: STARTUPINFO;
  dwSessionId, winlogonPid: DWORD;
  hUserToken, hUserTokenDup, hPToken, hProcess, hsnap: THandle;
  dwCreationFlags: DWORD;
  procEntry: TProcessEntry32;
  winlogonSessId: DWORD;
  tp, tpko: Windows.TTokenPrivileges;
  Buffer: DWORD;
  lpenv: pointer;
begin
  Result := False;
  dwSessionId := WTSGetActiveConsoleSessionId;
  hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnap = INVALID_HANDLE_VALUE) then
  begin
    Result := False;
    Exit;
  end;
  procEntry.dwSize := sizeof(TPROCESSENTRY32);
  if (not Process32First(hSnap, procEntry)) then
  begin
    Result := False;
    Exit;
  end;
  winlogonPid := 0;
  repeat
    begin
      winlogonSessId := 0;
      if (ProcessIdToSessionId(procEntry.th32ProcessID, @winlogonSessId) and (winlogonSessId = dwSessionId)) then
      begin
        winlogonPid := procEntry.th32ProcessID;
        break;
      end;
    end;
  until (not Process32Next(hSnap, procEntry));
  WTSQueryUserToken(dwSessionId, @hUserToken);
  dwCreationFlags := NORMAL_PRIORITY_CLASS or CREATE_NEW_CONSOLE;
  ZeroMemory(@si, sizeof(STARTUPINFO));
  si.cb := sizeof(STARTUPINFO);
  si.lpDesktop := PChar('Winsta0\Default');
  ZeroMemory(@pi, sizeof(pi));
  hProcess := OpenProcess(MAXIMUM_ALLOWED, FALSE, winlogonPid);
  if (not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY or TOKEN_DUPLICATE or
    TOKEN_ASSIGN_PRIMARY or TOKEN_ADJUST_SESSIONID or TOKEN_READ or TOKEN_WRITE, hPToken)) then
  begin
    LogPrint('OpenProcessToken : ' + SysErrorMessage(GetLastError));
    Result := False;
  end;
  if (not LookupPrivilegeValue(nil, SE_DEBUG_NAME, tp.Privileges[0].Luid)) then
  begin
    LogPrint('LookupPrivilegeValue : ' + SysErrorMessage(GetLastError));
    Result := False;
  end;
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  if not DuplicateTokenEx(hPToken, MAXIMUM_ALLOWED, nil, SecurityIdentification, TokenPrimary, hUserTokenDup) then
  begin
    LogPrint('DuplicateTokenEx: ' + SysErrorMessage(GetLastError));
    Result := False;
  end;
  if not SetTokenInformation(hUserTokenDup, TTokenInformationClass(ord(TokenSessionId)),
                                            @dwSessionId, sizeof(dwSessionId)) then
  begin
    LogPrint('SetTokenInformation : ' + SysErrorMessage(GetLastError));
    Result := False;
  end;
  if (not AdjustTokenPrivileges(hUserTokenDup, FALSE, tp, sizeof(tp), tpko, Buffer)) then
  begin
    LogPrint('AdjustTokenPrivileges: ' + SysErrorMessage(GetLastError));
  end;
  lpEnv := nil;
  if (CreateEnvironmentBlock(lpEnv, hUserTokenDup, TRUE)) then
  begin
    dwCreationFlags := dwCreationFlags or CREATE_UNICODE_ENVIRONMENT or PROFILE_USER;
  end
  else
    lpEnv := nil;
  CreateProcessAsUser(hUserTokenDup, PChar(FileName), nil, nil, nil, FALSE, dwCreationFlags,
                   lpEnv, nil, si, pi);
  CloseHandle(hProcess);
  CloseHandle(hUserToken);
  CloseHandle(hUserTokenDup);
  CloseHandle(hPToken);
end;

...

function WTSGetActiveConsoleSessionId: THandle; external 'Kernel32.dll' name 'WTSGetActiveConsoleSessionId';

function CreateEnvironmentBlock(var lpEnvironment: Pointer; hToken: THandle;

bInherit: BOOL): BOOL; stdcall; external 'userenv.dll';

function ProcessIdToSessionId(dwProcessID : DWORD; pSessionID : PDWORD) : BOOL; stdcall; external 'Kernel32.dll';

function WTSQueryUserToken(SessionId: DWORD; phToken : pHandle) : bool; stdcall; external 'wtsapi32.dll';

...

const

TOKEN_ADJUST_SESSIONID = $0100;

SE_DEBUG_NAME = 'SeDebugPrivilege';

TokenSessionId = 12;

...

function LaunchApplication(FileName: string): Boolean;

var

pi: PROCESS_INFORMATION;

si: STARTUPINFO;

dwSessionId, winlogonPid: DWORD;

hUserToken, hUserTokenDup, hPToken, hProcess, hsnap: THandle;

dwCreationFlags: DWORD;

procEntry: TProcessEntry32;

winlogonSessId: DWORD;

tp, tpko: Windows.TTokenPrivileges;

Buffer: DWORD;

lpenv: pointer;

begin

Result := False;

dwSessionId := WTSGetActiveConsoleSessionId;

hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

if (hSnap = INVALID_HANDLE_VALUE) then

begin

Result := False;

Exit;

end;

procEntry.dwSize := sizeof(TPROCESSENTRY32);

if (not Process32First(hSnap, procEntry)) then

begin

Result := False;

Exit;

end;

winlogonPid := 0;

repeat

begin

winlogonSessId := 0;

if (ProcessIdToSessionId(procEntry.th32ProcessID, @winlogonSessId) and (winlogonSessId = dwSessionId)) then

begin

winlogonPid := procEntry.th32ProcessID;

break;

end;

until (not Process32Next(hSnap, procEntry));

WTSQueryUserToken(dwSessionId, @hUserToken);

dwCreationFlags := NORMAL_PRIORITY_CLASS or CREATE_NEW_CONSOLE;

ZeroMemory(@si, sizeof(STARTUPINFO));

si.cb := sizeof(STARTUPINFO);

si.lpDesktop := PChar('Winsta0\Default');

ZeroMemory(@pi, sizeof(pi));

hProcess := OpenProcess(MAXIMUM_ALLOWED, FALSE, winlogonPid);

if (not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY or TOKEN_DUPLICATE or

TOKEN_ASSIGN_PRIMARY or TOKEN_ADJUST_SESSIONID or TOKEN_READ or TOKEN_WRITE, hPToken)) then

begin

LogPrint('OpenProcessToken : ' + SysErrorMessage(GetLastError));

Result := False;

end;

if (not LookupPrivilegeValue(nil, SE_DEBUG_NAME, tp.Privileges[0].Luid)) then

begin

LogPrint('LookupPrivilegeValue : ' + SysErrorMessage(GetLastError));

Result := False;

end;

tp.PrivilegeCount := 1;

tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

if not DuplicateTokenEx(hPToken, MAXIMUM_ALLOWED, nil, SecurityIdentification, TokenPrimary, hUserTokenDup) then

begin

LogPrint('DuplicateTokenEx: ' + SysErrorMessage(GetLastError));

Result := False;

end;

if not SetTokenInformation(hUserTokenDup, TTokenInformationClass(ord(TokenSessionId)),

@dwSessionId, sizeof(dwSessionId)) then

begin

LogPrint('SetTokenInformation : ' + SysErrorMessage(GetLastError));

Result := False;

end;

if (not AdjustTokenPrivileges(hUserTokenDup, FALSE, tp, sizeof(tp), tpko, Buffer)) then

begin

LogPrint('AdjustTokenPrivileges: ' + SysErrorMessage(GetLastError));

end;

lpEnv := nil;

if (CreateEnvironmentBlock(lpEnv, hUserTokenDup, TRUE)) then

begin

dwCreationFlags := dwCreationFlags or CREATE_UNICODE_ENVIRONMENT or PROFILE_USER;

end

else

lpEnv := nil;

CreateProcessAsUser(hUserTokenDup, PChar(FileName), nil, nil, nil, FALSE, dwCreationFlags,

lpEnv, nil, si, pi);

CloseHandle(hProcess);

CloseHandle(hUserToken);

CloseHandle(hUserTokenDup);

CloseHandle(hPToken);

end;

12 12 2003

Постим из Delphi в блог WordPress (XML-RPC)

Uchla Languages delphi, XML-RPC 3

XML-RPC расшифровывается как Remote Procedure Call – удаленный вызов процедур с помощью XML. Блогу, работающему под WordPress, не забудьте дать разрешение на использование протокола XML-RPC в административной панели.
Приведенный ниже на Delphi код (является основной частью программы) отвечает непосредственно за отправку поста в блог. Использует модули из библиотеки Delphi XML-RPC (положил ее сырцы в /delphi/sources). Заголовок поста находится в переменной PostTitle, а содержание – в MemoSrc.Text (TMemo), который передается как параметр description через RPCStruct.AddItem.

procedure PostToWordpressBlog;
var
 RPCFunction: TRpcFunction;
 RPCStruct: TRpcStruct;
 RpcCaller: TRpcCaller;
 RPCResult: IRpcResult;
begin
  RpcCaller := TRpcCaller.Create;
  if FormHelper.CheckBoxUseProxy.Checked then
  begin
    RpcCaller.ProxyName := EditProxyAddr.Text;
    RpcCaller.ProxyPort := (StrToInt(Trim(EditProxyPort.Text)));
  end;
  RpcCaller.HostName:='rooslan.com/eat';
  RpcCaller.EndPoint:='/xmlrpc.php';
  RPCFunction := TRpcFunction.Create;
  RPCFunction.ObjectMethod := 'metaWeblog.newPost';
  RPCFunction.AddItem(1);
  RPCFunction.AddItem('rooslan'); // blog login
  RPCFunction.AddItem('mypassword'); // username password
  RPCStruct := TRpcStruct.Create;
  RPCStruct.AddItem('title', UTF8Encode(PostTitle));
  RPCStruct.AddItem('description', UTF8Encode(MemoSrc.Text));
  // Rpcstruc.AddItem('wp_password','ediext'); //пароль на запись
  RPCFunction.AddItem(RPCStruct);
  RPCFunction.AddItem(true);  // PUBLISH!
 RpcResult := RpcCaller.Execute(RpcFunction);
    if RpcResult.IsError then
      ShowMessageFmt('Error: (%d) %s', [RpcResult.ErrorCode, RpcResult.ErrorMsg])
    else
      ShowMessage('Success: ' + RpcResult.AsString);
  RpcCaller.Free;
end;

procedure PostToWordpressBlog;

var

RPCFunction: TRpcFunction;

RPCStruct: TRpcStruct;

RpcCaller: TRpcCaller;

RPCResult: IRpcResult;

begin

RpcCaller := TRpcCaller.Create;

if FormHelper.CheckBoxUseProxy.Checked then

begin

RpcCaller.ProxyName := EditProxyAddr.Text;

RpcCaller.ProxyPort := (StrToInt(Trim(EditProxyPort.Text)));

end;

RpcCaller.HostName:='rooslan.com/eat';

RpcCaller.EndPoint:='/xmlrpc.php';

RPCFunction := TRpcFunction.Create;

RPCFunction.ObjectMethod := 'metaWeblog.newPost';

RPCFunction.AddItem(1);

RPCFunction.AddItem('rooslan'); // blog login

RPCFunction.AddItem('mypassword'); // username password

RPCStruct := TRpcStruct.Create;

RPCStruct.AddItem('title', UTF8Encode(PostTitle));

RPCStruct.AddItem('description', UTF8Encode(MemoSrc.Text));

// Rpcstruc.AddItem('wp_password','ediext'); //пароль на запись

RPCFunction.AddItem(RPCStruct);

RPCFunction.AddItem(true); // PUBLISH!

RpcResult := RpcCaller.Execute(RpcFunction);

if RpcResult.IsError then

ShowMessageFmt('Error: (%d) %s', [RpcResult.ErrorCode, RpcResult.ErrorMsg])

else

ShowMessage('Success: ' + RpcResult.AsString);

RpcCaller.Free;

end;

P. S. Рекомендую ознакомиться с исходными кодами программы blogBuddy
Also, см. Создаем Drupal-страницы из C# (XML-RPC “node.save”)