Проверка правописания delphi

You can use Aspell (Win32 version: http://aspell.net/win32/).

In your Delphi project you could use the command line pipe interface: aspell pipe:

C:ProgrammeAspellbin>aspell pipe
@(#) International Ispell Version 3.1.20 (but really Aspell 0.50.3)

hello
*

world
*

helllo
& helllo 18 0: hello, Helli, hell lo, hell-lo, hell, Heall, hallo, he'll, hullo,  Heller, heller, hellos, Jello, jello, Halli, Holli, hallow, hollow

wourld
& wourld 12 0: world, would, wold, whorled, wield, weld, wild, wooled, whirled, worlds, woulds, word

Пожалуйста, помогите! Как лучше организовать проверку набранного в программе, написанной на Delphi, текста?

Мне нужно написать текстовый редактор, с возможностью проверки орфографии набранного в нем текста(редактор написать могу, но проблема с проверкой орфографии).

Учусь на программного инженера, на 1-м курсе и проходим пока что Pascal, да и то, только работу со строками и файлами проходим.
А нужно меньше чем за 2 месяца написать вон ту программку, о которой говорил выше=(

Хотелось бы сделать проверку, не используя Word, но похоже это тяжело.

Может можно как-то быстро сравнивать введенный в программу текст с базой слов, хранящейся в .dll ?

Ну или пусть будет с использованием Word, но мне все равно нужны четкие примеры в картинках или видео-уроках.
Так как я сам не осилю за полтора месяца во всем этом разобраться, да еще и в учебное время(

Проще говоря, буду очень признателен, если кто-то поделится хорошей информацией и примерами по этому поводу!) Спасибо!

уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.

Пока собираюсь с мыслями по поводу написания одной большой статьи про использование Ribbon Controls решил между делом поразбираться с API Яндекс.Спеллера в Delphi.

Во-первых, следует объяснить тем, кто не в курсе, что это за API.

Яндекс.Спеллер – это сервис проверки правописания, который помогает находить и исправлять орфографические ошибки. Работа сервиса основана на использовании орфографических словарей для трех языков — русского, украинского и английского.

В принципе, для тех, кто большую часть времени работает в оффлайне этот сервис особо не пригодиться. Другое дело — использовать его в своих онлайн проектах и программах, ориентированных на работу в Сети.

В целом, работа с API Яндекса никогда не вызывали, по крайней мере у меня, особых осложнений. В основном вся работа основывается на работе с двумя-тремя методами, у которых пара-тройка входных параметров. Самое «сложное» — это правильно разобрать ответ сервера.

Судя по тому, что написано в документации к Яндекс.Спеллеру, для нас наиболее важно научиться использовать метод checkText.. Его мы сегодня и рассмотрим.

Метод checkText Яндекс.Спеллера

Метод проверяет орфографию в указанном отрывке текста. Для использования метода допустимо использовать как GET так и POST запросы. При этом размер передаваемого текста в POST-запросе не должен превышать 10000 символов.

Чтобы лишний раз не копипастить документацию я просто приведу ссылку на описание метода.  Судя по тому, что сказано в документации, наша работа с сервисом будет состоять из двух частей:

1. Отправка POST-запроса с текстом для проверки
2. Получение ответа и парсинг XML.

Для работы нам понадобиться совсем немного модулей: SysUtils, Classes,  XMLIntf,xmldom, XMLDoc;

Ну и для отправки запросов я использовал httpsend из библиотеки synapce. Вы, если хотите, можете использовать тот же IdHTTP из Indy.

Первое, что делаем — это объявляем все константы, которые могут потребоваться нам для работы, а именно:

• Коды ошибок Яндекс.Спеллера
• Константы настроек Яндекс.Спеллера
• Ну и, чтобы вообще было хорошо — создадим несколько ресурсных строк для описания ошибок

У меня получилось следующее:

resourcestring
  rcERROR_TEXT_LENGTH = 'Общая длина передаваемого текста превышает 10000 символов!';
  rcERROR_UNKNOWN_WORD = 'Слова нет в словаре';
  rcERROR_REPEAT_WORD = 'Повтор слова';
  rcERROR_CAPITALIZATION = 'Неверное употребление прописных и строчных букв';
  rcERROR_TOO_MANY_ERRORS = 'Текст содержит слишком много ошибок';
 
const
  IGNORE_UPPERCASE = 1;
  IGNORE_DIGITS = 2;
  IGNORE_URLS = 4;
  FIND_REPEAT_WORDS = 8;
  IGNORE_LATIN = 16;
  NO_SUGGEST = 32;
  FLAG_LATIN = 128;
 
  ERROR_UNKNOWN_WORD = 1;
  ERROR_REPEAT_WORD = 2;
  ERROR_CAPITALIZATION = 3;
  ERROR_TOO_MANY_ERRORS = 4;

Теперь договоримся как будем хранить сообщения об орфографических ошибках. Чтобы все было точно как задумано в сервисе, будем хранить всю информацию об ошибке как есть. Для этого вводим новый тип данных:

type
TBadWord = record
  Word: string;//слово с ошибкой
  ErrCode: integer;//код ошибки
  ErrMsg : string;//описание ошибки
  Pos:integer;//позиция слова с ошибкой (отсчет от 0);
  Row:integer;//номер строки (отсчет от 0)
  Col:integer;//номер столбца (отсчет от 0);
  Len:integer;//длина слова с ошибкой
  Variants: TStringList; //варианты правильного написания
end;

И ещё пару типов

type
  TBadWords = array of TBadWord;
type
  TTextFormat = (tfPlain, tfHTML);

Теперь можно отправлять данные на сервер и анализировать ответ. Для этого я создал такую функцию:

function CheckGrammar(const aText:string; Options:integer=0;lang:string='ru,en';format:TTextFormat=tfPlain):TBadWords;
 
implementation
 
function CheckGrammar(const aText:string; Options:integer;lang:string;format:TTextFormat):TBadWords;
var Query: TStringStream;
  Doc: IXMLDocument;
  List,Variant: IDOMNodeList;
  i,j:integer;
begin
try
  Query:=TStringStream.Create('');
  Query.WriteString('text='+aText+'?='+lang+'&options='+inttostr(Options));
  case format of
    tfPlain: Query.WriteString('&format=plain&ie=1251');
    tfHTML:  Query.WriteString('&format=html&ie=1251');
  end;
  if Length(Query.DataString)>10000 then
    raise Exception.Create(rcERROR_TEXT_LENGTH);
  with THTTPSend.Create do
    begin
       Document.LoadFromStream(Query);
       MimeType:='application/x-www-form-urlencoded';
       if HTTPMethod('POST','http://speller.yandex.net/services/spellservice/checkText') then
         begin
           Doc:=NewXMLDocument();
           Doc.LoadFromStream(Document);
           List:=Doc.DOMDocument.getElementsByTagName('error');//получаем список ошибок
           SetLength(Result,List.Length);//устанавливаем длину массива
           for i:=0 to List.length-1 do
             begin
               //запоминаем атрибуты ошибки
               with List.item[i] do
                 begin
                   Result[i].ErrCode:=StrToInt(attributes.getNamedItem('code').nodeValue);
                   Result[i].Pos:=StrToInt(attributes.getNamedItem('pos').nodeValue);
                   Result[i].Row:=StrToInt(attributes.getNamedItem('row').nodeValue);
                   Result[i].Col:=StrToInt(attributes.getNamedItem('col').nodeValue);
                   Result[i].Len:=StrToInt(attributes.getNamedItem('len').nodeValue);
                 end;
                case Result[i].ErrCode of
                  ERROR_UNKNOWN_WORD:Result[i].ErrMsg:=rcERROR_UNKNOWN_WORD;
                  ERROR_REPEAT_WORD:Result[i].ErrMsg:=rcERROR_REPEAT_WORD;
                  ERROR_CAPITALIZATION:Result[i].ErrMsg:=rcERROR_CAPITALIZATION;
                  ERROR_TOO_MANY_ERRORS:Result[i].ErrMsg:=rcERROR_TOO_MANY_ERRORS;
                end;
//читаем дочерние элементы
               Variant:=List.item[i].childNodes;
               Result[i].Word:=(List.item[i].firstChild as IDOMNodeEx).text;
               Result[i].Variants:=TStringList.Create;
               for j:=1 to Variant.length-1 do //оставшиеся дочерние узлы - варианты
                 Result[i].Variants.Add((Variant.item[j]as IDOMNodeEx).text);
             end;
   end;
end;
finally
FreeAndNil(Query);
end;
end;

Разберемся, что здесь происходит. Вначале создается тело нашего POST-запроса в зависимости от входных параметров. При этом, обратите внимание на последний необязательный параметр: ie=1251. Можно было бы обойтись и без него, но для этого необходимо переводить наш параметр aText в кодировку utf-8.

Далее проводится проверка длины текста в теле запроса. Если длина превышает 10000 символов, то работа функции завершается, иначе переходим к следующему шагу — отправке запроса.

MimeType:='application/x-www-form-urlencoded';

Определяет заголовок (Headers) Content-Type. Если не использовать заголовок или использовать другое его значение — сервис вернет нам ошибку «Unrecognized Content Type … «. Отправляем запрос и анализируем XML-документ.

Анализ как таковой проводится элементарно:

1. Получаем список всех узлов error — размер списка и будет размером массива, который возвращает функция
2. Далее проходим по порядку по каждому из узлов списка (цикл по i) и читаем все атрибуты попутно занося в элемент массива описание ошибки в зависимости от значения атрибута code.
3. Получаем для каждого узла List.item[i] список дочерних узлов.
4. Исходя из описания API первым дочерним узлом всегда является слово с ошибкой — читаем первый дочерний узел и заносим его значение в поле Word
5. Остальные дочерние узлы (если они имеются) — это варианты правильного написания слова. Создаем цикл по j и читаем значения оставшихся узлов.

Вот и все. Остается продемонстрировать работу функции на примере. Использовать можно, например так:

CheckGrammar('синхрафазатрон в дубне', 5);

При этом проверка будет проходить с использованием опций: IGNORE_UPPERCASE и IGNORE_URLS.

Можно вызвать метод и так:

CheckGrammar('синхрафазатрон в дубне', IGNORE_UPPERCASE+ IGNORE_URLS, 'ru');

Так будет проверяться только русский текст, опять же используя опции из предыдущего примера.

уважаемые посетители блога, если Вам понравилась, то, пожалуйста, помогите автору с лечением. Подробности тут.

Содержание

• Что такое (OLE) автоматизация? Что такое сервер автоматизации? Что такое клиент автоматизации?
• OLE Automation
• Подключение к Word: «Привет, слово» Раннее связывание или Позднее связывание
• Delphi> = 5 — Серверные компоненты Office XX
• Delphi 3,4 — Раннее связывание
• Delphi 2 — Позднее связывание
• Запуск (Автоматизация) Word Silently
• «Легкий» путь
• Проект проверки правописания — TWordApplication, TWordDocument
• TWordApplication, TWordDocument
• Проект проверки правописания — Проверка правописания / замена
• Наконец: исходный код Delphi
• Тезаурус? Тезаурус!

Что такое (OLE) автоматизация? Что такое сервер автоматизации? Что такое клиент автоматизации?

Предположим, вы разрабатываете редактор HTML, например HTML Kit. Как и в любом другом текстовом редакторе, ваше приложение должно содержать какую-то систему проверки орфографии. Зачем покупать компоненты для проверки орфографии или писать их с нуля, если вы легко можете использовать MS Word?

OLE Automation

одно приложение может контролировать другоеклиент автоматизациисервер автоматизации

Автоматизация (также известная как OLE Automation) — это функция, которую программы используют для предоставления своих объектов инструментам разработки, языкам макросов и другим программам, поддерживающим автоматизацию. Например, Microsoft Outlook может предоставлять объекты для отправки и получения электронной почты, для планирования, а также для управления контактами и задачами.

Используя Word Automation (сервер), мы можем использовать Delphi (клиент) для динамического создания нового документа, добавить текст, который мы хотим проверять правописание, и затем Word проверяет правописание. Если мы будем минимизировать Microsoft Word, наши пользователи могут никогда не узнать! Благодаря OLE-интерфейсу Microsoft Word, мы можем немного отойти от Delphi и найти способы обмана при разработке нашей версии редактора Блокнота

Есть только один глюк;) Пользователям приложения необходимо установить Word. Но не позволяй этому остановить тебя.

Конечно, чтобы полностью освоить использование автоматизации в ваших приложениях, вы должны иметь подробные рабочие знания о приложениях, которые вы интегрируете — в данном случае MS Word.

Чтобы ваши «офисные» программы работали, пользователь должен владеть приложением, которое действует как сервер автоматизации. В нашем случае MS Word должен быть установлен на компьютере пользователя.

Подключение к Word: «Привет, слово» Раннее связывание или Позднее связывание

Есть несколько основных шагов и три основных способа автоматизации Word из Delphi.

Delphi> = 5 — Серверные компоненты Office XX

TWordApplicationTWordDocument

Delphi 3,4 — Раннее связывание

Библиотеки типов

Чтобы использовать библиотеку типов Word в Delphi (версия 3 или 4), выберите Project | Импортируйте библиотеку типов… и выберите файл msword8.olb, расположенный в каталоге «Office» Microsoft Office.Это создаст файл «Word_TLB.pas», который является переводом паскаля объекта библиотеки типов. Включают Word_TLB в списке использований любого модуля, который будет обращаться к свойствам или методам Word. Ссылка на методы Word с использованием библиотеки типов называется раннее связывание.

Delphi 2 — Позднее связывание

Позднее связывание

следует избегать, если это возможно, поскольку использовать библиотеки типов гораздо проще и быстрее — компилятор помогает, отлавливая ошибки в исходном коде. При использовании позднего связывания Word объявляется как переменная типа Variant. Это, в частности, означает, что для вызова методов и доступа к свойствам вы должны знать, что они из себя представляют.

Запуск (Автоматизация) Word Silently

В примере в этой статье будут использоваться «серверные» компоненты, поставляемые с Delphi. Если у вас есть более ранняя версия Delphi, я предлагаю вам использовать раннее связывание с библиотекой типов Word.

использования Word_TLB; ... вар WordApp: _Application; WordDoc: _Document; VarFalse: OleVariant; начать WordApp: = CoApplication.Create; WordDoc: = WordApp.Documents.Add (EmptyParam, EmptyParam); {код проверки орфографии, как описано далее в этой статье} VarFalse: = False; WordApp.Quit (VarFalse, EmptyParam, EmptyParam); конец; необязательные параметры EmptyParam

Для автоматизации Word с помощью переменной Variant (позднее связывание) используйте этот код: