[BedaZzle]

D!ig (17.11.2007, 1:16) писал:

Действительно "раз ты - счастливый обладатель исходников SubtitleAPI", может хедером поделишся?

Кхм... Я это ни разу не делал, как оформить?

D!ig (17.11.2007, 1:16) писал:

[*]Прикрутил бинарный поиск (пол дня искал, шо таке), оказалась именно то, что и так собирался делать.

Покажи, что ты там сотворил, ибо:

в третьем томе книги Кнута "Искусство программирования для ЭВМ: сортировка и поиск", посвящённом истории этого алгоритма, Кнут отмечает, что, хотя первая программа двоичного поиска была опубликована в 1946 году, программа, не содержащая ошибок, появилась лишь в 1962 году.

[D!ig]

BedaZzle (17.11.2007, 11:47) писал:

Кхм... Я это ни разу не делал, как оформить?

Ну наверное так:

SubtitleAPI.dll экспортирует функции:

AddSubtitle
ClearSubtitles
CloseSubtitleFile
CreateNewSubtitle
DeleteSubtitle
GetCurrentFormat
GetFileFormat
GetFormatIndex
GetFormatInformation
GetFormatName
GetModuleDescription
GetModuleVersion
GetNoInteractionWithTags
GetPlaybackDelay
GetSubtitle
GetSubtitleCount
GetSubtitleText
GetSubtitleWorkWithTags
GetSupportedFormatsCount
InsertSubtitle
IsFrameBased
LoadSubtitleFile
MoveSubtitle
ReverseSubtitleText
SaveSubtitleFile
SetAbsoluteDelay
SetNoInteractionWithTags
SetOutputSettingsAdvancedSubStationAlpha
SetOutputSettingsDVDSubtitle
SetOutputSettingsSAMI
SetOutputSettingsSonicScenarist
SetOutputSettingsSubStationAlpha
SetOutputSettingsSubViewer1
SetOutputSettingsSubViewer2
SetOutputSettingsTMPlayer
SetPlaybackDelay
SetSubtitle
SetSubtitleWorkWithTags

Юнит SubtitleAPILib.Pas скорее всего имеет вид:

Unit SubtitleApiLib;
interface
uses System, Windows, SysInit, SysUtilsMath, SysConst, Types, FastStrings, USubtitlesFunctions
  USubtitlesSave, USubtitlesRead, UCheckFormat, USubtitleFile;

[function]|[procedure] AddSubtitle (????????):??????;
...
[function]|[procedure] SetSubtitleWorkWithTags(????????):??????;

[type] ?????;
[const] ?????;

implementation
function|procedure AddSubtitle (????????):??????;
begin
????
end;
...
[function]|[procedure] SetSubtitleWorkWithTags(????????):??????;
 begin
????
end;
end.

Юнит SubtitleApi.dpr скорее всего имеет вид:

library SubtitleApi;
uses SubtitleApiLib in 'SubtitleApiLib.pas';

exports
  AddSubtitle;
  ...
  SetSubtitleWorkWithTags;
begin
end.

Ну или возможно SubtitleApiLib.pas отстутствует, а есть только SubtitleAPi.dpr.
Тогда Юнит SubtitleApi.dpr скорее всего имеет вид:

library SubtitleApi;
uses System, Windows, SysInit, SysUtilsMath, SysConst, Types, FastStrings, USubtitlesFunctions
  USubtitlesSave, USubtitlesRead, UCheckFormat, USubtitleFile;

[type] ?????;
[const] ?????;

[function]|[procedure] AddSubtitle (????????):??????;
begin
????
end;
...
[function]|[procedure] SetSubtitleWorkWithTags(????????):??????;
 begin
????
end;

exports
  AddSubtitle;
  ...
  SetSubtitleWorkWithTags;
begin
end.

-------
Заголовочный файл должен иметь вид:

Unit SubtitleAPI[Header];
inteface
[function]|[procedure] AddSubtitle(text: [string|pchar}; pos: integer): boolean;stdcall; external 'SubtitleAPI.dll';
...
[function]|[procedure] SetSubtitleWorkWithTagsAddSubtitle(value: boolean): boolean;stdcall; external 'SubtitleAPI.dll';
// то есть прототип экспортируемой функции, со всеми тараметрами.
...
[function]|[procedure] GetFormatInformation(format: TFormat): TFormatInfo;stdcall; external 'SubtitleAPI.dll';
// к этой нужны еще описания типов, TFormat и TFormatInformation;
например:
type TFormat = (sfSRT, sfSUB, ..., sfSSA);
type TFormatInformation = record
  name: [string|pchar];
  ext : [string|pchar];
  description: [string|pchar];
end;	  
// если для вызова функций нужны какие-то константы, константы тоже нажо указать
const
  ????? = ?????;

implementation
//implementation наверно можно опустить
end.

Потом в Делфевой программе, достаточно написать Uses ...; SubtitleApi[Header] in 'SubtitleApi[Header].pas' и можно использовать всю мощь SubtitleApi.Dll , а то свои парсеры писать ломает.

Попробовал обернуть тэги

Spoiler'ом.
Показывается вообще чудно, 2-"последний" споилеры поместились внутрь 1-го, 1й и 2й работают остальные нет.
---------

BedaZzle (17.11.2007, 11:47) писал:

Покажи, что ты там сотворил, ибо:
в третьем томе книги Кнута "Искусство программирования для ЭВМ: сортировка и поиск", посвящённом истории этого алгоритма, Кнут отмечает, что, хотя первая программа двоичного поиска была опубликована в 1946 году, программа, не содержащая ошибок, появилась лишь в 1962 году.

Ну с 1946 до 1962г. прошло 26лет - появилась первая программа не содержащая ошибок в алгоритме.
С 1962 до 2007г. - 45лет - хочется надеятся, что многое изменилось.

Новая версия:  Synonyms_Script.rar (4,92К)
Количество загрузок:: 15

[BedaZzle]

D!ig (18.11.2007, 0:03) писал:

Ну с 1946 до 1962г. прошло 26лет - появилась первая программа не содержащая ошибок в алгоритме.
С 1962 до 2007г. - 45лет - хочется надеятся, что многое изменилось.

Изменилось, только вот по всему инету расползся не самый быстродействующий вариант.


Позаимствовал у Кнута такое:

function TForm1.SearchHash(const hash: shortstring; var i: integer): boolean;
var
  L, R, X: cardinal;
begin
  L := 0;
  R := WordUsed-1;

  while (L < R) do
  begin
	X := (L+R) shr 1;

	if WordList[X].hash < hash then
	  L := X+1
	else
	  R := X;
  end;

  if WordList[L].hash = hash then
  begin
	i := L;
	result := TRUE;
  end
  else
	result := FALSE;
end;

[D!ig]

BedaZzle (18.11.2007, 2:37) писал:

Изменилось, только вот по всему инету расползся не самый быстродействующий вариант.


Позаимствовал у Кнута такое:

Проверка на равенство вынесена за предела цикла?

 while (L < R) do
 ...
 end;
 if WordList[L].hash = hash then
  begin
	i := L;
	result := TRUE;
  end
  else
	result := FALSE;
end;

Логично. Спасибо. Пишы исчо .

[BedaZzle]

D!ig (18.11.2007, 14:51) писал:

Проверка на равенство вынесена за предела цикла?

Логично. Спасибо. Пишы исчо .

Сначала погоняй профайлером оба варианта, а потом смейся.

[D!ig]

BedaZzle (18.11.2007, 23:22) писал:

Сначала погоняй профайлером оба варианта, а потом смейся.

Да, я не смеюсь, как можно. Это я так демонстрирую свою радость, по поводу того, что умный человек, одарил меня, частицей своей мудрости. И выражаю пожелание, чтобы так продолжалось и дальше.

[Stevvie]

Камрады, как успехи со словарем?

[D!ig]

Stevvie (28.12.2007, 18:03) писал:

Камрады, как успехи со словарем?

Тухло.
У меня комп поломался и надежд на возможность его починки очень мало. Новый соберу не раньше февраля.
Тут в сети наткнулся на словарь синонимов для Lingvo:
"Словарь содержит 163 тысячи слов и выражений, снабженных синонимами и/или поясняющими словами.", но дальше там идет вот такой текст
"Оригинальный словарь распространяется бесплатно в виде dbf-таблиц и оболочки.". Из dbf можно очень легко и быстро его конвертнуть в любой формат.

[НуПогоди]

Тема немножко сдохла, но всё же... Начал немного ковырять и... Смотрю на, скажем, такой код

Цитата

mmoSubText :=TMemo(Form.FindComponent('mmoSubtitleText'));
with mmoSubText do begin
...
onmousedown := @mmoSubText_MouseDown;
...
end;

и не понимаю: действие скрипта вообще как-то закончить можно? как программно прекратить обработку кликов по mmoSubText?

[Bodkin]

НуПогоди (11 Ноябрь 2010 - 18:57) писал:

Тема немножко сдохла, но всё же... Начал немного ковырять и... Смотрю на, скажем, такой код

и не понимаю: действие скрипта вообще как-то закончить можно? как программно прекратить обработку кликов по mmoSubText?

Может onmousedown := nil?

[НуПогоди]

Идея переопределить события типа onmousedown не решает проблемы: цикл with mmoSubText do... по прежнему работает, а текущий Pascal-скрипт не завершён. Если мы попробуем в такой ситуации вызвать из меню любой другой Pascal-скрипт, а после его завершения кликнуть мышкой по mmoSubText , то получим то, что на скриншоте.

Чтобы избежать подобных крэшей, по идее можно в программе сделать enabled:=false либо для всего menuitem с паскаль-скриптами (чтобы до них было не дотянуться) либо mmoSubText (и тогда он станет недоступен). Второе отметается сразу, ибо текст субтитров в mmoSubText хотелось бы редактировать и дальше. Да и первое как-то не сильно радует... Потому и спрашивал: как завершить цикл with mmoSubText do...? как закончить действие скрипта, содержащего такой цикл?

Прикрепленные файлы

•  SWError.png (14,57К)
  Количество загрузок:: 4

[Bodkin]

НуПогоди (12 Ноябрь 2010 - 11:14) писал:

Идея переопределить события типа onmousedown не решает проблемы: цикл with mmoSubText do... по прежнему работает, а текущий Pascal-скрипт не завершён. Если мы попробуем в такой ситуации вызвать из меню любой другой Pascal-скрипт, а после его завершения кликнуть мышкой по mmoSubText , то получим то, что на скриншоте.

Чтобы избежать подобных крэшей, по идее можно в программе сделать enabled:=false либо для всего menuitem с паскаль-скриптами (чтобы до них было не дотянуться) либо mmoSubText (и тогда он станет недоступен). Второе отметается сразу, ибо текст субтитров в mmoSubText хотелось бы редактировать и дальше. Да и первое как-то не сильно радует... Потому и спрашивал: как завершить цикл with mmoSubText do...? как закончить действие скрипта, содержащего такой цикл?

Так with это не цикл, он всего лишь помогает уменьшить количество кода. То же самое, но без него:

...
mmoSubText :=TMemo(Form.FindComponent('mmoSubtitleText'));

if dbg then mmoSubText.Color:=clRed;
mmoSubText.onmousedown := @mmoSubText_MouseDown;
mmoSubText.onmouseup   := @mmoSubText_MouseUP;
mmoSubText.onmousemove := @mmoSubText_MouseMove;
mmoSubText.ondblclick  := @mmoSubText_DblClick;
mmoSubText.onkeyup     := @mmoSubText_KeyUp;

pnlControl:=TPanel(Form.FindComponent('pnlControl'));
...

[НуПогоди]

Bodkin (12 Ноябрь 2010 - 11:59) писал:

То же самое, но без него...

Так понятнее... Выходит, в скрипте №1 мы просто переписали обработчик маускликов для объекта, а при повторном вызове компиллятора паскаль-скриптов функция обработки маускликов каким-то образом портится (вероятно, поверх неё пишется содержимое функций нового скрипта) - потому и крэш. Если эту функцию переопределить, снова скомпиллировав скрипт №1 (с содержимым функции onMouseClick), то крэши по идее исчезнут. Где-то так...

ПС. Попробовал хохмы ради:

program test;
var Form : TForm;
mmoSubText : TMemo;
begin
if not IsOriginalLoaded then EnableWorkArea;
Form:=TForm(Application.MainForm);
mmoSubText:=TMemo(Form.FindComponent('mmoSubtitleText'));
mmoSubText.onmousedown:=nil;
end.

Компайлер ругается на несоответствие типов в строке с nil. Если так и не удастся программно убрать обработчик кликов, придётся видимо создавать новый объект, а для устранения обработки кликов по нему делать его недоступным (или даже невидимым).

[Bodkin]

НуПогоди (12 Ноябрь 2010 - 14:57) писал:

Компайлер ругается на несоответствие типов в строке с nil. Если так и не удастся программно убрать обработчик кликов, придётся видимо создавать новый объект, а для устранения обработки кликов по нему делать его недоступным (или даже невидимым).

Что-то я не понял, ты где компилируешь? В Delphi или в Subtitle Workshop? По-моему у меня всё правильно написано, потестить не могу (нет ни того, ни другого под рукой), но судя по этому, должно работать: http://www.google.ru...2+lang%3Apascal

[НуПогоди]

Bodkin (12 Ноябрь 2010 - 23:27) писал:

Что-то я не понял, ты где компилируешь? В Delphi или в Subtitle Workshop?

SW-компайлер, естественно... в Delphi скорее всего проблем бы не было.

[BedaZzle]

НуПогоди (13 Ноябрь 2010 - 11:18) писал:

SW-компайлер, естественно... в Delphi скорее всего проблем бы не было.

попробуй вместо nil приравнять нулю.