Добрый всем вечерочек.

Имел ли кто опыт имплементации в Билдере?
Ворд не годитса, начальство не хочет связыватса.
Пока пробую Polar SpellChecker, качнул пробную версию, получаетса не очень.
Я вообшем то с OLE опыта большого не имею.

Буду признателен любой наводке с примерами.
Спасибо

Спасибо Филипп.

Смотрел Polar и Wintertree.
Вчера качнул trial от Wintertree, попробовал, вроде работает как часы.

Вот, может кому пригодитса:

/*
// Declare globals:
function integer SSCE_CheckCtrlDlg (long parentWin, long ctrlWin, integer selectedOnly) library "ssce5432.dll"
subroutine SSCE_GetStatistics(ref unsignedlong wordsChecked, ref unsignedlong wordsChanged, ref unsignedlong errorsDetected) library "ssce5432.dll"
function long SSCE_CheckBlockDlg(long parentWin, ref string block, long blkLen, long blkSz, integer showContext) library "ssce5432.dll"
function integer SSCE_ResetLex() library "ssce5432.dll"
Function integer SSCE_SetKey(ulong key) library "SSCE5432.DLL"

// Create function:
$PBExportHeader$f_ssce_spellchecker.srf
global type f_ssce_spellchecker from function_object
end type

forward prototypes
global function unsignedlong f_ssce_spellchecker (datawindow ar_dw, long ar_l_row, string ar_s_column, ref unsignedlong ar_ul_changed)
end prototypes

global function unsignedlong f_ssce_spellchecker (datawindow ar_dw, long ar_l_row, string ar_s_column, ref unsignedlong ar_ul_changed);// Return: -2 error, -1 cancel, 0 no errors, >0 number of spelling errors ...

long l_num_chars, l_block_len, l_rc
ulong ul_words_checked, ul_words_changed, ul_err_detected, l_key
string s_status, s_block

l_key = // hex License Key ...

l_rc = SSCE_SetKey(l_key)

s_block = Trim(ar_dw.GetItemString(ar_l_row, ar_s_column))

IF IsNull(s_block) THEN
RETURN 0
END IF

l_block_len = len(trim(s_block))

IF l_block_len = 0 THEN
RETURN 0
END IF

s_block = s_block + space(1000)

SSCE_ResetLex()

l_num_chars = SSCE_CheckBlockDlg(handle(ar_dw), s_block, l_block_len, len(s_block), 1)

CHOOSE CASE l_num_chars
CASE IS > 0 // Complete ...

CASE -17 // Cancelled ...
RETURN -1

CASE ELSE
PopulateError(l_num_chars, 'Error occurred during spell-check')
SignalError()
RETURN -2

END CHOOSE

SSCE_GetStatistics(ul_words_checked, ar_ul_changed, ul_err_detected)

IF ul_err_detected > 0 and ar_ul_changed > 0 THEN
s_block = trim(s_block)
ar_dw.SetItem(ar_l_row, ar_s_column, s_block)
END IF

RETURN ul_err_detected

end function

// Use this function in the script...




*/

Всё равно спасибо за ответ.